September
2002 Winner
Tony Serrano
Galleries
<%
'
'Get menu data
FileToRead="e:\inetpub\wwwroot\bigcocksociety\members\contest_winners\2002_09\menu.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(FileToRead, 1, False)
do while thisfile.AtEndOfStream = false
seqnum=""
first=""
last=""
commas=0
linein = thisfile.readline
for i=1 to len(linein)
if mid(linein,i,1) = "," then
commas = commas + 1
Else
if commas=0 then
seqnum = seqnum + mid(linein,i,1)
end if
if commas=1 then
first = first + mid(linein,i,1)
end if
if commas=2 then
last = last + mid(linein,i,1)
end if
end if
next
%>
-
<% if gallery <> seqnum then %>
<%=seqnum%>
<% else %>
<%=seqnum%>
<% end if %>
<%
'
'initialize startit and stopit if not set
if (seqnum = "1") and (Request.QueryString("startit") = "") then
startit = first
stopit = last
end if
loop
thisfile.Close
set thisfile=nothing
set fs=nothing
%>
<%
If Request.QueryString("startit") = "" then
starthere="2"
Else
starthere=Request.QueryString("startit")
End If
FileToRead1=starthere &".htm"
whichfile1=server.mappath(FileToRead1)
Set fs1 = CreateObject("Scripting.FileSystemObject")
Set thisfile1 = fs1.OpenTextFile(whichfile1, 1, False)
tempSTR=thisfile1.readall
response.write tempSTR
thisfile1.Close
set thisfile1=nothing
set fs1=nothing
%>
Galleries
<%
'
'Get menu data
FileToRead="e:\inetpub\wwwroot\bigcocksociety\members\contest_winners\2002_09\menu.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(FileToRead, 1, False)
do while thisfile.AtEndOfStream = false
seqnum=""
first=""
last=""
commas=0
linein = thisfile.readline
for i=1 to len(linein)
if mid(linein,i,1) = "," then
commas = commas + 1
Else
if commas=0 then
seqnum = seqnum + mid(linein,i,1)
end if
if commas=1 then
first = first + mid(linein,i,1)
end if
if commas=2 then
last = last + mid(linein,i,1)
end if
end if
next
%>
-
<% if gallery <> seqnum then %>
<%=seqnum%>
<% else %>
<%=seqnum%>
<% end if %>
<%
loop
thisfile.Close
set thisfile=nothing
set fs=nothing
%>
| Slide Show |