<%@ LANGUAGE="VBSCRIPT" %>
<%
'If Session("Username") = "" Then Response.Redirect("Password.asp")
%>
Team Standings
2006 Team Standings
Back
to Stats Home Page
<%
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
'If Fs.FileExists(Server.Mappath("/FTP/Data/88stand.txt")) Then 'copy the file to the stats directory and delete the original in the FTP directory
' Fs.CopyFile Server.Mappath("/FTP/Data/88stand.txt"), Server.MapPath("/Stats/Standings.txt"), True
' Fs.DeleteFile Server.MapPath("/FTP/Data/88stand.txt"), True
'End If
If Fs.FileExists(Server.Mappath("Standings.txt")) Then
'Set File = Fs.OpenTextFile(Server.MapPath("/Stats/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
TextLine = REPLACE(Trim(TextLine), " ", " ")
If TextLine = "YESTERDAYS RESULTS" Then
Response.Write("" & TextLine & "
")
Else
Response.Write("" & TextLine & "
")
End If
Else
vCount = vCount + 1
If vCount = 4 Then
Response.Write("")
TextLine = REPLACE(Trim(TextLine), " ", " ")
Response.Write("" & TextLine & "
")
Elseif vCount = 5 Then
Response.Write(" |
")
TextLine = REPLACE(Trim(TextLine), " ", " ")
Response.Write("" & TextLine & "
")
Else
TextLine = REPLACE(Trim(TextLine), " ", " ")
Response.Write("" & TextLine & "
")
End If
ENd If
WEnd
response.Write("")
Else%>
Team standings will be available
when the
<%=Year(Date)%> Season is underway.
<%End If
Set Fs = Nothing
%>
©<%=Year(Date)%> Cape Cod Baseball League - All Rights Reserved