Members


2016-2017 Officers

President: Dan SingerTrustee: Larry Harmon
Vice President: Kathy FranklinChaplain: Keith Thogmartin
Secretary: Joyce BlackstonSGT of Arms: Tim Claypool
Treasurer: Tamara SoltAmbassador: Mark Pontious
Social Director: Karen Singer   

2016-2017 Membership Roster

<% dim name dim numlines dim readline dim col dim row numlines = 0 col = 0 row = 0 Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("members.txt"), 1) do while f.AtEndOfStream = false name = f.ReadLine numlines = numlines + 1 loop numlines = numlines/3 numlines = ceil(numlines) f.Close Set f=Nothing Set fs=Nothing dim arrname() redim arrname(3,numlines) Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("members.txt"), 1) do while f.AtEndOfStream = false if row = numlines then row = 0 col = col + 1 end if readline = f.ReadLine arrname(col,row) = readline row = row + 1 loop f.Close Set f=Nothing Set fs=Nothing Response.Write("") dim i for i=0 to numlines-1 step 1 Response.Write "" Next Response.Write("
" & arrname(0,i) & "" & arrname(1,i) & "" & arrname(2,i) & "
") function ceil(x) dim temp temp = Round(x) if temp < x then temp = temp + 1 end if ceil = temp end function %>