<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
If FileObject.FileExists(Server.Mappath("leaders.88")) Then 'copy the file to the stats directory and delete the original in the FTP directory
'FileObject.CopyFile Server.Mappath("..\ftp\leaders.88"), Server.MapPath("leaders.88"), True
Set FileIn = FileObject.OpenTextFile(Server.Mappath("leaders.88"))
'Set FileIn = FileObject.OpenTextFile("D:\virtuals\capecodbaseball\htdocs\stats\leaders.88")
For I = 1 to 3
TextLine = FileIn.readline
Next
While NOT FileIn.AtEndOfStream
TextLine = FileIn.readline
TextLine = Mid(Textline,72)
TextLine = REPLACE(TextLine, " ", " ")
Response.Write(TextLine & "
")
WEnd
Else%>
Batting leaders will be available
when the
2003 Season is underway.
<%End If%>