<%
'Get all the parts for this manufacturer
SQL = "SELECT * FROM products where showPRoducts = Yes ORDER BY ProductsName"
set rs=server.createobject("ADODB.recordset")
'Set how many records per page we want
Const NumPerPage =20
'Set the cursor location property
RS.CursorLocation = 3
'Set the cache size = to the # of records/page
RS.CacheSize = NumPerPage
'Retrieve what page we're currently on
If Request("CurPage") = "" then
CurPage = 1 'We're on the first page
Elseif Request("CurPage") <> "" then
CurPage = Request("CurPage")
End If
rs.open SQL,conn
If not (RS.EOF) then
flag = true 'indicates to show next/prev buttons
RS.MoveFirst
RS.PageSize = NumPerPage
'Get the max number of pages
TotalPages = RS.PageCount
'Set the absolute page
RS.AbsolutePage = CurPage
else
flag = false
end if
%>
United Contact (1985) Inc. :: About Us
<% if not (RS.EOF or RS.BOF) then
for intRec=1 To RS.PageSize
if not RS.EOF Then %>
<% if rs("productsImage") <> "" then %>
">
<% end if %>
