2001 Team Stats

<%

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")							'Create the file object

'If FileObject.FileExists(Server.Mappath("..\ftp\tmstat.88")) Then  'copy the file to the stats directory and delete the original in the FTP directory
'	FileObject.CopyFile Server.Mappath("..\ftp\tmstat.88"), Server.MapPath("tmstat.88"), True

Set FileIn = FileObject.OpenTextFile(Server.MapPath("tmstat.88"))	'open the file
While NOT FileIn.AtEndOfStream																'Loop and read 'til the End of FIle
	TextLine = FileIn.readline																'Read in One Line
'   If InStr (Textline, "FISH PIER")>0 Then                                                  'Do not display Copywrite line
'   Else
'	TextLine = REPLACE(TextLine, " ", " ")												'Replace al the spaces with HTML spaces
    TextLine = REPLACE(TextLine, "-", "/")                                                  'Replaced the hyphen because it caused a line break
	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 Braves")
	End If
	If InStr(Textline, "BREWSTER")>0 Then
	 Textline = REPLACE(Textline, "BREWSTER", "Brewster Whitecaps
")
	End If		  
	If InStr(Textline, "CHATHAM")>0 Then
	 Textline = REPLACE(Textline, "CHATHAM", "Chatham Athletics
")
	End If		  
	If InStr(Textline, "COTUIT")>0 Then
	 Textline = REPLACE(Textline, "COTUIT", "Cotuit Kettleers
")
	End If		  
	If InStr(Textline, "FALMOUTH")>0 Then
	 Textline = REPLACE(Textline, "FALMOUTH", "Falmouth Commodores
")
	End If		  
	If InStr(Textline, "HARWICH")>0 Then
	 Textline = REPLACE(Textline, "HARWICH", "Harwich Mariners
")
	End If		  
	If InStr(Textline, "HYANNIS")>0 Then
	 Textline = REPLACE(Textline, "HYANNIS", "Hyannis Mets
")
	End If		  
	If InStr(Textline, "ORLEANS")>0 Then
	 Textline = REPLACE(Textline, "ORLEANS", "Orleans Cardinals
")
	End If		  
	If InStr(Textline, "WAREHAM")>0 Then
	 Textline = REPLACE(Textline, "WAREHAM", "Wareham Gatemen
")
	End If		  
	If InStr(Textline, "YARMOUTH/DENNIS")>0 Then
	 Textline = REPLACE(Textline, "YARMOUTH/DENNIS", "Yarmouth-Dennis Red Sox
")
	End If		  
	Response.Write(TextLine & "
")														'Write the text line to the screen, get another one
'   End If
WEnd
'Else%>

<%'End If%>