
03/05/2010, 09:33
|
| | Fecha de Ingreso: octubre-2009
Mensajes: 80
Antigüedad: 15 años, 6 meses Puntos: 2 | |
Respuesta: Extraño problema con el Ajax y el IE Adler, aparentemente hay un problema entre el IE y el select, le hice un cambio a la prueba de listas y funciona perfectamente con el IE las mismas funciones de ajax.
Si puedes mirala y me comentas tus opiniones.
a la pagina ListaProc.asp le agregue:
<%
BdPrueba = "../Private/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
''''''''''''''''''''''''''''''''''''''''''''''''''
'Lo mas extraño' '<--- Esto
if request.querystring("Ver") <> "" then
response.write("estas viendo el mensaje de prueba")
end if
%>
Mira el codigo del enlace "Mostrar"
Gracias
Última edición por jochesfor; 03/05/2010 a las 10:20 |