New Milton RFC

<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%> New Milton RFC <% 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 %>

Club Facilities

The clubs extensive grounds are easily accessible by standard vehicles, and provide an excellent venue for Fairs, Rally's, BBQ's
and events requiring a large open area, such as Caravan Club Rally's and Car Boot Sales. The grounds are available for hire from May through August.

The Clubhouse has an excellent bar, opening into a modern conservatory with views over the grounds. It is an affordable
and pleasant venue for receptions, parties, disco's and a wide range of other social functions.

The Club is happy to approach it's members on behalf of clients who require temporary staff, to assist with the setting up of an
event or the organisation of parking or security.

To arrange to view the facilties or make a reservation, please contact:

Nick Olsen Tel: 01425 617000
Mob: 07802 912274

Dave Ewen Tel: 01425 619346
Mob: 07979 391584