|
<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
If FileObject.FileExists(Server.Mappath("..\ftp\necbl.88")) Then 'copy the file to the stats directory and delete the original in the FTP directory
FileObject.CopyFile Server.Mappath("..\ftp\necbl.88"), Server.MapPath("necbl.88"), True
Set FileIn = FileObject.OpenTextFile(Server.MapPath("necbl.88"))
While NOT FileIn.AtEndOfStream
TextLine = FileIn.readline
TextLine = REPLACE(TextLine, " ", " ")
TextLine = REPLACE(Textline, ".","")
If InStr(Textline, "BOURNE")>0 Then 'Look for the "Title" line of each team and replace it with a NAME anchor
Textline = REPLACE(Textline, "BOURNE", "BOURNE")
End If
If InStr(Textline, "BREWSTER")>0 Then
Textline = REPLACE(Textline, "BREWSTER", "BREWSTER")
End If
If InStr(Textline, "CHATHAM")>0 Then
Textline = REPLACE(Textline, "CHATHAM", "CHATHAM")
End If
If InStr(Textline, "COTUIT")>0 Then
Textline = REPLACE(Textline, "COTUIT", "COTUIT")
End If
If InStr(Textline, "FALMOUTH")>0 Then
Textline = REPLACE(Textline, "FALMOUTH", "FALMOUTH")
End If
If InStr(Textline, "HARWICH")>0 Then
Textline = REPLACE(Textline, "HARWICH", "HARWICH")
End If
If InStr(Textline, "HYANNIS")>0 Then
Textline = REPLACE(Textline, "HYANNIS", "HYANNIS")
End If
If InStr(Textline, "ORLEANS")>0 Then
Textline = REPLACE(Textline, "ORLEANS", "ORLEANS")
End If
If InStr(Textline, "WAREHAM")>0 Then
Textline = REPLACE(Textline, "WAREHAM", "WAREHAM")
End If
If InStr(Textline, "YARMOUTH-DENNIS")>0 Then
Textline = REPLACE(Textline, "YARMOUTH-DENNIS", "YARMOUTH-DENNIS")
End If
Response.Write(TextLine & " ") WEnd Else%> NECBL All-Star scores will be available on
|