Que tal Sensei necesito ayuda...
Hola, necesito una guía con dos problemillas:
1.- En que parte específicamente debo poner el Server.ScriptTimeout dentro de mi página, esto es antes del código, en el header, en body, etc. Aunque suena un poco tonto, no cacho donde ponerlo.
2.- Tengo una página que imprime en pantalla el resultado de un SP, al cual le pasé los parámetros vía formulario, la pregunta es ¿Comoexporto la impresión que tengo en pantalla a un Excel? Ya probé las lineas
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition","attachment;filename=miexcel.xls"
pero me crean un Excel vacío, sólo con los títulos de las columnas.
Adjunto código por si se requiere...
Desde ya gracias.
<html>
<head>
<title>Informe Excel</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition","attachment;filename=informexls.xls" %>
<style type="text/css">
<!--
.Estilo1 {color: #FFFFFF}
-->
</style>
</head>
<body>
<%
Dim objRst
isbn = Request.form("isbn")
local = Request.form("local")
fecha = Request.form("fecha")
Set objCon=Server.CreateObject("ADODB.Connection")
objCon.Open "DSN=BDFlexline;UID=xxxxxxxx;PWD=xxxxxxxx"
Set objRst=Server.CreateObject("ADODB.Recordset")
Set objRst=objCon.Execute ("EXEC flexline.ecp_movconsbod '"& isbn &"','"& local &"','"& fecha &"'")
%>
<table id="libros" width="1082" border="1" align="center" bordercolor="#FFFFFF" bgcolor="#DFF7FF" >
<tr bgcolor="#006699">
<td width="110">
<div align="center" class="Estilo1 Estilo4 Estilo2"><span class="Estilo13">Código</span></div>
</td>
<td width="90">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Título</span></div>
</td>
<td width="49">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Local</span></div>
</td>
<td width="103">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Tipo Docto.</span></div>
</td>
<td width="59">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Fecha Docto.</span></div>
</td>
<td width="78">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Bodega</span></div>
</td>
<td width="112">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Número</span></div>
</td>
<td width="73">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Entrada</span></div>
</td>
<td width="69">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Salida</span></div>
</td>
<td width="106">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Precio</span></div>
</td>
<td width="70">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Tipo Dcto. Origen</span></div>
</td>
<td width="87">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Num.Docto. Origen</span></div>
</td>
</tr>
<%while not objRst.EOF%>
<tr bgcolor="#ffffff">
<td width="110">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("codigo")%></div>
</div>
</td>
<td width="90">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("titulo")%></div>
</div>
</td>
<td width="49">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("local")%></div>
</div>
</td>
<td width="103">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("tipodocto")%></div>
</div>
</td>
<td width="59">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("fecha_doc")%></div>
</div>
</td>
<td width="78">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("bodega")%></div>
</div>
</td>
<td width="112">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("numero")%></div>
</div>
</td>
<td width="73">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("entrada")%></div>
</div>
</td>
<td width="69">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("salida")%></div>
</div>
</td>
<td width="106">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("precio")%></div>
</div>
</td>
<td width="70">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("tdoc_origen")%></div>
</div>
</td>
<td width="87">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("ndoc_origen")%></div>
</div>
</td>
</tr>
<%
objRst.MoveNext
Wend
objRst.Close
Set objRst=Nothing
objCon.Close
Set objCon=Nothing
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader...
1.- En que parte específicamente debo poner el Server.ScriptTimeout dentro de mi página, esto es antes del código, en el header, en body, etc. Aunque suena un poco tonto, no cacho donde ponerlo.
2.- Tengo una página que imprime en pantalla el resultado de un SP, al cual le pasé los parámetros vía formulario, la pregunta es ¿Comoexporto la impresión que tengo en pantalla a un Excel? Ya probé las lineas
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition","attachment;filename=miexcel.xls"
pero me crean un Excel vacío, sólo con los títulos de las columnas.
Adjunto código por si se requiere...
Desde ya gracias.
<html>
<head>
<title>Informe Excel</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition","attachment;filename=informexls.xls" %>
<style type="text/css">
<!--
.Estilo1 {color: #FFFFFF}
-->
</style>
</head>
<body>
<%
Dim objRst
isbn = Request.form("isbn")
local = Request.form("local")
fecha = Request.form("fecha")
Set objCon=Server.CreateObject("ADODB.Connection")
objCon.Open "DSN=BDFlexline;UID=xxxxxxxx;PWD=xxxxxxxx"
Set objRst=Server.CreateObject("ADODB.Recordset")
Set objRst=objCon.Execute ("EXEC flexline.ecp_movconsbod '"& isbn &"','"& local &"','"& fecha &"'")
%>
<table id="libros" width="1082" border="1" align="center" bordercolor="#FFFFFF" bgcolor="#DFF7FF" >
<tr bgcolor="#006699">
<td width="110">
<div align="center" class="Estilo1 Estilo4 Estilo2"><span class="Estilo13">Código</span></div>
</td>
<td width="90">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Título</span></div>
</td>
<td width="49">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Local</span></div>
</td>
<td width="103">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Tipo Docto.</span></div>
</td>
<td width="59">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Fecha Docto.</span></div>
</td>
<td width="78">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Bodega</span></div>
</td>
<td width="112">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Número</span></div>
</td>
<td width="73">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Entrada</span></div>
</td>
<td width="69">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Salida</span></div>
</td>
<td width="106">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Precio</span></div>
</td>
<td width="70">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Tipo Dcto. Origen</span></div>
</td>
<td width="87">
<div align="center" class="Estilo1 Estilo5"><span class="Estilo13">Num.Docto. Origen</span></div>
</td>
</tr>
<%while not objRst.EOF%>
<tr bgcolor="#ffffff">
<td width="110">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("codigo")%></div>
</div>
</td>
<td width="90">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("titulo")%></div>
</div>
</td>
<td width="49">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("local")%></div>
</div>
</td>
<td width="103">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("tipodocto")%></div>
</div>
</td>
<td width="59">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("fecha_doc")%></div>
</div>
</td>
<td width="78">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("bodega")%></div>
</div>
</td>
<td width="112">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("numero")%></div>
</div>
</td>
<td width="73">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("entrada")%></div>
</div>
</td>
<td width="69">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("salida")%></div>
</div>
</td>
<td width="106">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("precio")%></div>
</div>
</td>
<td width="70">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("tdoc_origen")%></div>
</div>
</td>
<td width="87">
<div align="center" class="Estilo7">
<div align="center"><%=objRst("ndoc_origen")%></div>
</div>
</td>
</tr>
<%
objRst.MoveNext
Wend
objRst.Close
Set objRst=Nothing
objCon.Close
Set objCon=Nothing
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader...
1 respuesta
Respuesta de Jorge Vila
1