Bueno señores, pues únicamente para comentar que ya se resolvió el problema de los permisos, ahora funciona perfectamente... cuando el recordset esta vacío; cuando este lleva alguna información, me sigue marcando el mismo problema, ya lo verifiqué con un web debugger y es por un header de no-cache, el detalle es que no he puesto ningún encabezado de ese tipo en mi código, bueno , puse uno, pero hasta donde entiendo, ese lo que evita (en teoría) es el no-cache, ¿alguien podría darme una pista?; les adjunto el nuevo código completo
Código ASP:
Ver original<%
Response.Buffer = TRUE
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Cache-Control", "private, max-age=15"
Response.AddHeader "Content-Disposition", "attachment; filename=Reporte_Detallado.xls"
%>
<html>
xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
<meta name=ProgId content=Excel.Sheet>
<meta name=Generator content="Microsoft Excel 9">
<%
Dim rs, obj, Territorio , Ciudad , FechaCredito , FechaPago, closePage
closePage = 0
Territorio = Request.QueryString("cboTerritorio")
Ciudad = Request.QueryString("cboCiudad")
FechaCredito = Request.QueryString("txtFechaCredito")
FechaPago= Request.QueryString("txtFechaPago")
Set rs= CreateObject("ADODB.Recordset")
Set obj = Server.CreateObject("Datos.clsLlena")
Set rs = obj.TraeDatos(cstr(Territorio),cstr(Ciudad),cstr(FechaCredito),cstr(FechaPago))
%>
<title>CLIENTES </title>
</head>
<body>
<table border="0" width="100%">
<tr>
<td> <b>Clientes</b> </td>
<td></td>
<td></td>
<td>
<b><%= Date ()%></b>
</td>
</tr>
<tr>
<td width="50%" align="center" style ="BORDER-BOTTOM: #000000 solid"><b>Empresa</b></td>
<td width="50%" align="center" style ="BORDER-BOTTOM: #000000 solid"><b>Cuenta</b></td>
<td width="50%" align="center" style ="BORDER-BOTTOM: #000000 solid"><b>Nombre</b></td>
<!--bgcolor="#C0C0C0"-->
</tr>
<% Session.Timeout = 180
%>
<%While Not rs.EOF%>
<tr>
<%
Response.Write("<td width='50%' align='center'>" &rs.Fields("Empresa")& "</TD>")
Response.Write("<td width='50%' align='center'>" &rs.Fields("Cuenta")& "</TD>")
Response.Write("<td width='50%' align='center'>" &rs.Fields("Nombre")& "</TD>")
rs.MoveNext
closePage = 1
WEND%>
</tr>
<%
If closePage = 0 then
Response.ContentType = "text/html"
Response.Clear
Response.Write("<script> window.moveTo(1000,1000);</script>")
Response.Write("<script> opener=null; alert('No hay registros.'); window.close();</script>")
Response.End
end if
call obj.CerrarCon
%>
</table>
</body>
</html>
Gracias por sus comentarios