Alyth Golf Club

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim fixtures__MMColParam fixtures__MMColParam = "March" If (Request("MM_EmptyValue") <> "") Then fixtures__MMColParam = Request("MM_EmptyValue") End If %> <% Dim fixtures Dim fixtures_numRows Set fixtures = Server.CreateObject("ADODB.Recordset") fixtures.ActiveConnection = MM_agc2004_STRING fixtures.Source = "SELECT * FROM fixtures WHERE Month = '" + Replace(fixtures__MMColParam, "'", "''") + "' ORDER BY Date ASC" fixtures.CursorType = 0 fixtures.CursorLocation = 2 fixtures.LockType = 1 fixtures.Open() fixtures_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 fixtures_numRows = fixtures_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Alyth Golf Club

Gents Competitions - September 2008

March April May June July August September October
<% While ((Repeat1__numRows <> 0) AND (NOT fixtures.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 fixtures.MoveNext() Wend %>

Date Description Draws Results
Qualifiers for Medal Winners Medal

Mon 1st Seniors - Alyth v. Edzell                                                  11.15 for 12.00

Wed 3rd Medal

Thu 4th Seniors Reciprocal - Balbirnie                                                         11.00

Sat 6th Medal & Leyferith Shield 3rd Round

Sun 7th Medal & Leyferith Shield 4th Round

Wed 10th Sweep

Fri 12th Hall of Fame Championship - Area Qualifier                            10.00 - 2.00

Sat 13th Drawn Spoon
07.00 - 10.00
12.00 - 13.00
16.00 - 17.00

Sun 14th Alyth v. Drumoig                                                                       Home 1.00

Mon 15th Seniors - Alyth v. Arbroath                                              11.15 for 12.00

Wed 17th Sweep

Thur 18th Seniors v. Ladies                                                         Shotgun Start 8.30

Sat 20th Medal

Sun 21st Medal

Wed 24th Sweep

Thur 25th Midlands Alliance                                                                   8.30 - 12.30

Sat 27th Tom Melville's Pro Day

Sun 28th Medal Winners Medal                Players

THE ALYTH GOLF CLUB
PITCROCKNIE, ALYTH, PERTHSHIRE, SCOTLAND, PH11 8HF
TEL: 01828 632268 FAX: 01828 633491 PROFESSIONAL: 01828 632411
EMAIL: info@alythgolfclub.co.uk

<% fixtures.Close() Set fixtures = Nothing %> tm"> <% fixtures.Close() Set fixtures = Nothing %>