Problema com MENU em ASP

fabiosc80 · Janeiro 10, 2005

Ola Pessoal , Estou com im problemaço aqui.Sabem o site do submarino que tem aquele lateral esquerdo aonde mostra as categorias e as subcategorias das categorias em baixo delas?Entao tenho que fazer igual mas nao sei como?Como faço?os campos da tabela produtos sao esses aqui os principais:ProductIDProductCodProductTypeProductSubTypeTabela Product_Type (categoria)ID (auto numeraçcao)PRODUCTs_Type (texto)Subcategoria(texto) - só vai sim ou nao nesse campoTabela Product_Sub_Type (subcategoria)ID (AutoNumeraçao)Products_Type (Numero)Products_SubType(Texto)Lembrando que só quero exibir as categoria e suas subcategoria que nem na pagina inicial do submarino.com.brAlguem poderia me ajudar?Atenciosamente,Fábio Sanches Carmona.

fabiosc80 · Janeiro 10, 2005

me ajudem pelo amor de deus

Mário Monteiro · Janeiro 10, 2005

cara usa um loop dentro do outro pra fazer assim...

fabiosc80 · Janeiro 10, 2005

cara usa um loop dentro do outro pra fazer assim...

esse é o problema.como faz isso?e em relaçao ao select?tem que ser um só?to quase tendo um colapso aqui....

Mário Monteiro · Janeiro 10, 2005

cara pra ficar mais simples faz dois selects e usa dois loopstipo assimo primeiro select das categorias, pega o Nome e o id, o nome você imprime e o id você usar pra selecionar as subcategorias

fabiosc80 · Janeiro 10, 2005

cara pra ficar mais simples faz dois selects e usa dois loopstipo assimo primeiro select das categorias, pega o Nome e o id, o nome você imprime e o id você usar pra selecionar as subcategorias

Sim mas e se tiver mais de uma categoria:?? ele vai mostrar elas?

fabiosc80 · Janeiro 10, 2005

cara pra ficar mais simples faz dois selects e usa dois loops

tipo assim

o primeiro select das categorias, pega o Nome e o id, o nome você imprime e o id você usar pra selecionar as subcategorias

Sim mas e se tiver mais de uma categoria:?? ele vai mostrar elas?

ve se pode ser assim

ASP [/tr][tr]SQLC = "SELECT * FROM Products_Type Order by Products_Type"

set RS = Dataconn.Execute(SQLC)

Do While not TB.EOF

response.write TB("Categoria")

SQLSC = "SELECT * FROM Products_SubType Order by Products_Type"

set RS2 = Dataconn.Execute(SQLSC)

If Not RS2.EOF Then

response.write TB("Categoria")

RS2.Movenext

Loop

RS.Movenext

Loop

[/tr]

Mário Monteiro · Janeiro 10, 2005

no segundo SQL deve ter um WHERE que use o Id da categoriaSQLSC = "SELECT * FROM Products_SubType WHERE Products_Type = " & RS("ProductID") & " Order by Products_Type"

fabiosc80 · Janeiro 10, 2005

cara pra ficar mais simples faz dois selects e usa dois loops

tipo assim

o primeiro select das categorias, pega o Nome e o id, o nome você imprime e o id você usar pra selecionar as subcategorias

Sim mas e se tiver mais de uma categoria:?? ele vai mostrar elas?
ve se pode ser assim

ASP [/tr][tr]SQLC = "SELECT * FROM Products_Type Order by Products_Type"
set RS = Dataconn.Execute(SQLC)

Do While not TB.EOF

response.write TB("Categoria")

SQLSC = "SELECT * FROM Products_SubType Order by Products_Type"

set RS2 = Dataconn.Execute(SQLSC)

If Not RS2.EOF Then

response.write TB("Categoria")

RS2.Movenext

Loop

RS.Movenext

Loop
[/tr]

oque eu fiz nao ta funcionando ta dando erro no lloop

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/loja01/include_lateral.asp, line 58

Loop

^

fabiosc80 · Janeiro 10, 2005

cara pra ficar mais simples faz dois selects e usa dois loops

tipo assim

o primeiro select das categorias, pega o Nome e o id, o nome você imprime e o id você usar pra selecionar as subcategorias

Sim mas e se tiver mais de uma categoria:?? ele vai mostrar elas?
ve se pode ser assim

ASP [/tr][tr]SQLC = "SELECT * FROM Products_Type Order by Products_Type"
set RS = Dataconn.Execute(SQLC)

Do While not TB.EOF

response.write TB("Categoria")

SQLSC = "SELECT * FROM Products_SubType Order by Products_Type"

set RS2 = Dataconn.Execute(SQLSC)

If Not RS2.EOF Then

response.write TB("Categoria")

RS2.Movenext

Loop

RS.Movenext

Loop
[/tr]

oque eu fiz nao ta funcionando ta dando erro no lloop

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/loja01/include_lateral.asp, line 58

Loop

^

Continua dando erro no loop

Mário Monteiro · Janeiro 10, 2005

SQLC = "SELECT * FROM Products_Type Order by Products_Type"set RS = Dataconn.Execute(SQLC)Do While not RS.EOFresponse.write TB("Categoria")SQLSC = "SELECT * FROM Products_SubType WHERE Products_Type = " & RS("ProductID") & " Order by Products_Type"set RS2 = Dataconn.Execute(SQLSC)Do While not RS2.EOFresponse.write TB("SubCategoria")RS2.MovenextLoopRS.MovenextLoop

rOcKLoCo · Janeiro 10, 2005

vou passar somente a logica

<%sql = "SELECT..."set rs1 = suaconexao.Execute....if NOT rs1.EOF then       While NOT rs1.EOF               sql2 = "SELECT.... WHERE..."               set rs2 = suaconexao.Execute...               if NOT rs2.EOF then                              While NOT rs2.EOF                                             'comandos...                                             rs2.MoveNext                              Wend               else                              'comandos...               end if               rs2.Close               set rs2 = nothing               rs1.MoveNext       Wendelse       'comandos...end ifrs1.Closeset rs2 = nothing%>

fabiosc80 · Janeiro 10, 2005

SQLC = "SELECT * FROM Products_Type Order by Products_Type"set RS = Dataconn.Execute(SQLC)Do While not RS.EOFresponse.write TB("Categoria")SQLSC = "SELECT * FROM Products_SubType WHERE Products_Type = " & RS("ProductID") & " Order by Products_Type"set RS2 = Dataconn.Execute(SQLSC)Do While not RS2.EOFresponse.write TB("SubCategoria")RS2.MovenextLoopRS.MovenextLoop

deu certo mas nao era produtoID e sim só ID.OBRIGADÃO MARIO

Mário Monteiro · Janeiro 10, 2005

De nada Fabio... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

fabiosc80 · Janeiro 12, 2005

De nada Fabio... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Mario to reabrindo o post pois começou a acontecer uma coisa séria com a loja depois que mudei o menu.

Tipo, na hora que eu to fazendo uma compra e ele pedi o e-mail do usuario eu coloco ai ele tem que localizar o cliente no Banco de Dados. E nao sei pq ele nao ta localizando e me diz que como não existe tenho que fazer um novo cadastro. Mas mesmo cadastrando ele perde a sessao ou sei la o que é.

Isso só acontece quando eu coloco o menu novo no arquivo inclu_laretal.asp, pois, quando esta com o menu antigo isso nao acontece. é muito estranho, pois o menu nao deveria estar interferindo em nada.

Vou postar as tres paginas aqui para analise pois nao to entendendo mais nada.

A de acesso , A do Menu original simples sem loop (sem subcategoria) e a com loop encadeado (com subcategoria)

____________________________________

Primeiro a pagina de acesso ao login (essa pagina aparece na hora de pagar):

ASP [/tr]

<%

iCount = Session("ItemCount")

if iCount = 0 then

response.redirect ("loja.asp")

end if

email = Request.Form("email")

'ShippingMethod = Request("ShippingMethod")

Response.Cookies("EmailAddress") = Request.Form("email")

'Response.Cookies("EmailAddress").Expires = Date+365

Response.Cookies("EmailAddress").Path = "/cnr"

'ID = Request.Form("ID")

senha = Request.Form("senha")

SQL = "SELECT * FROM Customers WHERE Customers.EmailAddress ='"&Request.Form("email")&"'"

Set RS = Dataconn.Execute(SQL)

if not RS.eof then

ID = RS("CustomerID")

senhacrypt = RS("senhacli")

if senhacrypt <> "" and Not IsEmpty(senhacrypt) then

'pathxencr = session("pathxencr")

g_KeyLocation = pathxencr & "key.txt"

g_Key = mid(ReadKeyFromFile(g_KeyLocation),1,Len(senhacrypt))

senhaDeCrypt = DeCrypt(senhacrypt)

end if

SQLPED = "SELECT * FROM Orders WHERE Orders.customerID =" & ID & " and Orders.Status is null"

Set RSped = Dataconn.Execute(SQLPED)

SQLPED2 = "SELECT * FROM Orders WHERE Orders.customerID =" & ID & " and Orders.Status = 'Aprovado'"

Set RSpeda = Dataconn.Execute(SQLPED2)

end if

if senha <> "" then

if Not RS.EOF then

if senha = senhaDeCrypt then

Session("CustomerID") = ID

Session("CustomerFirstName") = RS("ContactFirstName")

response.Redirect("formaentrega.asp?CustomerID=" &RS("CustomerID")&"")

else

Response.Redirect("naoacesso.asp?ContactFirstName="&RS("ContactFirstName")&"")

end if

%>

<html>

<head>

<% ' ********** FOLHA DE ESTILO CAMBIAVEL

estilo_atual = Application("estilo_atual")

estilo_anterior = Application("estilo_anterior")

if estilo_atual <> estilo_anterior then

%>

<%response.write("<link rel='stylesheet' type='text/css' href='"&estilo_atual&"'>")%>

<%else%>

<%end if

' ********** FOLHA DE ESTILO CAMBIAVEL%>

</head>

<tr>

<tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</td>

<tr>

<tr>

<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"

WIDTH=610 HEIGHT=66>

</td>

</tr>

<tr>

<tr>

<table border="0" cellpadding=

fabiosc80 · Janeiro 12, 2005

Não coube tudo la, vou continuar aqui:

Agora a página com o menu simples que quando ta no site o login funciona perfeitamente:

ASP [/tr][tr]

<html>

<head>

</head>

<body>

<tr>

<tr>

</tr>

<tr>

</td>

</tr>

<tr>

</p>

</p>

</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</td>

</tr>

<tr>

<%

SQLC = "SELECT * FROM Products_Type Order by Products_Type"

set RS2 = Dataconn.Execute(SQLC) %>

<%do while not RS2.EOF %>

<p style="margin-top: 0; margin-bottom: 0"><img src="imagens/marc.gif"><a href="loja.asp?Product_Type=<%=Rs2("Products_type")%>&Product_SubType=<%=Rs2("Products_type")%>" class="navegacao"><%=Rs2("Products_type")%></a></p>

<% RS2.MoveNext

LOOP

RS2.Close

%>

</td>

</tr>

<tr>

</tr>

</table>

</form>

</td>

</tr>

<tr>

</td>

</tr>

<tr>

<td width="20%" valign="top" align="left"><table border="0" width="100%" cellspacing="0"

cellpadding="0">

<tr>

</tr>

</table>

</td>

</tr>

</table>

<%iCount = Session("ItemCount")%>

<%ARYshoppingcart = Session("MyShoppingCart")%>

<tr>

<td width="173"><font size="1" color="#000000"><strong>Lista de Compras</strong></font><font

face="Verdana" size="1" color="#000080">(<%=iCount%>)</font></td>

</tr>

<tr>

</tr>

<%

iSubtotal = 0

For i = 1 to iCount

%>

<tr>

</tr>

<tr>

</tr>

<%

If (ARYshoppingcart(cartUnitPrice,i)) <> "" Then

iSubTotal = iSubtotal + (ARYshoppingcart(cartUnitPrice,i) * ARYshoppingcart(cartItemQuantity,i))

end if

<tr>

<tr>

<td><font face="Verdana" size="1" color="#000080"><b>Subtotal: </b></font></td>

</tr>

<tr >

</tr>

</table>

</td>

</tr>

<tr>

</tr>

<tr>

<td>

</td>

</tr>

</table>

</center>

</div>

</body>

</html>

[/tr]

___________________________________

Por ultimo a página qo novo menu com subcategoria, (quando essa página esta no ar a página acesso não acha o cliente do e-mail que estiver tentando se logar)

ASP [/tr][tr]

<html>

<head>

</head>

<body>

<tr>

<tr>

</tr>

<tr>

</td>

</tr>

<tr>

</p>

</p>

</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</td>

</tr>

<tr>

<%

SQLC = "SELECT * FROM Products_Type Order by Products_Type"

set RS = Dataconn.Execute(SQLC)

Do While not RS.EOF

%><br><img src="imagens/marc.gif"><a href="loja.asp?Product_Type=<%=Rs("Products_type")%>" class="navegacao"><%=Rs("Products_type")%></a><br><%

SQLSC = "SELECT * FROM Products_SubType WHERE Products_Type = " & RS("ID") & " Order by Products_Type"

set RS2 = Dataconn.Execute(SQLSC)

Do While not RS2.EOF%>

<img src="imagens/marc.gif"><img src="imagens/marc.gif"><a href="loja.asp?Product_SubType=<%=Rs2("Products_Subtype")%>" class="navegacao"><%=Rs2("Products_Subtype")%></a><br>

<%

RS2.Movenext

Loop

RS.Movenext

Loop

%>

</td>

</tr>

<tr>

</tr>

</table>

</form>

</td>

</tr>

<tr>

</td>

</tr>

<tr>

<td width="20%" valign="top" align="left"><table border="0" width="100%" cellspacing="0"

cellpadding="0">

<tr>

</tr>

</table>

</td>

</tr>

</table>

<%iCount = Session("ItemCount")%>

<%ARYshoppingcart = Session("MyShoppingCart")%>

<tr>

<td width="173"><font size="1" color="#000000"><strong>Lista de Compras</strong></font><font

face="Verdana" size="1" color="#000080">(<%=iCount%>)</font></td>

</tr>

<tr>

</tr>

<%

iSubtotal = 0

For i = 1 to iCount

%>

<tr>

</tr>

<tr>

</tr>

<%

If (ARYshoppingcart(cartUnitPrice,i)) <> "" Then

iSubTotal = iSubtotal + (ARYshoppingcart(cartUnitPrice,i) * ARYshoppingcart(cartItemQuantity,i))

end if

<tr>

<tr>

<td><font face="Verdana" size="1" color="#000080"><b>Subtotal: </b></font></td>

</tr>

<tr >

</tr>

</table>

</td>

</tr>

<tr>

</tr>

<tr>

<td>

</td>

</tr>

</table>

</center>

</div>

</body>

</html>

[/tr]

Mario e demais se estou perguntando desse jeito com esse e-mail enorme é pq não estou entendendo mesmo. Cheguei no Fim da linha

Me ajudem por favor.

Abraços

Fábio Sanches Carmona

fabiosc80 · Janeiro 12, 2005

A página Acesso no primeiro e-mail veio incompleta por falta de espaço vou colocar só ela aqui:

ASP [/tr]

<%

iCount = Session("ItemCount")

if iCount = 0 then

response.redirect ("loja.asp")

end if

email = Request.Form("email")

'ShippingMethod = Request("ShippingMethod")

Response.Cookies("EmailAddress") = Request.Form("email")

'Response.Cookies("EmailAddress").Expires = Date+365

Response.Cookies("EmailAddress").Path = "/cnr"

'ID = Request.Form("ID")

senha = Request.Form("senha")

SQL = "SELECT * FROM Customers WHERE Customers.EmailAddress ='"&Request.Form("email")&"'"

Set RS = Dataconn.Execute(SQL)

if not RS.eof then

ID = RS("CustomerID")

senhacrypt = RS("senhacli")

if senhacrypt <> "" and Not IsEmpty(senhacrypt) then

'pathxencr = session("pathxencr")

g_KeyLocation = pathxencr & "key.txt"

g_Key = mid(ReadKeyFromFile(g_KeyLocation),1,Len(senhacrypt))

senhaDeCrypt = DeCrypt(senhacrypt)

end if

SQLPED = "SELECT * FROM Orders WHERE Orders.customerID =" & ID & " and Orders.Status is null"

Set RSped = Dataconn.Execute(SQLPED)

SQLPED2 = "SELECT * FROM Orders WHERE Orders.customerID =" & ID & " and Orders.Status = 'Aprovado'"

Set RSpeda = Dataconn.Execute(SQLPED2)

end if

if senha <> "" then

if Not RS.EOF then

if senha = senhaDeCrypt then

Session("CustomerID") = ID

Session("CustomerFirstName") = RS("ContactFirstName")

response.Redirect("formaentrega.asp?CustomerID=" &RS("CustomerID")&"")

else

Response.Redirect("naoacesso.asp?ContactFirstName="&RS("ContactFirstName")&"")

end if

%>

<html>

<head>

<% ' ********** FOLHA DE ESTILO CAMBIAVEL

estilo_atual = Application("estilo_atual")

estilo_anterior = Application("estilo_anterior")

if estilo_atual <> estilo_anterior then

%>

<%response.write("<link rel='stylesheet' type='text/css' href='"&estilo_atual&"'>")%>

<%else%>

<%end if

' ********** FOLHA DE ESTILO CAMBIAVEL%>

</head>

<tr>

<tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</td>

<tr>

<tr>

<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"

WIDTH=610 HEIGHT=66>

</td>

</tr>

<tr>

<tr>

<table border="0" cellpadding="0" cellspacing=

fabiosc80 · Janeiro 12, 2005

Pessoal consegui resolver o problema.

Arquivado

Problema com MENU em ASP

Recommended Posts

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

rOcKLoCo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real