listas desplegables con tabla2
Publicado por juan (5 intervenciones) el 18/07/2001 04:58:57
me falla este esquema me da esto: "> donde tendrian que salir las opciones a ver si veis el fallo?
<body>
<% DIM conexion
dim Rs
dim cadena_SQL
Set conexion= Server.CreateObject("ADODB.Connection")
set Rs=Server.CreateObject("ADODB.RecordSet")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("motos.mdb"))
cadena_SQL="SELECT marca FROM marcas"
set Rs=conexion.execute(cadena_SQL)%>
<label>Motos</label>
<select name=lmotos SIZE=1>
<%do while not Rs.eof %>
<option value="<%=Rs("marca")%>"><%=Rs("marca").value%></option>
<%Rs.movenext
loop
</select>
Rs= nothing
conexion.close
conexion=nothing
%>
</body>
gracias a todos.
<body>
<% DIM conexion
dim Rs
dim cadena_SQL
Set conexion= Server.CreateObject("ADODB.Connection")
set Rs=Server.CreateObject("ADODB.RecordSet")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("motos.mdb"))
cadena_SQL="SELECT marca FROM marcas"
set Rs=conexion.execute(cadena_SQL)%>
<label>Motos</label>
<select name=lmotos SIZE=1>
<%do while not Rs.eof %>
<option value="<%=Rs("marca")%>"><%=Rs("marca").value%></option>
<%Rs.movenext
loop
</select>
Rs= nothing
conexion.close
conexion=nothing
%>
</body>
gracias a todos.
Valora esta pregunta
0