<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%=web_title%> >
Products
<% id=request.QueryString("id") set rs=server.CreateObject("adodb.recordset") conn.execute "Update web_products Set hits=hits + 1 Where id="&id,0,1 rs.open"select * from web_products where id="&id,conn,1,3 product_name=rs("product_name") pic1=rs("pic1") content=rs("content") set rs=nothing %>
<%=content%>
กก Products
<% set web_rs=server.CreateObject("adodb.recordset") web_rs.Open "select * from web_bsort order by border ",conn,1,1 do while not web_rs.eof %> <%set rs1=server.CreateObject("adodb.recordset") rs1.open"select * from web_ssort where bclassid="&web_rs("bclassid")&" order by sorder",conn,1,1 if rs1.eof and rs1.bof then end if do while not rs1.eof%> <% rs1.movenext loop rs1.close %> <% web_rs.movenext loop %>
กก+ " style=" font-size:12px; font-weight:bold;"><%=web_rs("bclass")%>
กค" style=" font-size:12px;"><%=rs1("sclass")%>