Como llena este box?

[lewzip]

Hola, tengo una confusion al enviar un dato a un cajon de texto. capturo el valor id_modulo en el combo box (previamente), lo mando mediante la funcion marca y este los "deberia" pintar los campos que deseo de acuerdo a Id_modulo.
:roto: No se que hacer
Aqui el codigo>
Este es el combobox
<select size="1" id="modulos" name="Modulos" onChange="<%marca()%>">

Esta es la funcion que deberia de disparar...
Sub marca()
Dim consul_Sql
consul_Sql="Select * from modulos where id_modulo=9"
rs.Open consul_Sql, oConn
Document.Listas.newnom.value=rs.fields("nom_m od")
Document.Listas.newmod.value=rs.fields("des_m od")
rs.close
End Sub


Gracias por su atencion

[AlZuwaga]

no podés hacer que un evento del cliente como 'onChange' ejecute código de servidor en la misma página...

[anfiguero]

para que el evento sea cuando el usuario haga algo tienes que usar javascript,
si quieres que el servidor lo haga., haz de alguna forma que se recarge la pagina y que entre aese modulo usando una variable., auqnque obviamente no es la idea. :)
:P :P