Gracias Adler, disculpa mi ignorancia pero para que sirve ese codigo?
Si quieres probar lo que digo mira este enlace es una prueba que hice para exponer mi problema, lo probe con el IE7 y no me funciona.
http://www.traddies.com/listas.asp
Miren el codigo fuente.
Les agradezco que lo miren y me den cualquier sugerencia
Este es el codigo de ListaProc.asp
<%
BdPrueba = "Prueba.mdb"
'Ejemplo para las listas desplegables'
if request.querystring("IdCat") <> "" then
str = "select Id_Tipo, Nombre FROM Tipos where IdCat = " & int(request.querystring("IdCat"))
Filas=GetFilas(BdPrueba, str)
if(isarray(Filas)) then
for j = 0 to UBound(Filas,2)
response.write("<option value=""" & Filas(0,j) & """>" & Filas(1,j) & "</option>")
next
end if
end if
''''''''''''''''''''''''''''''''''''''''''''''''''
Function GetFilas(BdActual, SQL)
Set oConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(BdActual))
Set objRS = oConn.Execute(SQL)
if not (objRS.EOF and objRS.BOF) then
GetFilas = objRS.GetRows()
end if
oConn.Close
set objRS = nothing
set oConn = nothing
end function
''''''''''''''''''''''''''''''''''''''''''''''''''
%>