<% elseif not Request.QueryString("Day") = "" then %>
<%elseif (Request.QueryString("Day")= "Friday") then %>
<%elseif (Request.QueryString("Day")= "Saturday") then %>
<%elseif (Request.QueryString("Day")= "Multi") then %>
<%elseif (Request.QueryString("Day")= "FullResults") then %>
logo
<%if (Request.QueryString("Day")= "Wednesday" OR Request.QueryString("Day")= "") then %>
<%elseif (Request.QueryString("Day")= "Thursday") then %>




<% dim Filename set Filename = Request.QueryString("Day") Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 ' Create a filesystem object Dim FSO set FSO = server.createObject("Scripting.FileSystemObject") ' Map the logical path to the physical system path Dim Filepath Filepath = Server.MapPath(Filename) if FSO.FileExists(Filepath) Then ' Get a handle to the file Dim file set file = FSO.GetFile(Filepath) ' Get some info about the file Dim FileSize FileSize = file.Size 'Response.Write "

File: " & Filename & " (size " & FileSize & "bytes)


" Response.Write "
"

    ' Open the file
    Dim TextStream
    Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)

    ' Set boolean for printing each line of text from the results file to the page
    Dim print
    print = False

    ' Read the file line by line
    Do While Not TextStream.AtEndOfStream
        Dim Line, contents
        Line = TextStream.readline
        

        ' Do something with "Line"
        ' Check if the current line is between the pre tags
        if InStr(1, LCase(Line), "
") <> 0 then
            Line = "" ' Don't print the pre tags
            print = True
        elseif InStr(1, LCase(Line), "
") <> 0 then print = False end if ' Only print the lines that are between the pre tags if print then ' Remove header lines if InStr(1, Line, "Delta Timing Group") = 0 and _ InStr(1, Line, "2011 Canadian Track and Field Championships") = 0 and _ InStr(1, Line, "Licensed to Foothills Track Facility - Site License") = 0 and _ InStr(1, Line, "Championnats canadiens d'athlétisme 2011") = 0 and _ InStr(1, Line, "HY-TEK's Meet Manager") = 0 and _ InStr(1, Line, "Meet Program") = 0 and _ InStr(1, Line, "Foothills Track Facility - Site License") = 0 and _ InStr(1, Line, "Foothills Athletic Park, Calgary, AB") = 0 then Response.write Line & vbCRLF end if end if Loop Response.Write "

" Set TextStream = nothing Else Response.Write "

File " & Filename &_ " does not exist

" End If Set FSO = nothing %> <% end if %>