Mostrar datos de una base de datos en un Option Select

[Julcar]

Código ASP:

<%
Dim conexion,registros
SET conexion=Server.CreateObject("ADODB.Connection")
conexion.Open"PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV01;UID=sa;PWD=messrv;DATABASE=WASP "
SET registros=Server.CreateObject("ADODB.RecordSet")
registros.open"SELECT linea FROM optimas",conexion
response.write("<select>")
do while not registros.eof
response.write("<option>"&registros.fields("linea")&"</option>")
registros.movenext
loop
response.write("<select>")
conexion.close
 
%>
<input type="submit" value="consultar">
</form>