preloader para pagina asp

elmargaro · #1 (**permalink**) 04/05/2004, 16:12

que tal amigos tengo el siguiente problema, obtuve un preloader que se ejecuta mientras se carga una pagina asp, tengo 20 paginas y en 19 me funciona bien en una de repente se empalma el preloader con los datos, alguna sugerencia por ahi??? el reporte que se ejecuta obtiene muchos datos, no se si sea eso o que otra cosa podria ser?? dado que en las otras 19 paginas todo funciona bien pero en esta no y revise linea por linea y todo es igual, no se que hacer, gracias de antemano

8461277 · #2 (**permalink**) 05/05/2004, 05:44

Amigo cual es el codigo que esta usando para ver en que se te puede ayudar, ya que depende del codigo que tiene y las variables que estas usando en esa pagina pude exister la diferencia

elmargaro · #3 (**permalink**) 05/05/2004, 07:51

aqui esta



<html>
<head>
<title>Reporte X</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<script language="JavaScript">

ns=document.layers
ie=document.all

function esconde() {
if (ie) precarga.style.visibility="hidden";
if(ns) document.pregarga.visibility="hide";
}
// -->

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
obj.visibility=v; }
}
//-->
</script>

<style>
#precarga{position:absolute; width:100%; height:100%; top:0; left:0}
</style>
</head>
<body onload="esconde();MM_showHideLayers('Printer','',' show')" background="images/wlbk072.jpg" text="#000000" >
<%
Server.ScriptTimeout=15000
Response.Flush()
Dim rs,rsx,conn,lsStrconn,gtFecha1,gtFecha2,giVisible
Dim URL

gtFecha1=Request.QueryString("fecha1")
gtFecha2=Request.QueryString("fecha2")
URL="javascript:void(window.open('exreportedatosin comperroneos.asp?fecha1="& gtFecha1 &"&fecha2="& gtFecha2&"&Di="& Request.QueryString("Di")&"&De="& Request.QueryString("De")&"','Generando_Documento' ,'toolbar=no,location=no,status=no,scrollbars=no,w idth=400,height=200'))"

lsStrConn = cl_Conexion_DB
set conn = server.createobject("adodb.connection")
conn.open lsStrConn
%>

<script language="JavaScript">
if(ie || ns) document.write('<div id="precarga" align="center"> Ejecutando Consulta.... Por Favor Espere...!!!</div>');
</script>
<div id="Printer" style="position:absolute; left:751px; top:58px; width:69px; height:28px; z-index:1; visibility: hidden;"><a href="JavaScript:window.print();" title="Imprimir Página"><img src="images/print.gif" width="32" height="32" border="0"></a>
<a href=<%=URL%> title="Exportar Página a Archivo de Excel"><img src="images/xlsicon.gif" width="28" height="28" border="0"></a></div>
<%
giVisible=0

DatosIncompletos
if giVisible=0 then
%><div id="Printer" style="position:absolute; left:751px; top:58px; width:35px; height:28px; z-index:1; visibility: hidden;"></DIV><%
end if

Function DatosIncompletos
if Request.QueryString("Di")="S"then
Dim lsSqltxt,liColor

set rsx=createobject("ADODB.Recordset")
lsSqltxt="SELECT * FROM lectura_incomp where fh_recepcion between '"& gtFecha1 &" 00:00:00" &"' and '"& gtFecha2 &" 23:59:59.999'"
rsx.open lsSqltxt,conn
if not (rsx.eof and rsx.bof) then
giVisible=1
liColor=0 %>

<table width="75%" border=".5" align="center" cellpadding="2" cellspacing="0" bordercolor="GRay" rules="all" id="ProjectsGrid" style="border-color:White;border-style:None;width:75%;border-collapse:collapse;">
<tr align="center" >
<th nowrap bgcolor="#009933" scope="col">Medidor</th>
<th nowrap bgcolor="#009933" scope="col">Fecha de Recepción en el NS</th>
<th nowrap bgcolor="#009933" scope="col">Variable</th>
</tr><%
rsx.MoveFirst
do while not rsx.eof
%><tr><%
if liColor=1 then %>
<td align="center" nowrap bgcolor="#FFFFFF"><%=rsx("cl_idcfe")%></td>
<td align="center" nowrap bgcolor="#FFFFFF"><%=rsx("fh_recepcion")%></td>
<td align="center" nowrap bgcolor="#FFFFFF"><%=rsx("cl_varuca")%></td><%
liColor=0
else %>
<td align="center" nowrap><%=rsx("cl_idcfe")%></td>
<td align="center" nowrap><%=rsx("fh_recepcion")%></td>
<td align="center" nowrap><%=rsx("cl_varuca")%></td><%
liColor=1
end if
%></tr><%
rsx.moveNext
loop
rsx.close
set rsx=nothing
%>
 <Center><%="DATOS INCOMPLETOS"%></Center> 
<center><%="DE"%>&#160&#160 <%=gtFecha1 &" 00:00:00"%> &#160&#160<%=" HASTA "%>&#160&#160 <%=gtFecha2 &" 23:59:59"%></center>
 
</table>
<%
else
%><center>NO EXISTEN DATOS PARA MOSTRAR</center><%
end if
end if
if Request.QueryString("De")="S"then

set rsx=createobject("ADODB.Recordset")
lsSqltxt="SELECT * FROM lectura_errhr where fh_lectura between '"& gtFecha1 &" 00:00:00" &"' and '"& gtFecha2 &" 23:59:59.999'"
rsx.open lsSqltxt,conn
if not (rsx.eof and rsx.bof) then
giVisible=1
liColor=0 %>
 
<table width="75%" border=".5" align="center" cellpadding="2" cellspacing="0" bordercolor="GRay" rules="all" id="ProjectsGrid" style="border-color:White;border-style:None;width:75%;border-collapse:collapse;">
<tr align="center" >
<th nowrap bgcolor="#009933" scope="col">Medidor</th>
<th nowrap bgcolor="#009933" scope="col">Fecha de Lectura</th>
<th nowrap bgcolor="#009933" scope="col">Fecha de Recepción en el NS</th>
<th nowrap bgcolor="#009933" scope="col">Variable</th>
</tr><%
rsx.MoveFirst
do while not rsx.eof
%><tr><%
if liColor=1 then %>
<td align="center" nowrap bgcolor="#FFFFFF"><%=rsx("cl_idcfe")%></td>
<td align="center" nowrap bgcolor="#FFFFFF"><%=rsx("fh_lectura")%></td>
<td align="center" nowrap bgcolor="#FFFFFF"><%=rsx("fh_recepcion")%></td>

<td align="center" nowrap bgcolor="#FFFFFF"><%=rsx("cl_varuca")%></td><%
liColor=0
else %>
<td align="center" nowrap><%=rsx("cl_idcfe")%></td>
<td align="center" nowrap><%=rsx("fh_lectura")%></td>
<td align="center" nowrap><%=rsx("fh_recepcion")%></td>
<td align="center" nowrap><%=rsx("cl_varuca")%></td><%
liColor=1
end if
%></tr><%
rsx.moveNext
loop
rsx.close
set rsx=nothing
%>
 <Center>DATOS ERRONEOS</Center> 
<center>DE&#160&#160 <%=gtFecha1%> 00:00:00 &#160&#160 HASTA &#160&#160 <%=gtFecha2%> 23:59:59</center> 
</table><%
else
%><center>NO EXISTEN DATOS PARA MOSTRAR</center><%
end if
end if
End Function
%>
</body>
</html>

bueno todo ese chorizote es el codigo una manera que encontre de solucionarlo por lo pronto es no ejecutar dos funciones seguidas dado que me di cuenta que cuando el reporte ejecutaba una al terminar era cuando desplegaba los datos y luego ejecutaba la segunda asi que por lo pronto hice un menu que solo permite ejecutar una funcion a la vez y ahi ya no se empalman los datos