%
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

|
|
|

|
|
|
Compare our Top Partner Sites for Golf
Accessories
and save £££s now
|
|
|
|
Copyright 1996-2008 Sitefinders Net Ltd
|
|