<% dim fsoObject, tsObject, filObject, textFile, mainHeading, mygetcontent, matchReport, mainNewsHeading, mainNewsItem, pictureName, nextMatch,caption set myGetContent = New getContent set fsoObject = Server.CreateObject("Scripting.FileSystemObject") set filObject = fsoObject.Getfile(Server.MapPath("\NewMiltonRFC\Upload\Home\Text\main.txt")) set tsObject = filObject.OpenAsTextStream textFile = tsObject.ReadAll mainHeading = myGetContent.getText(textFile,"**MAIN HEADING**") firstparagraph = myGetContent.getText(textFile,"**FIRST PARAGRAPH**") picture = myGetContent.getText(textFile,"**PICTURE**") caption = myGetContent.getText(textFile,"**CAPTION**") secondparagraph = myGetContent.getText(textFile,"**SECOND PARAGRAPH**") nextMatch = myGetContent.getText(textFile,"**NEXT MATCH**") set fsoObject = Nothing set tsObject = Nothing set filObject = Nothing set textfile = Nothing set fsoObject = Server.CreateObject("Scripting.FileSystemObject") set filObject = fsoObject.Getfile(Server.MapPath("\NewMiltonRFC\Upload\Home\Text\news.txt")) set tsObject = filObject.OpenAsTextStream textFile = tsObject.ReadAll dim noOfNewsItems noOfNewsItems = cInt(myGetContent.getText(textFile,"**NO OF ITEMS**")) dim newsheadings(100) dim newsitems(100) for i = 0 to noOfNewsItems - 1 newsheadings(i) = myGetContent.getText(textFile,"**HEADING " + cstr(i + 1) + "**") newsitems(i) = myGetContent.getText(textFile,"**ITEM " + cstr(i + 1) + "**") next set fsoObject = Nothing set tsObject = Nothing set filObject = Nothing set textfile = Nothing set fsoObject = Server.CreateObject("Scripting.FileSystemObject") set filObject = fsoObject.Getfile(Server.MapPath("\NewMiltonRFC\Upload\Home\Text\events.txt")) set tsObject = filObject.OpenAsTextStream textFile = tsObject.ReadAll dim noOfEventItems noOfEventItems = cInt(myGetContent.getText(textFile,"**NO OF ITEMS**")) dim eventheadings(100) dim eventitems(100) for i = 0 to noOfEventItems - 1 eventheadings(i) = myGetContent.getText(textFile,"**HEADING " + cstr(i + 1) + "**") eventitems(i) = myGetContent.getText(textFile,"**ITEM " + cstr(i + 1) + "**") next set fsoObject = Nothing set tsObject = Nothing set filObject = Nothing set textfile = Nothing %>
Rugby Links
 
 
 
 
 
 
 
 
 
 
Zurich Premiership Seven-a-side
   
Weather Coaching
 
News

© Crisp Websites Limited
Home | Links | Sponsors | About Us | Teams | Facilities | Officers | Directions | Membership Form | Honours | Policy | Login