He hecho un nuevo código, pero tampoco me muestra nada en el combobox, ¿Alguien sabe si es la conexión lo que está mal o a qué es debido que no muestre lo que contiene el RecordSet?
Por favor, necesito ayuda.
Muchas gracias.
Dejo el código para ver si alguien es tan amable de ayudarme:
<% @language = Jscript %>
<!-- #include FILE = "Adojavas.inc" -->
<html>
<head>
<title> Consulta de enlaces web </title>
</head>
<body bgcolor = "#00AAAA">
<%
miconexion = new ActiveXObject("ADODB.Connection")
miconexion.Open ("driver={Oracle ODBC driver};Server=ORCLSL;database=BDORACLE;Uid=scott; Pwd=tiger;")
%>
<center> <h1> Realiza tus consultas </h1> </center>
<br>
<br>
<br>
<form name = "formulario">
<center> <b> Materia: </b> <select name="materia">
<option value = "Todas"> Todas </option>
<%
Dim RET
Dim SQL = ""
SQL = "SELECT NOMBRE_MATERIA FROM MATERIAS ORDER BY NOMBRE_MATERIA"
rs=miconexion.execute(SQL)
RET = ""
do while (!rs.Eof)
RET = RET & "<option value='" & rs('NOMBRE_MATERIA') & "'>" & rs("NOMBRE_MATERIA") & "</option>"
rs.MoveNext()
}
Response.write(RET & "</SELECT>")
miconexion.Close()
%>
</body>
</html>