<% set produto = conexao.execute("SELECT * FROM produtos WHERE status <> 'ok' AND estoque='s' order by rand() limit 9 ;") %> <% pagina ="http://"& Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("url")&"?"& request.ServerVariables("QUERY_STRING") %> <%set rs = conexao.execute("SELECT * FROM sessoes WHERE id='"&request("id")&"'")%>

<% if request("id") = "" then%> <% sql = "SELECT * FROM sessoes WHERE ver = 's' ORDER by nome;" Set sessoes = conexao.Execute(sql) While Not sessoes.EOF set semcateg = conexao.execute("SELECT * FROM categoria WHERE idsessao='"&sessoes("id")&"' and nome='Todos'") if semcateg.eof or semcateg.bof then%> <%else%> <% end if sessoes.MoveNext wend 'AQUI É PARA QUANDO ESTÁ SOLICITANDO A SESSÃO else set categoria = conexao.execute("SELECT * FROM categoria WHERE idsessao='"&request("id")&"' ORDER BY nome") while not categoria.eof set subcategoria = conexao.execute("SELECT * FROM subcategoria WHERE idcategoria='"&categoria("idcategoria")&"' ORDER by nome ") if subcategoria.eof or subcategoria.bof then%> <%else%> <%end if categoria.movenext wend end if %>   ><%=sessoes("nome")%>   <% set categ = conexao.execute("SELECT * FROM categoria WHERE idsessao='"&sessoes("id")&"' ORDER by nome LIMIT 3;")%> " <% If loja("retratil") = "Nao" then response.write "style=""display:block""" else if 1 + request("id") -1 = 1 + sessoes("id") - 1 then response.write "style=""display:block""" else response.write "style=""display:none""" end if end if%>> <%while not categ.eof%> &categoria=<%=categ("idcategoria")%>"><%=categ("nome")%> <% categ.movenext%> <%wend%> " class="vermais">+ Veja mais... a &categoria=<%=semcateg("idcategoria")%>"><%=sessoes("nome")%> &categoria=<%=categoria("idcategoria")%>"><%=categoria("nome")%> ><%=categoria("nome")%> <%while not subcategoria.eof%> &categoria=<%=categoria("idcategoria")%>&subcategoria=<%=subcategoria("idsubcategoria")%>"><%=subcategoria("nome")%> <% subcategoria.movenext%> <%wend%> a

<% if VersaoDb = 1 then set produto = conexao.execute("SELECT TOP 5 idprod, nome, preco FROM produtos ORDER BY contador DESC") end if cont = 1 if not produtos.eof then for x = 1 to 5%> <%cont = cont + 1%> <%produto.movenext%> <%next%> <%end if%>     &produto=<%=produto.fields("idprod")%>" onmouseout="window.status='';return true;" onmouseover="window.status='+ Detalhes';return true;" style="text-decoration: none;"> <%= produto("nome")%> <%= strlgMoeda & " " & formatnumber(produto("preco"),2)%> ............................