correcto lo hice por procedimientos almacenados ahora tengo otro inconveniente tengo la necesidad de generar un reporte en excel desde asp y lo hago de la siguiente forma:
<%
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "filename=reporte.xls;"
%>
<%
Dim oConn1, rs1, sql1
set oConn1 = Server.CreateObject("ADODB.Connection")
set rs1=Server.CreateObject("ADODB.Recordset")
oConn1.Open "Provider=SQLOLEDB;Data Source=jnjvecatempdb;Initial Catalog=yyy; User Id=sa;Password=xxx;"
sql1= "SELECT datos_personales.cedfic"
rs1.Open SQL1,oConn1,1,2
'oConn1.Execute sql1,rs1
if rs1.EOF then
'Response.Write("<P align=center><FONT face=Arial size=2>No hay ningún registro en esta tabla</font></p>")
else
PintarTabla
end if
Sub PintarTabla ()
Response.Write("<TABLE name=inicio align=center border=1 width=50% cellPadding=0 cellSpacing=0>" & vbCrlf)
Response.Write( "<TR name=encabezado>" & vbCrlf)
Response.Write( "<TD><FONT face=Arial size=""1""><B>Cédula</B></font></TD>" & vbCrlf )
Response.Write( "<TD><FONT face=Arial size=""1""><B>Rif</B></font></TD>" & vbCrlf )
Response.Write( "</TR>" & vbCrlf )
while not rs1.EOF
Response.Write( "<TR>" & vbCrlf )
Response.Write( "<TD><FONT face=Arial size=""1"">" & rs1.Fields("cedfic") & "</font></TD>" )
Response.Write( "<TD><FONT face=Arial size=""1"">" & rs1.Fields("riffic") & "</font></TD>" )
Response.Write( "</TR>" & vbCrlf )
rs1.MoveNext
wend
Response.Write("</TABLE name=fin>")
End Sub 'PintarTabla
%>
Que sucede nada me vota el siguiente error:
Active Server Pages, ASP 0113 (0x80004005)
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.
y no me genera el archivo nunca que pordra ser.