<%@ LANGUAGE="VBSCRIPT" %>
<%
strcondition = 1
PROV = Request.Querystring("PROV")
if len(trim(prov)) < 1 then
prov = "AB"
end if
'Server.MapPath("database_749/curling.mdb")
' Set Conn = Server.CreateObject("ADODB.Connection")
' Conn.Open "curling"
'Server.MapPath("database_749/")
'Dim ConnectionString
'ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" &_
' "DBQ=database_749/curling.mdb;DefaultDir=;UID=;PWD=;"
'response.write(Server.MapPath("database_749/curling.mdb") & "
")
'Dim Connection
'Set Connection = Server.CreateObject("ADODB.Connection")
'Connection.Open ConnectionString
'#######################################
'#############added by tech support here
'##############
Dim DBPath,objRS,objConn
DBPath="/database_749/curling.mdb"
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.mappath(DBPath)
objConn.Open
Set cRs=Server.CreateObject("ADODB.Recordset")
cRs.ActiveConnection = objConn
cSql = "Select * from master_cclist Where Province = '" & prov & "' Order by CurlingClub"
cRs.Open cSql
if Prov = "AB" then
clubs = "Alberta"
end if
if Prov = "BC" then
clubs = "British Columbia"
end if
if Prov = "SK" then
clubs = "Saskatchewan"
end if
if Prov = "MB" then
clubs = "Manitoba"
end if
if Prov = "ON" then
clubs = "Ontario"
end if
if Prov = "PQ" then
clubs = "Quebec"
end if
if Prov = "PEI" then
clubs = "Prince Edward Island"
end if
if Prov = "NB" then
clubs = "New Brunswick"
end if
if Prov = "NS" then
clubs = "Nova Scotia"
end if
if Prov = "NFLD" then
clubs = "Newfoundland"
end if
if Prov = "TERR" then
clubs = "North West Territories and Yukon"
end if
%>
Table of Contents
<% do While not cRs.EOF %>
<% id = cRs("ContactID") %>
<% curlingclub = cRs("CurlingClub") %>
<% city = cRs("City") %>
<% website = cRs("WebAddress") %>
<% if len(website) > 1 then %>
| <% = CurlingClub %> |
<% else %>
| <% = CurlingClub %> |
<% end if %>
<% cRs.MoveNext %>
<% loop %>
<% cRs.close %>