Nao Esta aparecendo os produtos que cadastro

[Marcos Coelho2 2]

Deem uma olhada nesse link.

http://www.comerciando.com.br/lojavirtual/

o menu com todas as categorias e sub-categorias parecem estar funcionando corretamente mas nao estao.

alguns estao funcionando e buscando seus produtos mas os outros nao estao encontrando os produtos.

Alguem Sabe me fala o que pode estar acontecendo?

 

Deem uma olhada em uma parte do Código:

<%
Mostrar = Request.QueryString("item")
Dim Smenu

'-----------------------------------------------------------------------------------------------------
'Monta o menu de departamentos (Sessoes e Categorias)
'-----------------------------------------------------------------------------------------------------



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

	SQL = "SELECT nome FROM categoria WHERE nome = 'Todos' AND idsessao = "&menu("id")&""
	Set sem_categ = abredb.Execute(SQL)
	if not sem_categ.EOF then %> 
                     <tr> 
                        <td onMouseOut="window.status='';return true;" onMouseOver="window.status='<%= menu("nome") %>';return true;"> <div class="menutitle" onClick="SwitchMenu('<%=menu("nome")%>')" style="cursor:hand"><font face="<%=fonte%>" color="<%=cor4%>" style=font-size:11px><a href="sessoes.asp?item=<%= menu("id") %>" style="text-decoration:none;" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%= menu("nome") %>';return true;"><b><img src="<%=dirlingua%>/imagens/flecha.gif" border="0" />  <%=menu("nome")%></b></a></div> 
                      <% else %> 
                      <tr> 
                        <td onMouseOut="window.status='';return true;" onMouseOver="window.status='<%= menu("nome") %>';return true;"> <div class="menutitle" onClick="SwitchMenu('<%=menu("nome")%>')" style="cursor:hand"><font face="<%=fonte%>" color="<%=cor4%>" style=font-size:11px><a href="sessoes.asp?item=<%= menu("id") %>" style="text-decoration:none;" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%= menu("nome") %>';return true;"><b><img src="<%=dirlingua%>/imagens/flecha.gif" border="0" />  <%=menu("nome")%></b></a></div> 
                          <%IF cInt(Mostrar) = menu("id") then
Response.Write "<span class=""submenu"" id="""&menu("nome")&""" style=""display:block"">"
ELSE
Response.Write "<span class=""submenu"" id="""&menu("nome")&""" style=""display:none"">"
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%> 
                          <a href="sessoes.asp?item=<%=menu("id")%>&Categoria=<%=Smenu("idcategoria")%>" style="text-decoration:none;" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%= menu("nome")&" > "&Smenu("nome") %>';return true;"> <b>  <img src='<%=dirlingua%>/imagens/flechav.gif' border=0>  <%=Smenu("nome")%></b></a> <br> 
                          <%Smenu.MoveNext
Wend %> 
                          </span> </td> 
                      </tr> 
                      <%	end if	
sem_categ.close
set sem_categ=Nothing%> 
                      <%
menu.MoveNext
Loop
'-----------------------------------------------------------------------------------------------------
'Fecha o menu
'-----------------------------------------------------------------------------------------------------
menu.Close
Set menu = Nothing


'-----------------------------------------------------------------------------------------------------
'Response.Write "</table>"			%>

[Marcos Coelho2 2]

http://www.comerciando.com.br/lojavirtual/carrinhodecompras.asp

entrem nesse link se o outro tiver dando erro.

[xanburzum 169]

ele gera algum erro !?!?!

se sim poste a linha e numero do erro...

no forum existem varios code de categoria e sub-cat, muito bons, até mesmo com AJAX, se kiser dar uma olhada e comparar ...

[Marcos Coelho2 2]

Resolvidooooo

Valeuu

[xanburzum 169]

beleza, kker coisa posta ae...