|
|
|
|
<%dim sql, rs
sql = "SELECT * FROM categorias "
set rs = connect.execute(sql)
If not rs.eof then
response.write ""
dim cont
cont = 1
Do while not rs.eof
if cont=1 then response.write ""
%>
|
<%
if cont = 3 then
response.write " | | "
cont = 0
end if
cont = cont + 1
rs.movenext
loop
if cont<>1 then response.write ""
response.write " "
else
response.write "
Não há produtos cadastrados nesta categoria.
"
end if
set rs = nothing%>
|
|
|
|
|
|
|
|
|
|