<% 'on error resume next prdno=request("prd") dim i,default_prod_desc,default_prod_spec,prod_desc,prod_spec i=1 default_prod_spec="" default_prod_desc="" constr = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("product.mdb") set objConn=Server.CreateObject("ADODB.Connection") objConn.Open constr Set rs=Server.CreateObject("ADODB.Recordset") sql="select prodid,product,title_img,prod_desc,prod_spec,orderid from products order by prodid asc" page_size=4 'this is defined for items in product list page=request.querystring("page") rs.open sql,objconn,1,1 if prdno<>"" then page=mid(prdno,7,1) end if rs.pagesize=page_size pgnm=rs.pagecount if page="" or clng(page)<1 then page=1 if clng(page)>pgnm then page=pgnm if pgnm>0 then rs.absolutepage=page count=0 'response.write sql %> <% do while (not rs.eof and count" %> <% if count=0 or count=2 then response.write "" if count=1 or count=3 then response.Write("") count=count+1 'if not rs.eof then rs.movenext rs.movenext loop rs.close objconn.close set rs=nothing set objconn=nothing %>

" width="152px" height="135px" onMouseOver="this.style.cursor='hand'" onClick="parent.switchprofile('<%=prod_desc%>','<%=prod_spec%>')" border="1" style="border-color:#cccccc" id="<%=rs("prodid")%>"> <%=rs("product")%>

First Page | >Previous | >Next | >Last Page