Foros de debate en castellano ASP. rellenar combo desde base de datos. Programación en Castellano.

rellenar combo desde base de datos

LILLO
16 de Septiembre del 2003

Este es el codigoque yo utilizo para rellenar un combobox con los datos de una base de datos de acces. No me funciona lo primero porque en DSN no se que poner, pero me han comentado que se puede hacer sin DSN, entonces como quedaria el codigo?? Hay alguna manera mas facil de hacer esto, porque tambien me han comentado que se puede hacer sin incluir el arhcivo adovbs.inc
Gracias


<html>
<head>
<title>Combos y Bases de Datos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<%
' Nos conectamos a la base de datos
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "DSN=dbjose"
db.open DB_CONNECTIONSTRING

' Creamos el RecordSet
Set rs = Server.CreateObject ("ADODB.RecordSet")
SQLStr = "SELECT * FROM tbmodelos"
deportes.open SQLStr, DB_CONNECTIONSTRING, adOpenStatic, adLockReadOnly, adCmdText
%>

<SELECT NAME="modelos">

<%
'Recorreremos el RecordSet
do while not rs.EOF
Response.Write("<OPTION VALUE='" + tbmodelos("Modelo") + "'>")
Response.Write(tbmodelos("Modelo") + "</OPTION>")
'Nos desplazamos por el RecordSet
deportes.MoveNext
loop
%>

</SELECT>

</body>
</html>