<% cate=request.querystring("cate") id=request.querystring("pductnum") picperpage=5 picpage=request.querystring("picpage") if picpage="" then picpage=1 set aspthai=server.createobject("adodb.recordset") sql="Select * from products where cate="&cate aspthai.open sql,conn,1,3 if not aspthai.eof then nrecord=aspthai.recordcount aspthai.pagesize=picperpage totalpage=aspthai.pagecount if not aspthai.eof then aspthai.absolutepage=picpage set aspthai3=server.createobject("adodb.recordset") sql3="Select * from setting" aspthai3.open sql3,conn,1,3 if id="" then set aspthai2=server.createobject("adodb.recordset") sql2="Select * from products where cate="&cate aspthai2.open sql2,conn,1,3 nrecord=aspthai2.recordcount aspthai2.pagesize=picperpage totalpage=aspthai2.pagecount if not aspthai2.eof then aspthai2.absolutepage=picpage %> " border=0> <%=aspthai2("goodsname")%> Product ID: <%=aspthai2("goodsid")%> <% if aspthai2("goodsweight") > 1 then %> Weight: <%=aspthai2("goodsweight")%> g <% end if %> <%=replace(aspthai2("details"),chr(13)," ")%> <%dollarprice=aspthai2("price")/aspthai3("dollar")%> Price: <%=aspthai2("price")%> Baht (~US$<%=formatnumber(dollarprice,0)%>) 1 Dollar = <%=aspthai3("dollar")%> Baht "> "> "> <% else set aspthai2=server.createobject("adodb.recordset") sql2="Select * from products where id="&id aspthai2.open sql2,conn,1,3 %> " border=0> <%=aspthai2("goodsname")%> Product ID: <%=aspthai2("goodsid")%> <% if aspthai2("goodsweight") > 1 then %> Weight: <%=aspthai2("goodsweight")%> g <% end if %> <%=replace(aspthai2("details"),chr(13)," ")%> <%dollarprice=aspthai2("price")/aspthai3("dollar")%> Price: <%=aspthai2("price")%> Baht (~US$<%=formatnumber(dollarprice,0)%>) 1 Dollar = <%=aspthai3("dollar")%> Baht "> "> "> <%end if%> <% %> <% Span=0 no=1 do while not aspthai.eof and no<=picperpage Span=span + 1 if Span > 5 then response.write "" Span = 1 end if %> <%aspthai.Movenext no=no+1 loop%> Click on images below for more information &cate=<%=cate%>&picpage=<%=picpage%>"> " border=0 width=90> Page : <%if cint (pductnum)>1 then%> Previus <%end if%> <%for numpage=1 to totalpage%> <%=numpage%>  |  <%next%> <%if cint (pductnum) Next <%end if%> <% else response.write(" No products in this category.") end if%>