| Date |
Loc. |
Opponent |
Result |
<%
sub FlipToFuture()
response.write(" " & chr(13))
response.write(" | " & chr(13))
response.write(" | " & chr(13))
response.write("" & chr(13))
response.write("" & chr(13))
response.write("" & chr(13))
response.write("| Date | " & chr(13))
response.write("Loc. | " & chr(13))
response.write("Opponent | " & chr(13))
response.write(" " & chr(13))
end sub
if IsDate(request.querystring("date")) then
today = DateValue(request.querystring("date"))
else
today = int(now())
end if
future = false
fileName = Server.MapPath(".") & "\varmints.txt"
set fileSys = Server.CreateObject("Scripting.FileSystemObject")
set schFile = fileSys.OpenTextFile(fileName)
do until schFile.AtEndOfStream
game = schFile.ReadLine
gmDate = left(game,8)
gmLocn = trim(mid(game,10,4))
gmVpts = int(trim(mid(game,15,2)))
gmOpts = int(trim(mid(game,18,2)))
gmTeam = trim(mid(game,21))
if (not future) then
if IsDate(gmDate) then
if (DateValue(gmDate) > today) then
future = true
FlipToFuture
end if
end if
end if
response.write("")
response.write("| " & gmDate & " | ")
response.write("" & gmLocn & " | ")
response.write("" & gmTeam & " | ")
if (not future) then
if (gmVpts > gmOpts) then
gmRslt = "W"
else
if (gmVpts < gmOpts) then
gmRslt = "L"
else
gmRslt = "T"
end if
end if
gmRslt = gmRslt & " " & gmVpts & "-" & gmOpts
response.write("" & gmRslt & " | " & chr(13))
end if
response.write(" " & chr(13))
loop
if (not future) then
FlipToFuture
end if
schFile.Close
set fileSys = Nothing
%>
|
Season Results