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

2001 Playoff Pitching Leaders

Back to Stats Home Page

<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") 'If FileObject.FileExists(Server.Mappath("..\ftp\pleaders.88")) Then 'copy the file to the stats directory and delete the original in the FTP directory ' FileObject.CopyFile Server.Mappath("..\ftp\pleaders.88"), Server.MapPath("pleaders.88"), True Set FileIn = FileObject.OpenTextFile(Server.Mappath("pleaders.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%> <%'End If%>