Campos de formulario toman valor de B.D

[Stickmaster2004]

ES EL OBJETO RECORSET QUE TE PERMITE TOMAR LOS CAMPOS DE LA TABLA DE LA BASE DE DATOS ASI:

<%
Dim calma,m


Set calma = Server.CreateObject("ADODB.Connection")
set m=Server.CreateObject("ADODB.Recordset")
calma.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};Server=127.0.0.1;uid=root;DataBase=datos1"
calma.Open

SQL="select distinct(p.pais) FROM paises p,usuario u where p.pais=u.paises and u.codigo=" & a
Set m = calma.Execute(SQL)


'Generamos el menu desplegable
Do while (not m.Eof) %>
<input type= "text" name=pais disabled size=20
<% Response.Write("value='" + m("pais") + "'>")
%>

<% m.MoveNext

Loop
calma.Close
set m = nothing
set calma = nothing

%>