<%=Year(Date)%> Cape Cod League Leaders

<% Set Fs = Server.CreateObject("Scripting.FileSystemObject") If Fs.FileExists(Server.Mappath("/FTP/Data/88lead.txt")) Then 'copy the file to the stats directory and delete the original in the FTP directory Fs.CopyFile Server.Mappath("/FTP/Data/88lead.txt"), Server.MapPath("/Stats/Leaders.txt"), True Fs.DeleteFile Server.MapPath("/FTP/Data/88lead.txt"), True End If If Fs.FileExists(Server.Mappath("/Stats/Leaders.txt")) Then 'Set File = Fs.OpenTextFile(Server.MapPath("/Stats/Leaders.txt")) 'Content = File.ReadAll 'Set File = Nothing 'Response.Write "

" & Content & "

" Set FileIn = Fs.OpenTextFile(Server.MapPath("Leaders.txt")) response.Write("") While NOT FileIn.AtEndOfStream TextLine = FileIn.readline If len(TextLine) > 0 Then TextLine = REPLACE(Trim(TextLine), " ", " ") Response.Write("" & TextLine & "
") Else vCount = vCount + 1 'Response.Write(vCount&"
") If vCount = 5 Then Response.Write("

") TextLine = REPLACE(Trim(TextLine), " ", " ") Response.Write("" & TextLine & "
") Elseif vCount = 11 Then Response.Write("

") TextLine = REPLACE(Trim(TextLine), " ", " ") Response.Write("" & TextLine & "
") ElseIf vCount = 20 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("

") response.Write("") Else%>

Cape Cod League Leaders will be available
when the <%=Year(Date)%> Season is underway.

<%End If Set Fs = Nothing %>