Ver Mensaje Individual
  #9 (permalink)  
Antiguo 24/09/2010, 16:12
Avatar de JavierMMM
JavierMMM
 
Fecha de Ingreso: agosto-2008
Ubicación: Justito frente a la computadora.
Mensajes: 278
Antigüedad: 16 años, 5 meses
Puntos: 0
Respuesta: Función automática

Este es el código que tengo en mi programa principal pAjax.asp

Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Carga</title>

<script language="JavaScript" type="text/javascript">
function objetoAjax()
{
var xmlhttp=false;
try 
{xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");} 
catch (e) 
{
try 
{xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");} 
catch (E)
{xmlhttp = false;}
}
if (!xmlhttp && typeof XMLHttpRequest!='undefined') 
{xmlhttp = new XMLHttpRequest();}
return xmlhttp;
}
 
function MostrarConsulta(datos)
{
divResultado = document.getElementById('res');
ajax=objetoAjax();
ajax.open("GET", datos, true);
//alert(datos);
ajax.onreadystatechange=function()
{
if (ajax.readyState==4) 
{
for(var cont=0; cont<=10; cont++)
{
divResultado.innerHTML = ajax.responseText;					   
//document.divResultado("res"+cont.toString()).innerHTML =ajax.responseText[cont];
}
}
//else
//	divResultado.innerHTML = '<img src="ajax-loader.gif">Cargando...';
}
ajax.send(null)
}
</script>

</head>

<body>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Ors = Server.CreateObject("ADODB.Recordset")
Conn.open = "DSN=cnx;UID=javier;PWD=mmm;DATABASE=db"
Ors.open "SELECT A.Id, A.Archivo, count(A.Archivo) as Cantidad FROM tablaa A LEFT JOIN tablab B ON (A.id = B.id) WHERE (YEAR(A.fechainicio) >= 2009) AND A.Id NOT IN (Select Id_Archivo From tablac) GROUP BY A.Id, A.Archivo", Conn
Do While not Ors.eof
 nombre_carpeta = Ors("Archivo")
 cantidad = Ors("Cantidad")
 r = r + cantidad
 %> 
  <script>
	MostrarConsulta("consulta.asp?nombre_carpeta=<%=nombre_carpeta%>")
  </script>
 <%
 Ors.movenext
Loop
Ors.Close
set fs=nothing
Conn.close
%>
<div id='res' align='center'></div>
</body>
</html>
y en consulta.asp, para probar que envia el dato tengo

Código:
<%
   response.Write(request.QueryString("nombre_carpeta"))
%>

Pero no funciona... ¿Qué es lo que hago mal?