<% 'initialise objects and variables dim conn, strsql, rsfulllist, rscomplist, rsresultlist, strMDBPath, comp, compname, lastcomp, i, player set conn=server.createobject("ADODB.Connection") set rsfulllist=server.createobject("ADODB.Recordset") set rsresultlist=server.createobject("ADODB.Recordset") strMDBpath = Server.MapPath("databases/pgags.mdb") 'direct connection conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strMDBPath %> <%strsql = "SELECT NewsID, N_Date, N_Heading, N_Text, N_Hide, N_Page " strsql = strsql & "FROM News " strsql = strsql & "WHERE N_Hide <> -1 AND N_Page = '0' " strsql = strsql & "ORDER BY N_Date DESC" 'response.write (strsql) rsfulllist.open strsql,conn,1,2 %>
Home / Tournaments / Pro-Ams / About Us / Contact Us / Entry List / Draw List

Gloucester and Somerset
Professional Golfers Association

Courses we visit

Link to PGA info

Burnham & Berrow
Minehead
Minchinhampton Old Course
Weston Super Mare
Forest Hills
Thornbury
Saltford

Mendip
Knowle
Stockwood Vale
Brean
Enmore Park
Stinchcombe Hill
Michinhampton New Course

Shirehampton Park
The Kendleshire
The Bristol
Bath
Cotswold Hills
Cleeve Hill
Farrington
Long Sutton
<% 'close resources used rsfulllist.close rsresultlist.close conn.close 'clean up set rsfulllist=nothing set rsresultlist=nothing set conn=nothing response.write "
" %>
  ClearlyFaster Websites
<% Sub subWriteNewsHead(NHeading, ECount) if NHeading = "" then response.write ("

") else response.write ("

" & NHeading & "") response.write ("
") end if End Sub %> <% Sub subWriteNewsLine(NText) response.write ("" & NText & "") End Sub %>

Copyright © Gloucester and Somerset PGA 2005 -