<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'database config Dim strservername, strdbname, strdbusername, strdbpassword, rs, strsql, db strservername = "mysql13.streamline.net" strdbname = "ukpsfcom1" strdbusername = "ukpsfcom1" strdbpassword = "s84495" 'database connection subroutine sub dbconnect(blnswitch) Select Case blnswitch Case 1 'mysql connection string strConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & strservername & ";UID=" & strdbusername & ";PWD=" & strdbpassword & ";DATABASE=" & strdbname set db = CreateObject("ADODB.Connection") db.Errors.Clear Err.Clear db.Open strConnString Case 0 db.close set db = nothing End Select end sub %> UKPSF :: <%= year(now) %> Accredited Venue Listing
<% if request.querystring("region") <> "" Then %> Back to Map
Choose a location: #'+ document.all.siteloc.value;">
<% sql = "select * from ukpsf_sites A join ukpsf_sitetoregion B on B.siteid = A.siteid where B.region='" & request.querystring("region") & "' and accredited = 1 order by sitelocation;" set rs=db.execute(sql) if not rs.eof then response.write "" do while not rs.eof %> <% if rs("siteemail") <> "" then %> <% end if %> <% rs.movenext loop response.write "
<%= rs("sitename") %> ("><%= rs("sitelocation") %>) <% if rs("siteurl") <> "" Then %>   " target="_blank"> <% end if %>   #top">Top
<% if rs("accredited") = 1 Then %>
<% end if %>
<% if rs("sitetext") <> "" then %> <%= rs("sitetext") %>

<% end if %>
Contact: <%= rs("sitecontact") %> on <%=rs("sitephone") %>
Email: "><%= rs("siteemail") %>


" else response.write "There are no accredited sites for this region!" end if dbconnect(0) else %>

Featured site: National Paintball Games - Sidcup
<% end if %>