<%@LANGUAGE="VBSCRIPT"%> <% 'response.write "manu = " & request("manu") & "
" 'response.write "biketype = " & request("biketype") & "
" 'response.write "price = " & request("price") & "
" %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_pemburpembury_STRING Recordset1.Source = "SELECT DISTINCT make FROM products" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_pemburpembury_STRING Recordset2.Source = "SELECT DISTINCT biketype FROM products" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim rsbike__MMColParam rsbike__MMColParam = "1" If (Request.QueryString("biketype") <> "") Then rsbike__MMColParam = Request.QueryString("biketype") End If %> <% If request("manu") <> "" AND request("manu") <> "Manufacturer" Then StrSql1 = " AND make = '" & request("manu") & "'" Else StrSql1 = "" End IF If request("biketype") <> "" AND request("biketype") <> "Type" Then StrSql2 = " AND biketype = '" & request("biketype") & "'" Else StrSql2 = "" End IF If request("price") <> "" AND request("price") <> "Price" Then StrSql3 = " AND price < " & request("price") Else StrSql3 = "" End IF If request("dsc") <> "" Then StrSort = "DESC" Else StrSort = "ASC" End IF IF StrSql1 = "" AND StrSql2 = "" AND StrSql3 = "" Then STRSQL = "SELECT * FROM products WHERE biketype = '" + Replace(rsbike__MMColParam, "'", "''") + "' ORDER BY price " & StrSort & "" Else STRSQL = "SELECT * FROM products WHERE price <> 0 " & StrSql1 & StrSql2 & StrSql3 & " ORDER BY price " & StrSort & "" End IF 'response.write STRSQL Dim rsbike Dim rsbike_numRows Set rsbike = Server.CreateObject("ADODB.Recordset") rsbike.ActiveConnection = MM_pemburpembury_STRING rsbike.Source = STRSQL rsbike.CursorLocation=3 'clientside rsbike.CursorType=3 'staticrecordset rsbike.PageSize=6 rsbike.CacheSize = rsbike.PageSize rsbike.LockType = 1 rsbike.Open() rsbike_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 6 Repeat1__index = 0 rsbike_numRows = rsbike_numRows + Repeat1__numRows %>

Click below to download the latest Felt Bicycles Catalogue Click below to download the latest Rocky Mountain Catalogue Click below to download the latest Probike Catalogue Click below to download the latest Zyro Catalogue

 

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %> <% rsbike.Close() Set rsbike = Nothing %>