BUSCA DE PRODUTOS

" size=23 style=font-size:11px;font-family:<%=fonte%>;> > <%=strLg15%> ------------------ <%Dim scat '-------------------------------------------------------------------------------------------------- 'Monta a select de pesquisa '-------------------------------------------------------------------------------------------------- Set cat = abredb.Execute("SELECT * FROM sessoes WHERE ver = 's' ORDER by nome;") While Not cat.EOF 'Response.Write ""&CHR(187)&" "&cat("nome") &""&VBCRlf Response.Write ""&CHR(187)&" "&cat("nome") &""&VBCRlf SQL = "SELECT C.idcategoria, C.nome FROM categoria as c ,sessoes as s WHERE s.id = c.idsessao and c.idsessao = "&cat("id")&" AND C.ver = 's' ORDER by c.nome" Set scat = abredb.Execute(SQL) While Not scat.EOF Response.Write "   " &CHR(149)&" " & scat("nome")&""&VBCRlf scat.MoveNext Wend cat.MoveNext Wend Response.Write " "%>

DEPARTAMENTOS

<% Mostrar = Request.QueryString("item") Dim Smenu '### MENU PRINCIPAL (Tabela Sessoes) Set menu = abredb.Execute("SELECT * FROM sessoes WHERE ver = 's' ORDER by nome;") DO While Not menu.EOF 'Verifica se existe alguma categoria sem sub-categoria, ou seja, se o produto estiver cadastrado em uma SubCategoria chamado 'TodoAs' , a Categoria será 'linkado' diretamente para os seus produtos SQL = "SELECT nome FROM categoria WHERE nome = 'Todos' AND idsessao = "&menu("id")&"" Set sem_categ = abredb.Execute(SQL) if not sem_categ.EOF then %> <% else %> <% end if sem_categ.close set sem_categ=Nothing%> <% menu.MoveNext Loop 'Fecha o menu menu.Close Set menu = Nothing 'Response.Write "   ';return true;"> &Categoria=" style="text-decoration:none;" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=menu("nome")%>';return true;">   <%=menu("nome")%> ';return true;">  <%=menu("nome")%> <%IF cInt(Mostrar) = menu("id") then Response.Write "" END IF '### Mostra as Categorias das Sessoes da Loja SQL = "SELECT C.idcategoria, C.nome FROM categoria as c ,sessoes as s WHERE s.id = c.idsessao and c.idsessao = "&menu("id")&" AND C.ver = 's' AND C.nome <> 'Todos' ORDER by c.nome" Set Smenu = abredb.Execute(SQL) While Not Smenu.EOF%>&Categoria=<%=Smenu("idcategoria")%>" style="text-decoration:none;"onMouseOut="window.status='';return true;" onMouseOver="window.status='<%= menu("nome")&" > "&Smenu("nome") %>';return true;"> <%=Smenu("nome")%> <%Smenu.MoveNext Wend %> " %>