<%
Dim DataConn
Dim CmdPopulateStates
Dim CmdPopulateType
Dim CmdPopulatePrice
Dim SQL
Set DataConn = Server.CreateObject("ADODB.Connection")
Set CmdPopulateStates = Server.CreateObject("ADODB.Recordset")
Set CmdPopulateType = Server.CreateObject("ADODB.Recordset")
Set CmdPopulatePrice = Server.CreateObject("ADODB.Recordset")
DataConn.Open "DSN=Golfclubs"
SQL = "SELECT Distinct mastercategory from products"
CmdPopulateType.Open SQL, DataConn
SQL = "SELECT Distinct displayprice from products"
CmdPopulatePrice.Open SQL, DataConn
%>
<%
DIM CmdPopulateLocations
DIM CmdPopulateCourses
'DIM SQL
Set CmdPopulateLocations = Server.CreateObject("ADODB.Recordset")
Set CmdPopulateCourses = Server.CreateObject("ADODB.Recordset")
varlocations = request.form("location")
SQL = "SELECT Distinct Location from Golf"
CmdPopulateLocations.Open SQL, DataConn
varcourses = request.form("course_nam")
SQL = "SELECT Distinct Course_Nam from Golf"
if varlocations <> "" then sql = sql & " where location = '"& varlocations &"'"
CmdPopulateCourses.Open SQL, DataConn
'response.write sql
%>
Golfclubs.co.uk - Golf, Clubs, Golf Companies, Sports Wear, Golf Balls, Golf Clubs, Golf Courses and much more brought to you by SFN Net Ltd
