1998 Team Stats

Back to Stats Home Page

Bourne | Brewster | Chatham | Cotuit | Falmouth | Harwich | Hyannis | Orleans | Wareham | Yarmouth-Dennis <% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") 'Create the file object Set FileIn = FileObject.OpenTextFile(Server.MapPath("tmstat.98")) '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 %>

Back to Top