El Problema que tengo que en lugar de desarrollo funciona perfecto pero falla en lugar de funcionamiento del sistema que es otro servidor... si me pueden ayudar?
<select name=menu onchange="ComponerLista(document.forms.I90100 2B.menu[selectedIndex].value);">
<% query = "select cod_menu, descripcion from cmb_menu order by 1 "
Set menu = Conexion.Execute(query)
while not menu.eof %>
<option value = '<%=cint(menu(0))%>'
<% if menu(0) = tipos(3) then %>
SELECTED
<% end if %>><%=menu(1)%></option>
<%menu.movenext
wend
menu.close%>
</select>
</td>
</tr>
<tr>
<td><font color="#336633" face="Arial, Helvetica, sans-serif">Submen&uacute;</font></td>
<td>
<select name=cod_submenu>
</select>
<script language="JavaScript">
function Tupla(campo1, campo2)
{
this.campo1 = campo1;
this.campo2 = campo2;
}
<% query = "select cod_menu, cod_submenu, descripcion from cmb_submenus "
Set submenu = Conexion.Execute(query)
cuenta = 0
vari = "basura"
while not submenu.eof
if vari <> cint(submenu(0)) then
cuenta = 0
vari = cint(submenu(0)) %>
var opciones<%=vari%> = new Array();
<% end if %>
opciones<%=vari%>[<%=cuenta%>]= new Tupla("<%=cint(submenu(1)) & ") " & submenu(2)%>","<%=cint(submenu(0)) %>");
<% submenu.movenext
cuenta = cuenta + 1
wend
submenu.close%>
var contador
function ComponerLista( array ){
BorrarLista();
array = eval("opciones" + array );
if (<%=cint(tipos(4))%> != 0 )
var optionObj = new Option( "<%=tipos(4) & ") " & tipos(5)%>", "<%=tipos(4) & ") " & tipos(5)%>");
else
var optionObj = new Option( "", "");
I901002B.cod_submenu.options[0] = optionObj;
for (contador = 0 ; contador < array.length; contador++ )
{
var optionObj = new Option( array [contador].campo1, array[contador].campo1);
I901002B.cod_submenu.options[contador+1] = optionObj;
}
if (<%=cint(tipos(4))%> != 0 )
var optionObj = new Option( "", "");
I901002B.cod_submenu.options[array.length+1] = optionObj;
}
function BorrarLista(){
I901002B.cod_submenu.length=0;
}
ComponerLista(<%=cint(Tipos(3))%>)
</script>