<%@ LANGUAGE="VBSCRIPT" %>
<%
'If Session("Username") = "" Then Response.Redirect("Password.asp")
%>
Team Standings
<%=Year(Date)%> Playoff Standings
Back to Stats Home Page
<%
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
If Fs.FileExists(Server.Mappath("/FTP/Data/88standP.txt")) Then 'copy the file to the stats directory and delete the original in the FTP directory
Fs.CopyFile Server.Mappath("/FTP/Data/88standP.txt"), Server.MapPath("/Stats/Playoffs/Standings.txt"), True
Fs.DeleteFile Server.MapPath("/FTP/Data/88standP.txt"), True
End If
If Fs.FileExists(Server.Mappath("/Stats/Playoffs/Standings.txt")) Then
'Set File = Fs.OpenTextFile(Server.MapPath("/Stats/Playoffs/Standings.txt"))
'Content = File.ReadAll
'Set File = Nothing
'Response.Write "" & Content & "
"
Set FileIn = Fs.OpenTextFile(Server.MapPath("Standings.txt"))
response.Write("")
vCount1 = 0
While NOT FileIn.AtEndOfStream
TextLine = FileIn.readline
If len(TextLine) > 0 Then
If Trim(TextLine) = "SEMI-FINALS" OR Trim(TextLine) = "FINALS" Then
TextLine = REPLACE(Trim(TextLine), " ", " ")
Response.Write("" & TextLine & "
")
Else
TextLine = REPLACE(Trim(TextLine), " ", " ")
Response.Write("" & TextLine & "
")
End If
Else
vCount = vCount + 1
'response.Write(vCount)
TextLine = REPLACE(Trim(TextLine), " ", " ")
Response.Write("" & TextLine & "
")
End If
WEnd
response.Write("")
Else%>
Team standings will be available
when the
<%=Year(Date)%> Playoffs are underway.
<%End If
Set Fs = Nothing
%>
©<%=Year(Date)%> Cape Cod Baseball League - All Rights Reserved