ASP - Rellenar Combobox con datos de una base de datos

Hola, necesito saber cómo rellenar un combobox con datos de una tabla de una base de datos, tengo hecho lo siguiente, pero me muestra el combobox vacío ¿dónde está el error?
Muchas gracias.

<%
var SQL = ""
miconexion = new ActiveXObject("ADODB.Connection")
miconexion.Open ("XXXXX")
SQL = "SELECT * FROM MATERIAS"
ResultSet rs = miconexion.execute(SQL)
%>
<form name = "formulario2">
<center> <b> Materia: </b> <select name = "materia">
<option value = " "> </option>
<%while (!rs.Eof)
{
%>
<option value="<% = rs('NOMBRE_MATERIA') %>"> <% = rs('NOMBRE_MATERIA') %> </option>
<%
rs.MoveNext()
} %>
</select>
</center>

Fíjate que el código JavaScript lo tienes después de declarar el option, y lo tienes que declarar al momento de escribir en el HTML. Tengo uno hecho en VBS, a ver si te sirve:
<FORM Action = anadir_contenidos2.asp Method = Post>
1.- Seleccione revista:
<SELECT Name = "Revista">
<%
SQL = "Select IdRevista,Nombre From Revistas"
set rsr = cnr.execute (SQL)
do until rsr.EOF
response.write ("<OPTION VALUE = ")
response.write (rsr("IdRevista"))
response.write (">")
response.write (rsr("Nombre"))
response.write ("</OPTION>")
rsr.movenext
loop
%>
</SELECT>
</FORM>

Muchas gracias, lo pruebo y si hay alguna novedad te cuento.
Bye.