
28/06/2005, 13:12
|
 | | | Fecha de Ingreso: abril-2005
Mensajes: 1.051
Antigüedad: 20 años, 1 mes Puntos: 2 | |
Hola! Para lo que tienes, creo que sería así:
dim oConnpais,strSQLpais, objRSpais
Set oConnpais=Server.CreateObject("ADODB.Connection")
oConnpais.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mibase.mdb"))
strSQLpais="SELECT * from paises"
Set objRSpais= oConnpais.Execute(strSQLpais)%>
pais<br>
<select name="pais" style="width:175px;">
<% while (not objRSpais.Eof) %>
<option>
<%=Server.HTMLEncode(Cstr(objRSpais("pais")))%>
</option>
<% objRSpais.MoveNext
wend%>
</select>
<%
oConnpais.Close
set objRSpais=nothing
set oConnpais=nothing |