Finalmente llegue a algo que se adapta totalmente,...pero no me funciona
, paso a explicar:
Tengo una lista(combo1) que ya tiene las opciones cargadas(html), al seleccionar una opcion llamo a una funcion(JavaScript que redirecciona a otra pagina2.asp) que carga otra lista(combo2), desde una BD(Sql), UNICAMENTE con los valores asociados a la opcion seleccionada(es decir que se restrinje(where) el query).
No lo hago con Submit porque eso lo uso para pasar TODOS los datos a la BD.
El codigo es:
-------------
pagina1.asp
-------------
Código:
<SELECT size="1" name="combo1" class="fuente" onchange="cargarOpciones()">
<option value="Seleccione una Opcion">Seleccione una Opcion</option>
<option value="Opcion1">Opcion1</option>
<option value="Opcion2">Opcion2</option>
<option value="Opcion3">Opcion3</option>
<!-- ----------------------- FUNCIONES ----------------------------------------------- -->
<script language="Javascript">
function cargarOpciones() {
if(document.form.combo1.value !='Seleccione una Opcion') {
window.location.href="pagina2.asp";
}
------------------
pagina2.asp
------------------
Código:
<html>
<head>
<title>Pagina Carga Combo2</title>
</head>
<script language = "JavaScript">
var listaModeloMarca= new Array(100)
</script>
<body>
<%
'--------------Creo la conexion y cargo el RecordSet-------------
Dim oConn, strSQL, objRS
Dim x
Set oConn = Server.CreateObject("ADODB.Connection") <-- Linea 3
Set objRS = Server.CreateObject("ADODB.Recordset")
oConn.Open "Driver={SQL Server};Server=ServerName;Database=DBName;Trusted_Connection=yes;"
strSQL= "select marca, modelo from Tabla "& _
"where marca like '" &Request.Form("marca")& "'" <--Leo el item seleccionado
Set objRS = oConn.Execute(strSQL)
'------------Ahora paso los datos a un array y luego al Combo2)---
x=0
do while (not objRS.Eof)
%>
<script language = "JavaScript">
listaModeloMarca[x]= objRS(modelo)&"-"&objRS(marca)
</script>
<%
x = x + 1
objRS.MoveNext
loop
oConn.Close
set objRS = nothing
set oConn = nothing
%>
<script language = "JavaScript">
for (x=0; x<listaModeloMarca.length; x++) {
document.form.Combo2.options[x] = new Option(listaModeloMarca[x]); <--Aca da el Error
document.form.Combo2.options[x].value = listaModeloMarca[x];
}
</script>
<%
Server.Transfer("Pagina1.asp")
%>
</body>
</html>
La pagina carga OK, pero al Seleccionar una opcion, da ERROR(del q'aparece en la ventana de Errores al cargar la pagina [Aceptar] [Ocultar Detalles]) y vuelvo a la pagina1.asp sin poder cargar el combo2.
-------------------------------------------------------
Linea 18
Car: 2
Error: 'document.form.Combo2' es nulo o no es un objeto.
Codigo 0
http://webdir/CGI-BIN/pagina2.asp
-------------------------------------------------------
Desde ya agradesco a quien pueda aportar algo,
Saludos.
