Cargar datos de una Base de Datos en una select(listbox)

[a n g e l u s]

hola aupaneu bienvenido al foro ASP.

tu problema son las comillas simples = '

solucion

<select style="width: 200px; height: 120px;" id="segundo" name="segundo" multiple="multiple">
<%
'esto pegalo al inicio de la pag o has un include para que no lo tengas que copiar una y otra vez
Dim cnn = Server.CreateObject("ADODB.Connection")
cnn.open("PROVIDER=SQLOLEDB;DATA SOURCE=PC-DESARROLLO4;UID=sa;DATABASE=Proyecto1")

sub cerrar
cnn.close()
cnn = Nothing
end sub

%>

<%
Dim result
Dim sql

'order by para que ordene asc=ascendente desc=decendente
sql = "SELECT * FROM TPersona order by Des_persona ASC"

on error resume next '-> ayuda a controlar errores
result = cnn.Execute(sql)

if err <> 0 then

' puedes colocar un mensaje para los usuarios como que no se puede
' realizar la accion en este momento pruebe mas tarde o
' mostrar el error como en este caso.

response.write ("tenemos un error <br>"& err.description)

else

Do While Not result.EOF

Response.Write "<option value=" & result("Cod_persona") & ">" & result("Des_persona") & "</option>"

result.movenext()
Loop

cerrar ' se cierra la conexion

end if ' fin control de errores
%>
</select>