<%@ LANGUAGE="VBSCRIPT" %> <% 'If Session("Username") = "" Then Response.Redirect("Password.asp") %> Team Standings

2003 Team Standings

Back to Stats Home Page

<%Set FileObject = Server.CreateObject("Scripting.FileSystemObject") If FileObject.FileExists(Server.Mappath("stand.88")) Then 'copy the file to the stats directory and delete the original in the FTP directory 'FileObject.CopyFile Server.Mappath("..\ftp\stand.88"), Server.MapPath("stand.88"), True Set FileIn = FileObject.OpenTextFile(Server.MapPath("stand.88")) 'For I = 1 to 3 ' TextLine = FileIn.readline 'Next While NOT FileIn.AtEndOfStream TextLine = FileIn.readline TextLine = REPLACE(TextLine, " ", " ") Response.Write("" & TextLine & "
") WEnd Else%>

Team standings will be available
when the 2003 Season is underway.

<%End If%>