 |
<%
sqlplantao = "select * from categoria order by categoria asc"
set categoria = server.createobject("ADODB.Recordset")
categoria.Open sqlplantao, confest
%>
<%
contar = 0
do while not categoria.EOF
%>
|
<% contar = contar + 1
if contar = 1 then
response.Write(" ")
contar = 0
end if
response.cookies("categoria") = categoria("id")
categoria.movenext
loop
%>
|
|
<%
sqlf = "select * from categoria where id=" & request("id")
set categoria = confest.execute(sqlf)
%>
<%
sqlplantao = "select * from produtos Where categoria like '"& categoria("categoria") &"' order by nome asc"
set pro = server.createobject("ADODB.Recordset")
pro.Open sqlplantao, confest
%>
<%
contar = 0
do while not pro.EOF
%>
|
<% contar = contar + 1
if contar = 4 then
response.Write(" ")
contar = 0
end if
response.cookies("produtos") = pro("id")
pro.movenext
loop
%>
|