Limiting items displayed per page? 2

lynxvoodoo · Mar 9, 2003

Hi!

Just out of interest I have been learning how to create a shopping cart, thanks to the various sources available off the net. The problem though is that I have been looking at the follwoing code which displays items from a database BUT how can I limit the number of items displayed per page? e.g 5 items per page with a "Previous" & "Next" button.

Any help would be very much appreciated.

Code --->


<%
'===================================================
'a.shopKart 2.0
'(c) 1999-2000 Katrien Dermaut De Graeve - URLogy
'
'this page shows products for chosen category
'===================================================

Response.Buffer = true
Dim catid, strcat
catid = Request.QueryString("id&quot

strcat = Request.QueryString ("cat&quot

If catid = "" OR (IsNumeric(catid) = false) Then
Response.Redirect "default.asp"
End if

Dim catname, productslist
sub productInfo(connObj,category)
q = chr(34)
set cmd = server.CreateObject("ADODB.Command&quot

cmd.ActiveConnection = connObj
cmd.CommandText = "qryProdsCategory"
cmd.CommandType = adCmdStoredProc
set param = cmd.CreateParameter("theCategory",adInteger,adParamInput,4)
cmd.Parameters.Append(param)
cmd("theCategory&quot

= Cint(category)
set rs = server.CreateObject("ADODB.Recordset&quot

set rs = cmd.Execute

if not rs.EOF then
catname = rs("catdescription&quot

strHTML = "<table border=0 cellPadding=4 cellSpacing=2 width='100%'>"
strHTML = strHTML & "<tr>"

i = 1
while not rs.EOF
strHTML = strHTML & "<td valign=top>" & vbcrlf
strHTML = strHTML & "<img src=" & q& "images/small/" & rs("cimageurl&quot

&q& " align=" & q& "left"& q & ">" & vbcrlf
strHTML = strHTML & "<h4>" & rs("cname&quot

& "</h4>" & vbcrlf
strHTML = strHTML & "<p><font size=-1><a href="&q&"product.asp?id=" & rs("catalogID&quot

&q&">More >>></a></font></p>" & vbcrlf
strHTML = strHTML & "<p>Price: " & FormatCurrency(rs("cprice&quot

,2) & "<br>" & vbcrlf
strHTML = strHTML & "<form action="&q&"addprod.asp"&q&" method="&q&"POST"&q&" name=form"&i&" onSubmit="&q& "return checkItems(form"&i&&quot

" & q&">" & vbcrlf
strHTML = strHTML & "<input type="&q&"hidden"&q&" name="&q&"fproductid"&q&" value="&q & rs("catalogID&quot

& q&">" & vbcrlf
strHTML = strHTML & "Quantity: <input maxLength="&q&"1"&q&" name="&q&"fquantity"&q&" size=2 value="&q&"1"&q&">" & vbcrlf
strHTML = strHTML & "<input type="&q&"submit"&q&" value="&q&"ORDER"&q&" name="&q&"order"&q&" style="&q&"font-family: Arial; color: #800000; font-weight: bold"&q&">"
strHTML = strHTML & "</form></td>" & vbcrlf
if (i mod 2) = 0 then
strHTML = strHTML & "</tr><tr>" & vbcrlf
end if
i = i + 1
rs.MoveNext
wend

strHTML = strHTML & "<tr></table>"
else
strHTML = "Product information not found."
catname = "Error"
end if
productslist = strHTML
rs.Close
set rs = nothing
set cmd = nothing

end sub

%>
<html>
<head>
<title>Products</title>
<SCRIPT LANGUAGE=javascript>
<!--
function checkItems(formobj)
{
var quant = formobj.fquantity.value
if (isNaN(quant) == true || quant < 1 || quant > 9)
{
alert("Please enter a number between 1 and 9&quot

;
formobj.fquantity.focus();
return false
}else
{
return true;
}
}
//-->
</SCRIPT>
<link rel="stylesheet" type="text/css" href="eposter.css">
</head>
<body>

<table border="0" width="600" cellpadding="4">
<tr>
<td width="100%" colspan="2" valign="top">
<h3><img src="images/eplogo2.gif" alt="EPoster store" width="187" height="36">
<br><font face="Arial">
<%
'on error resume next
call openConn()
if dbc.errors.count > 0 then
Response.Write "Error accessing database."
else
call productInfo(dbc,catid)
end if
call closeConn()
response.write catname
%>
</font></h3></td>
</tr>
<tr>
<td width="120" bgcolor="#004080" valign="top">
</td>
<td width="480">
<%= productslist %>
</td>
</tr>
</table>

</body>
</html>

ufobaby · Mar 9, 2003

hi there u just in time for the question i just got thru this piece of code here it goes .....
'=========================================================
'assuming the only problem is with the displaying of pages

strPageName = Request.serverVariables("SCRIPT_NAME&quot

if request("page&quot

= "1" then
SomeVar = Request.Form(....)
strQuery = <<actual select stmt>>
else
strQuery = Request.Form("Qry&quot

end if

Set rs = Server.CreateObject("ADODB.Recordset&quot

with rs
.CursorLocation=3
.Open strQuery, ConLog,3 '3 is adOpenStatic
.PageSize = cint(25) '<- change this to any number u wish to
intPageCount = .PageCount
.AbsolutePage = request("page&quot

intCurrRec = .AbsolutePosition
intTotalRecords = .RecordCount
end with

for i = 1 to rs.PageSize
if not rs.EOF then
for each fld in rs.Fields
'use HTML/ASP to write to the page
next
rs.MoveNext
end if
next
'==== Above code prints on defined number of pages
'==== Write the Select stmt in a hidden field
<form name="strQry" method="post" >
<input type="hidden" name="qry" value="<%=strQuery%>">
</form>

'==== The Navigation Table
<table border=0 align="center" cellspacing="2" cellpadding="2">
<tr>
<%
if cint(intCurrPage)-cint(intPageCount)=0 then
'//// This is the Last Page
%>
<td><a href="Javascript:recallpage(1)">|<<a></td>
<td><a href="Javascript:recallpage(<%=int(intCurrPage)-1%>)"><<<a></td>
<td class=psmallb>Page <%=intCurrPage%> of <%=intPageCount%></td>
<td>>></td>
<td>>|</td>
<%
elseif intCurrPage = 1 then
'//// This is the First Page
%>
<td>|<</td>
<td><<</td>
<td class=psmallb>Page <%=intCurrPage%> of <%=intPageCount%></td>
<td><a href="Javascript:recallpage(<%=int(intCurrPage)+1%>)">>><a></td>
<td><a href="Javascript:recallpage(<%=intPageCount%>)">>|<a></td>
<%
else
%>
<td><a href="Javascript:recallpage(1)">|<<a></td>
<td><a href="Javascript:recallpage(<%=int(intCurrPage)-1%>)"><<<a></td>
<td class=psmallb>Page <%=intCurrPage%> of <%=intPageCount%></td>
<td><a href="Javascript:recallpage(<%=int(intCurrPage)+1%>)">>><a></td>
<td><a href="Javascript:recallpage(<%=intPageCount%>)">>|<a></td>
<%
end if
rs.Close
set rs= nothing
%>

<script language="JAVASCRIPT">
function recallpage(pg)
{
document.strQry.action = '<%=strPageName%>?page='+pg;
document.strQry.submit();
}
</script>

Hope this helps ,else write back !

[cheers]

Niraj

lynxvoodoo · Mar 10, 2003

Hi Niraj! Thanks for replying back to this message.

The info that you have supplied seems to be what I am after but its just that I am new to asp and creating a shopping cart may be abit advanced for me but its something that I have always wanted to learn.

I still want to implement the above and thus was wondering if help could be provided as to how I would go about adding your code to the code provided in my first message.

Any help will be very much appreciated.

Lynx

BG12424 · Mar 10, 2003

Lynx,

Are you also running into performance issues when loading your ASP page? It seems that you are concatenating a large string to finally output it at the end. This is a slow way of appending results for output. You should do more response.writes or something like in the post by Niraj, otherwise, you have to wait until your entire recordset is read before writing it to the response. ________________________________________________________________________
Are you trying to debug your ASP applications? See faq333-3255 for more details

regards,
Brian

ufobaby · Mar 10, 2003

hi lynx, thx for the star

i did not go thru ur code, gimme a day to go thru and i shall surely reply back on this.
however it was a mistake on my part not to comment the code. lemme organize this and i'll revert.

[cheers]

Niraj

ufobaby · Mar 11, 2003

hi,
couple of things
firstly change the strHtml code to
Response.Write statements as said by Brian.

next is to store the Request.QueryString("id&quot

values in a hidden field in the same form (the field names should be the same), this will keep the criteria accessible on all the pages.

rest is looping thru the recordset which is fairly simple...

The JavaScript recallpage is to submit the form (we just created with the similar fields) so the next page read the criteria.

the Navigation table is straight forward

if u require any assistance on this , kindly write back

[cheers]

Niraj

lynxvoodoo · Mar 17, 2003

Hi again.

I have decided to change the code to Response.write statements. Seems pretty straight forward (I think!!!..)

Thanks Brian for first suggesting this.

Niraj thanks for your help so far. I am still wanting to implement the page limitation script to the modified version. I understand the code and how to implement the navigation table but could you still provide help as how to implement the rest of the code to the modified code above.

Any further help would be greatly appreciated.

Have given both a star for your suggestions.

Thanks

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Limiting items displayed per page? 2

lynxvoodoo

Technical User

ufobaby

MIS

lynxvoodoo

Technical User

BG12424

Programmer

ufobaby

MIS

ufobaby

MIS

lynxvoodoo

Technical User

Similar threads

Part and Inventory Search

Sponsor