<% Mostrar = Request.QueryString("item") Dim Smenu '----------------------------------------------------------------------------------------------------- 'Monta o menu de departamentos (Sessoes e Categorias) '----------------------------------------------------------------------------------------------------- '######################################################################################### '### Mostra as Sessoes da Loja '### Rogério Silva - WBSolutions - http://www.libihost.net/wbsolutions. '### 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 'Todos' , a Categoria será 'linkado' diretamente para os seus produtos 'loja modificada para Locadora Virtual - Por Marlon Moreira - contato itaclick@hotmail.com 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;">

')" style="cursor:hand"> <%=menu("nome")%>

<%IF cInt(Mostrar) = menu("id") then Response.Write "" ELSE Response.Write "" END IF '######################################################################################### '### Mostra as Categorias das Sessoes da Loja '### Rogério Silva - WBSolutions - http://www.libihost.net/wbsolutions. '### SUB MENU (Tabela Categoria) '######################################################################################### 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")%>" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%= menu("nome")&" > "&Smenu("nome") %>';return true;"> <%=Smenu("nome")%>
<%Smenu.MoveNext Wend %>

" %>