 |
<%
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
%>
|
|
<%
sqlplantao = "select * from produtos order by id asc"
set pro = server.createobject("ADODB.Recordset")
pro.MaxRecords = 16
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
%>
|