" & vbCrLf Next 'I Response.Write vbTab & "" & vbCrLf ' Increment the number of records we've shown iRecordsShown = iRecordsShown + 1 ' Can't forget to move to the next record! objPagingRS.MoveNext Loop ' All done - close table Response.Write "" & vbCrLf End If ' Close DB objects and free variables objPagingRS.Close Set objPagingRS = Nothing objPagingConn.Close Set objPagingConn = Nothing 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ' Show "previous" and "next" page links which pass the page to view ' and any parameters needed to rebuild the query. You could just as ' easily use a form but you'll need to change the lines that read ' the info back in at the top of the script. %> <% if iPageCount >"1" then %>

<% ' BEGIN USER CONSTANTS Dim CONN_STRING Dim CONN_USER Dim CONN_PASS ' I'm using a DSN-less connection. ' To use a DSN, the format is shown on the next line: CONN_STRING = "DSN=crimpproductnew;" ' This DB is unsecured, o/w you'd need to specify something here CONN_USER = "" CONN_PASS = "" ' BEGIN RUNTIME CODE ' Declare our vars Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show Dim strOrderBy 'A fake parameter used to illustrate passing them Dim strSQL 'SQL command to execute Dim objPagingConn 'The ADODB connection object Dim objPagingRS 'The ADODB recordset object Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim I 'Standard looping var ' Get parameters iPageSize = 10 ' You could easily allow users to change this ' Retrieve page to show or default to 1 If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If If Request.QueryString("order") = "" Then strOrderBy = "srt" Else strOrderBy = Request.QueryString("order") End If ' Build our SQL String using the parameters we just got. 'strSQL = "SELECT * FROM products ORDER BY " & strOrderBy & ";" 'strSQL = "SELECT * FROM products WHERE special = 'Yes' ORDER BY " & strOrderBy & ";" 'strSQL = "SELECT * FROM products WHERE manu = " & request.querystring("manu") & " ORDER BY " & strOrderBy & ";" 'strSQL = "SELECT * FROM products WHERE prodcategory = " & request.querystring("prodcat") & " ORDER BY " & strOrderBy & ";" 'strSQL = "SELECT * FROM products WHERE online='yes' and prodcategory = " & request.querystring("prodcat") & " AND parentcat = " & request.querystring("parentcat") & " ORDER BY " & strOrderBy & ";" strSQL = "SELECT * FROM products WHERE online='yes' and parentcat = " & request.querystring("parentcat") & " AND subtool = '" & request.querystring("subtool") & "' ORDER BY " & strOrderBy & ";" ' Now we finally get to the DB work... ' Create and open our connection set objPagingConn=server.createobject("adodb.connection") objPagingConn.Open "crimpproductnew" set objPagingRS=server.CreateObject("adodb.recordset") objPagingRS.CursorLocation=3 'clientside objPagingRS.CursorType=3 'staticrecordset objPagingRS.PageSize=ipagesize objPagingRS.Open strSQL, objPagingConn ' Get the count of the pages using the given page size iPageCount = objPagingRS.PageCount iRC = objPagingRS.RecordCount ' If the request page falls outside the acceptable range, ' give them the closest match (1 or max) If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 ' Check page count to prevent bombing when zero results are returned! If iPageCount = 0 Then Response.Write "Currently we do not have any products in this category" Else ' Move to the selected page objPagingRS.AbsolutePage = iPageCurrent ' Start output with a page x of n line %> &parentcatname=<% =parentcatname %>&prodcategory=<% =Request.querystring("prodcategory") %>"><% =Request.querystring("parentcatname") %> / <% =Request.querystring("prodname") %>   <% if iPageCount >"1" then %> Further pages: <%end if %>   <%If iPageCurrent > 1 Then %> &parentcat=<% =request.querystring("parentcat") %>&parentcatname=<% =request.querystring("parentcatname") %>&prodname=<% =request.querystring("prodname") %>&subtool=<% =request.querystring("subtool") %>&page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&subsort=<% =request.querystring("subsort")%>"> <% End If ' You can also show page numbers: For I = 1 To iPageCount If I = iPageCurrent Then %> <% if iPageCount >"1" then %> <%= I %> <% end if %> <% Else %> &parentcat=<% =request.querystring("parentcat") %>&parentcatname=<% =request.querystring("parentcatname") %>&prodname=<% =request.querystring("prodname") %>&subtool=<% =request.querystring("subtool") %>&page=<%= I %>&order=<%= Server.URLEncode(strOrderBy) %>&subsort=<% =request.querystring("subsort")%>"> <%= I %> <% End If Next 'I If iPageCurrent < iPageCount Then %> &parentcat=<% =request.querystring("parentcat") %>&parentcatname=<% =request.querystring("parentcatname") %>&prodname=<% =request.querystring("prodname") %>&subtool=<% =request.querystring("subtool") %>&page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&subsort=<% =request.querystring("subsort")%>"> <% End If ' END RUNTIME CODE %> <% ' Spacing Response.Write vbCrLf 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx %> <% 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ' Loop through our records and ouput 1 row per record iRecordsShown = 0 Do While iRecordsShown < iPageSize And Not objPagingRS.EOF Response.Write vbTab & "" & vbCrLf For I = 0 To objPagingRS.Fields.Count - 142 %> <%if objPagingRS("lrgimage")="noimage.jpg" then %>&width=108"><% End if %> <%if objPagingRS("lrgimage")<>"noimage.jpg" then %> ">&width=108" alt="Click Here For An Enlarged View And More Details"><% End if %> <%if objPagingRS("special")="yes" then %><% End if %> <%if objPagingRS("lrgimage")<>"noimage.jpg" then %>"><% End if %> <% =objPagingRS("prodname")%> <% =objPagingRS("prodref")%> <%replacetext objPagingRS("description"), chr(13), "", " ", formatted_text3a, 1 replacetext formatted_text3a, "·", "", "·", formatted_text3b, 2 replacetext formatted_text3b, "m3", "", "m3", formatted_text3c, 2%> <%=formatted_text3c%> <%formatted_text3a="" formatted_text3b="" formatted_text3c=""%> <%if objPagingRS("attrib1")<>"" then %> <% else %> <% End if %> <%if objPagingRS("attrib1")<>"" then %> "><% =objPagingRS("attrib1")%> <% End if %> <%if objPagingRS("attrib2")<>"" then %> "><% =objPagingRS("attrib2")%> <% End if %> <%if objPagingRS("attrib3")<>"" then %> "><% =objPagingRS("attrib3")%> <% End if %> <%if objPagingRS("attrib4")<>"" then %> "><% =objPagingRS("attrib4")%> <% End if %> <%if objPagingRS("attrib5")<>"" then %> "><% =objPagingRS("attrib5")%> <% End if %> <%if objPagingRS("attrib6")<>"" then %> "><% =objPagingRS("attrib6")%> <% End if %> <%if objPagingRS("attrib7")<>"" then %> "><% =objPagingRS("attrib7")%> <% End if %> <%if objPagingRS("attrib8")<>"" then %> "><% =objPagingRS("attrib8")%> <% End if %> <%if objPagingRS("attrib9")<>"" then %> "><% =objPagingRS("attrib9")%> <% End if %> <%if objPagingRS("attrib10")<>"" then %> "><% =objPagingRS("attrib10")%> <% End if %> <%if objPagingRS("attrib11")<>"" then %> "><% =objPagingRS("attrib11")%> <% End if %> <%if objPagingRS("attrib12")<>"" then %> "><% =objPagingRS("attrib12")%> <% End if %> <%if objPagingRS("attrib13")<>"" then %> "><% =objPagingRS("attrib13")%> <% End if %> <%if objPagingRS("attrib14")<>"" then %> "><% =objPagingRS("attrib14")%> <% End if %> <%if objPagingRS("attrib15")<>"" then %> "><% =objPagingRS("attrib15")%> <% End if %> <%if objPagingRS("attrib16")<>"" then %> "><% =objPagingRS("attrib16")%> <% End if %> <%if objPagingRS("attrib17")<>"" then %> "><% =objPagingRS("attrib17")%> <% End if %> <%if objPagingRS("attrib18")<>"" then %> "><% =objPagingRS("attrib18")%> <% End if %> <%if objPagingRS("attrib19")<>"" then %> "><% =objPagingRS("attrib19")%> <% End if %> <%if objPagingRS("attrib20")<>"" then %> "><% =objPagingRS("attrib20")%> <% End if %> <% Dim showprodpricea %> <% Dim showprodpriceb %> <% Dim showprodpricec %> <% Dim showprodpriced %> <% Dim showprodpricee %> <% Dim showprodpricef %> <% Dim showprodpriceg %> <% Dim showprodpriceh %> <% Dim showprodpricei %> <% Dim showprodpricej %> <% showprodpricea = objPagingRS("prodpricea") %> <% showprodpriceb = objPagingRS("prodpriceb") %> <% showprodpricec = objPagingRS("prodpricec") %> <% showprodpriced = objPagingRS("prodpriced") %> <% showprodpricee = objPagingRS("prodpricee") %> <% showprodpricef = objPagingRS("prodpricef") %> <% showprodpriceg = objPagingRS("prodpriceg") %> <% showprodpriceh = objPagingRS("prodpriceh") %> <% showprodpricei = objPagingRS("prodpricei") %> <% showprodpricej = objPagingRS("prodpricej") %> <% Dim showexchangepricea %> <% Dim showexchangepriceb %> <% Dim showexchangepricec %> <% Dim showexchangepriced %> <% Dim showexchangepricee %> <% Dim showexchangepricef %> <% Dim showexchangepriceg %> <% Dim showexchangepriceh %> <% Dim showexchangepricei %> <% Dim showexchangepricej %> <% showexchangepricea = showprodpricea * currratio %> <% showexchangepriceb = showprodpriceb * currratio %> <% showexchangepricec = showprodpricec * currratio %> <% showexchangepriced = showprodpriced * currratio %> <% showexchangepricee = showprodpricee * currratio %> <% showexchangepricef = showprodpricef * currratio %> <% showexchangepriceg = showprodpriceg * currratio %> <% showexchangepriceh = showprodpriceh * currratio %> <% showexchangepricei = showprodpricei * currratio %> <% showexchangepricej = showprodpricej * currratio %> <%if objPagingRS("prodpriceb")="0" then %> <% if objPagingRS("prodnamea")<>"" then%> <% =objPagingRS("prodnamea")%> <% end if %> <%=shwchkcurr%> <% if chkcurr<>"GBP" then %> <% Response.Write FormatNumber(showexchangepricea, 2)%> <% end if %> <% if chkcurr="GBP" then %> <% Response.Write FormatNumber(showexchangepricea, 2)%> <% end if %> <% End if %> <%if objPagingRS("prodpriceb")<>"0" then %> <% if chkcurr<>"GBP" then %> <%if objPagingRS("prodpricea")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricea, 2)%>"><% =objPagingRS("prodnamea")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricea, 2)%> <% End if %> <%if objPagingRS("prodpriceb")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriceb, 2)%>"><% =objPagingRS("prodnameb")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriceb, 2)%> <% End if %> <%if objPagingRS("prodpricec")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricec, 2)%>"><% =objPagingRS("prodnamec")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricec, 2)%> <% End if %> <%if objPagingRS("prodpriced")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriced, 2)%>"><% =objPagingRS("prodnamed")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriced, 2)%> <% End if %> <%if objPagingRS("prodpricee")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricee, 2)%>"><% =objPagingRS("prodnamee")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricee, 2)%> <% End if %> <%if objPagingRS("prodpricef")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricef, 2)%>"><% =objPagingRS("prodnamef")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricef, 2)%> <% End if %> <%if objPagingRS("prodpriceg")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriceg, 2)%>"><% =objPagingRS("prodnameg")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriceg, 2)%> <% End if %> <%if objPagingRS("prodpriceh")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriceh, 2)%>"><% =objPagingRS("prodnameh")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriceh, 2)%> <% End if %> <%if objPagingRS("prodpricei")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricei, 2)%>"><% =objPagingRS("prodnamei")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricei, 2)%> <% End if %> <%if objPagingRS("prodpricej")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricej, 2)%>"><% =objPagingRS("prodnamej")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricej, 2)%> <% End if %> <% End if %> <% if chkcurr="GBP" then %> <%if objPagingRS("prodpricea")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricea, 2)%>"><% =objPagingRS("prodnamea")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricea, 2)%> <% End if %> <%if objPagingRS("prodpriceb")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriceb, 2)%>"><% =objPagingRS("prodnameb")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriceb, 2)%> <% End if %> <%if objPagingRS("prodpricec")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricec, 2)%>"><% =objPagingRS("prodnamec")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricec, 2)%> <% End if %> <%if objPagingRS("prodpriced")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriced, 2)%>"><% =objPagingRS("prodnamed")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriced, 2)%> <% End if %> <%if objPagingRS("prodpricee")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricee, 2)%>"><% =objPagingRS("prodnamee")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricee, 2)%> <% End if %> <%if objPagingRS("prodpricef")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricef, 2)%>"><% =objPagingRS("prodnamef")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricef, 2)%> <% End if %> <%if objPagingRS("prodpriceg")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriceg, 2)%>"><% =objPagingRS("prodnameg")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriceg, 2)%> <% End if %> <%if objPagingRS("prodpriceh")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriceh, 2)%>"><% =objPagingRS("prodnameh")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriceh, 2)%> <% End if %> <%if objPagingRS("prodpricei")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricei, 2)%>"><% =objPagingRS("prodnamei")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricei, 2)%> <% End if %> <%if objPagingRS("prodpricej")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricej, 2)%>"><% =objPagingRS("prodnamej")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricej, 2)%> <% End if %> <% End if %> <% End if %> <% if objPagingRS("descriptionlong")<>"" then %> "> <% end if %> <% if objPagingRS("crosssell1")<>"Select" then %> "> "> "> "> "> <% end if %> <% if objPagingRS("crosssell1")="Select" then %> <% end if %> "> <%if objPagingRS("prodpriceb")="0" then %> <% if chkcurr="GBP" then %> <% End if %> <% if chkcurr="" then %> <% End if %> <% if chkcurr="US$" then %> <% End if %> <% if chkcurr="Euro" then %> <% End if %> <% End if %> <%if objPagingRS("prodpriceb")="0" then %> "> <% End if %> "> "> "> "> "> <% 'Response.Write vbTab & vbTab & "

" 'Response.Write objPagingRS.Fields(I) 'Response.Write "HS

&parentcatname=<% =parentcatname %>&prodcategory=<% =Request.querystring("prodcategory") %>"><% =Request.querystring("parentcatname") %> / <% =Request.querystring("prodname") %> - Page <%= iPageCurrent %> of <%= iPageCount %>