agregar a lista

[Bluesman74cl]

he aqui un ejemplo de cómo llenar un listbox ah y en cuanto a cómo recueprar la info... en la otra página en donde quieres resscatar lo escogido en este select... solo debes poner

variable1 = request.form("nombre del input de la página anterior")

si te das cuenta en este caso el input se llama "especialidad"


<select class="input" name="especialidad" maxlength ="15">
<option value="0" Selected>Seleccione Especialidad</option>
<%
Set Mi_Conexion = Server.CreateObject("ADODB.Connection")
Set Res = Server.CreateObject("ADODB.Recordset")
Mi_Conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\horas\horas.mdb;"
sql = "SELECT * FROM Especialidad;"
Set Res = Mi_Conexion.Execute(sql)
While Not res.EOF
%>
<option value="<%=res("codespecialidad")%>" ><%=res("descripcion")%></option>
<%
res.MoveNext
Wend
res.Close
set res = nothing
Mi_Conexion.close
set Mi_Conexion= nothing
%>
</select>