Posted 04/06/2004, 18:13
oh pessoal o menu com o "+" um colega me ajudou e ficou assim>
<%
Subcarro=request.querystring("Subcarro")
if Subcarro = "sim" then
%>
<a href="arquivo.asp?Subcarro=sim" >+Carros</a>
<a href="arquivo.asp?Subcarro=sim" >-Conversiveis</a>
<a href="arquivo.asp?Subcarro=sim" >-Antigos</a>
<a href="arquivo.asp?Subcarro=sim" >-Corrida</a>
<%end if%>
<%
Submoto=request.querystring("Submoto")
if Submoto = "sim" then
%>
<a href="arquivo.asp?Submoto=sim" >+Motos</a>
<a href="arquivo.asp?Submoto=sim" >-Enduro</a>
<a href="arquivo.asp?Submoto=sim" >-Trash</a>
<a href="arquivo.asp?Submoto=sim" >-Corrida</a>
<%end if%>
Mais só que ai está como se fosse html, os dados estão prontos, mais eu quero fazer em asp, ai na verdade eu quero juntar esses dois codigos, ode cima com o de baixo, para ficar o menu do "+" com os dados vindo do asp.
Quem puder ajudar, posta ai, VLW
está ai o código, quem fez ele foi o Leonardo, LeoB:
codigo em asp sem menu
<%
Dim Conexao
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Banco.mdb")
Listar 0, ""
Sub Listar(ByVal Relac, ByVal Espacos)
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM Categorias WHERE Relac=" & Relac, Conexao, 1, 3
If Not Rs.EOF Then
While Not Rs.EOF%>
<style type="text/css">
<!--
.style1 {font-size: 9px}
-->
</style>
<span class="style1"></span>
<% Response.Write Espacos & Rs("Categoria") & "<br>"
Listar Rs("Id"), (Espacos & " ")
Rs.MoveNext
Wend
End If
Rs.Close
Set Rs = Nothing
End Sub
Conexao.Close
Set Conexao = Nothing
%>