<%@ LANGUAGE="VBSCRIPT" %>
<%
'If Session("Username") = "" Then Response.Redirect("Password.asp")
%>
Team Standings
1999 Team Standings
<%Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
'If FileObject.FileExists(Server.Mappath("..\ftp\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 5
TextLine = FileIn.readline
Next
While NOT FileIn.AtEndOfStream
TextLine = FileIn.readline
TextLine = REPLACE(TextLine, " ", " ")
Response.Write("" & TextLine & "
")
WEnd
'Else%>
<%'End If%>