2016-2017 Officers
President: | Dan Singer | Trustee: | Larry Harmon |
Vice President: | Kathy
Franklin | Chaplain: |
Keith Thogmartin |
Secretary: | Joyce Blackston | SGT of Arms: | Tim Claypool |
Treasurer: |
Tamara Solt | Ambassador: |
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 "" & arrname(0,i) & " | " & arrname(1,i) & " | " & arrname(2,i) & " |
"
Next
Response.Write("
")
function ceil(x)
dim temp
temp = Round(x)
if temp < x then
temp = temp + 1
end if
ceil = temp
end function
%>