<% cate=request.querystring("cate") id=request.querystring("pductnum") picperpage=100 picpage=request.querystring("picpage") if picpage="" then picpage=1 set aspthai=server.createobject("adodb.recordset") sql="Select * from products where cate="&cate&" order by goodsname asc" aspthai.open sql,conn,1,3 set aspthai4=server.createobject("adodb.recordset") sql4="Select * from cate where id="&cate&"" aspthai4.open sql4,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&" order by goodsname asc" aspthai2.open sql2,conn,1,3 nrecord=aspthai2.recordcount aspthai2.pagesize=picperpage totalpage=aspthai2.pagecount if not aspthai2.eof then aspthai2.absolutepage=picpage %>
<% if aspthai2("goodsweight") > 1.0 then %><% end if %> <%dollarprice=aspthai2("price")/aspthai3("dollar")%>

<%=aspthai4("cate")%>

" width=305 border=0 alt="sterling silver <%=aspthai2("goodsname")%>">

<%=aspthai2("goodsname")%>

Product ID: <%=aspthai2("goodsid")%>
Weight: <%=aspthai2("goodsweight")%> g
<%=replace(aspthai2("details"),chr(13),"
")%>
Price: <%=aspthai2("price")%> Baht (~US$<%=formatnumber(dollarprice,0)%>)
(US$1 = <%=aspthai3("dollar")%> Baht)
"> "> ">
<% else set aspthai2=server.createobject("adodb.recordset") sql2="Select * from products where id="&id aspthai2.open sql2,conn,1,3 %>
<% if aspthai2("goodsweight") > 1 then %><% end if %> <%dollarprice=aspthai2("price")/aspthai3("dollar")%>

<%=aspthai4("cate")%>

" width=305 border=0 alt="sterling silver <%=aspthai2("goodsname")%>">

<%=aspthai2("goodsname")%>

Product ID: <%=aspthai2("goodsid")%>
Weight: <%=aspthai2("goodsweight")%> g
<%=replace(aspthai2("details"),chr(13),"
")%>
Price: <%=aspthai2("price")%> Baht (~US$<%=formatnumber(dollarprice,0)%>)
(US$1 = <%=aspthai3("dollar")%> Baht)
"> "> ">
<%end if%> <% %> <% Span=0 no=1 do while not aspthai.eof and no<=picperpage Span=span + 1 if Span > 4 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=95%>
<%if cint (picpage)>1 then%> Previous | <%end if%> <%for numpage=1 to totalpage if numpage=cint (picpage) then%> <%=numpage%> <%else%> <%=numpage%> <%end if%>   |  <%next%> <%if cint (picpage) Next <%end if%> <% else response.write("

No products in this category.
") end if%>