%
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
%>
<%=aspthai4("cate")%>
|
" width=305 border=0 alt="sterling silver <%=aspthai2("goodsname")%>"> |
<%=aspthai2("goodsname")%>
Product ID: <%=aspthai2("goodsid")%> |
<% if aspthai2("goodsweight") > 1.0 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)%>)
(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
%>
<%=aspthai4("cate")%>
|
" width=305 border=0 alt="sterling silver <%=aspthai2("goodsname")%>">
|
<%=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)%>)
(US$1 = <%=aspthai3("dollar")%> Baht)
|
|
<%end if%>
<%
%>
Click on images below for more information |
<%
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
%>
&cate=<%=cate%>&picpage=<%=picpage%>">
" border=0 width=95%>
|
<%aspthai.Movenext
no=no+1
loop%>
<%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%>
|
|
|