Mostrar datos de una base de datos en un Option Select

th3r0rn · #1 (**permalink**) 17/05/2010, 16:08

Hola, tengo que mostrar unos datos en un formulario html <option>
es decir:
<select>
<option>Opcion1</option>
<option>Opcion2</option>
<option>Opcion3</option>
</select>
Los datos que quiero listar en ese formulario provienen de una base ded atos, el punto es que no se como poder mostrarlos dentro de ese formulario :(
Mi code es este,

Código:

<html>
<head>
<title>meteora uses</title>
<script type="text/javascript" src="meteora/src/meteora.js"></script>

<script type="text/javascript">
Meteora.uses('Meteora.Calendar');
Meteora.onStart(
  function () {
    new Calendar(
      'calendar1',
	
      {
        format: '%Y-%m-%d %H:%i',
		minYear: 2005,
        maxYear: 2010,
        showHour: true,
        showMinute: true,
        showMeridiem: true,
		showSecond: true 
    });
  }
);
Meteora.uses('Meteora.Calendar');
Meteora.onStart(
  function () {
    new Calendar(
      'calendar2',
	
      {
        format: '%Y-%m-%d %H:%i',
		minYear: 2005,
        maxYear: 2010,
        showHour: true,
        showMinute: true,
        showMeridiem: true,
		showSecond: true 
    });
  }
);
</script>

</head>
<body>
<form action="show.asp" method="post">
Fecha inicio: <input  type="text" name="calendar1" id="calendar1"/><br><br>
Fecha fin:    <input  type="text" name="calendar2" id="calendar2"/><br>
<% 
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
do while not registros.eof
response.write(""&registros("linea"))
response.write("<br>")
registros.movenext
loop
conexion.close

%>
<select>
<option></option>
</select>
<input type="submit" value="consultar">
</form>
</body>
</html>

Ayuda please :(

Julcar · #2 (**permalink**) 17/05/2010, 19:36

Código ASP:

Ver original<%
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>

th3r0rn · #3 (**permalink**) 18/05/2010, 12:27

Buenas, asi quedo mi codigo pero me sale un cuadrito que no puedo quitar:(

Código ASP:

Ver original<body>
<form action="show.asp" method="post">
Fecha inicio: <input  type="text" name="calendar1" id="calendar1"/><br><br>
Fecha fin:    <input  type="text" name="calendar2" id="calendar2"/><br>
<&#37; 
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>
</body>
</html>

Julcar · #4 (**permalink**) 18/05/2010, 12:32

fe de erratas

cambia

Código ASP:

Ver originalresponse.write("/<select>")

por

Código ASP:

Ver originalresponse.write("</select>")

th3r0rn · #5 (**permalink**) 18/05/2010, 12:39

Perdon, soy un imbesil. Muchas graias por el dato, aprovecho para pedir algun consejo sobre algun IDE para ASP que coloree bien el codigo y marque errores y esas cosas, actualmente solo uso NOTEPAD++
Saludos

Julcar · #6 (**permalink**) 18/05/2010, 12:52

el unico que conozco a ciencia cierta sobre coloreado de codigo fuente para asp es el Source Edit