- Home
- >EMPRESA
- PRODUTOS
-
<%
Set lojas = Server.CreateObject("ADODB.Recordset")
lojas.Open "SELECT * FROM lojas where lojavirtual = 0 ORDER BY nome_loja", Conexao
lojas.MoveFirst
While Not lojas.EOF
loja = lojas("codigo_loja")
v = 0
Set Categorias = Server.CreateObject("ADODB.Recordset")
str="SELECT * FROM categorias where codigo_loja = "& lojas("codigo_loja") &" ORDER BY nome_categoria"
Categorias.Open str , Conexao
While Not Categorias.EOF
v = v + 1
Categorias.MoveNext
Wend
Categorias.Close
Set Categorias = Nothing
txt_loja = lojas("nome_loja")
'nn = len(txt_loja) - 3
'txt_loja2 = right(txt_loja,nn)
if v = 0 then
%>
- " ><%response.write txt_loja%> <%else%> <%response.write txt_loja%>
<%end if loja = lojas("codigo_loja") ccate = 0 Set Categorias = Server.CreateObject("ADODB.Recordset") str="SELECT * FROM categorias where codigo_loja = "& lojas("codigo_loja") &" ORDER BY nome_categoria" Categorias.Open str , Conexao While Not Categorias.EOF ccate = ccate + 1 if ccate = 1 then response.write "- "
end if
Set tprodutos = Server.CreateObject("ADODB.Recordset")
tprodutos.Open "SELECT COUNT(*) As totalRegistros FROM subcategorias where codigo_categoria = "& Categorias("codigo_categoria"), Conexao
tprodutos.MoveFirst
While Not tprodutos.EOF
total = tprodutos("totalRegistros")
tprodutos.MoveNext
wend
tprodutos.Close
Set tprodutos = Nothing
if total > 0 then%>
<%= Categorias("nome_categoria") %>
<%else%> &codigo_loja=<%= loja %>" class="subcategoria"><%= Categorias("nome_categoria") %> <%end if '---------------------------------------------- csub = 0 catego = Categorias("codigo_categoria") Set sCategorias = Server.CreateObject("ADODB.Recordset") str1 ="SELECT * FROM subcategorias where codigo_categoria="& catego &" ORDER BY nome_subcategoria" sCategorias.Open str1, Conexao While Not sCategorias.EOF csub= csub + 1 if csub=1 then response.write "- "
end if
%>
&codigo_categoria=<%= catego %>&codigo_loja=<%= loja %>" ><%= sCategorias("nome_subcategoria") %>
<% sCategorias.MoveNext wend sCategorias.Close Set sCategorias = Nothing if csub > 0 then response.write "