Dim iPageSize 'Number of rows in page Dim iPageCount 'The number of pages we'll get back Dim iPageCurrent 'The page we want to show Dim strParam 'Passing a parameter Dim strSQL 'SQL command Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim I 'Standard looping var
Dim CurCatalog
iPageSize = 5 'Change this integer to the number of records to display on page
' Retrieve page to show or default to 1 If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If
'Read in parameters for your query.
If Request.QueryString("intcatalogID") = "" Then strParam = Request.QueryString("strSubCatalogID") Else strParam = Request.QueryString("intcatalogID") End If ' Build SQL String using the parameters if Request.QueryString("intcatalogID") <> "" then strSQL = "SELECT * FROM products WHERE catalogID =" &strParam else
strSQL = "SELECT * FROM products WHERE subCatalogID =" &strParam& " and catalogID =" &strCurCatalog
end if ' Create and open our connection Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.