<%
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
%>
<%
If request.querystring("keyword")<>"" Then
var1="http://financialservices.overture.com/d/search/p/financialservices/xml/uk/?mkt=uk&Partner=financialservices_xml_uk_sitefinders&Keywords="&request.querystring("keyword")
else
var1="http://financialservices.overture.com/d/search/p/financialservices/xml/uk/?mkt=uk&Partner=financialservices_xml_uk_sitefinders&Keywords=golfclubs"
end if
%>
<%
donkey=request.querystring("keyword")
if donkey = "" then
donkey = "golfclubs"
End if
%>
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
