<%
' Get Category ID
Group = Cint(Request.QueryString("Group"))
Stock = Cint(Request.QueryString("Stock"))
'get the name of this script
ScriptName = Request.ServerVariables("SCRIPT_NAME")
'Connect to the included MS Access database
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("_d_b_/shoprubstampsCOMau.mdb") & ";"
'Create All Recordsets
Set rs = Server.CreateObject("ADODB.Recordset") 'Paging Recordset
'Set how many records per page we want
Const NumPerPage = 10
'Retrieve what page we're currently on
If Request.QueryString("page") = "" then
CurrentPage = 1 'We're on the first page
Else
CurrentPage = CInt(Request.QueryString("page"))
End If
'Open our recordset (Access database)
strSQL ="Select * From td_products"
rs.Open strSQL, conn, 1, 1 'Opened as Read-Only
If Not rs.EOF Then
rs.MoveFirst
rs.PageSize = NumPerPage
TotalPages = rs.PageCount
'Set the absolute (current) page
rs.AbsolutePage = CurrentPage
End If
%>
Blackburn Rubber Stamps
Displaying pages
<%=CurrentPage%> of
<%=TotalPages%>
<%
'Display PREV page link, if appropriate
If Not CurrentPage = 1 Then
Response.Write " "
Else
Response.Write ""
End If
'Display NEXT page link
If Not CurrentPage = TotalPages Then
Response.Write ""
Else
Response.Write ""
End If
%>
Products
Price
Qty
Buy
<%
'Loop to display data on current page.
While Not rs.EOF and Count < rs.PageSize
'While Not rs.EOF
With Response
.Write "
" & vbCrLf
.Write "
" & vbCrLf
End With
Count = Count + 1
rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
