Saludos A todos espero alguien me pueda ayudar tengo un ASP donde exporto una consulta a excel y no habia
tenido problemas pero ahora que voy a exportar mas de 3000 registros los cuales no se me hacen muchos no lo hace
anexo el asp que utilizo para expotarlos y funciona a la perfeccion hasta 2000 registros
<%@ Language=VBScript %>
<%
Set conn=Server.CreateObject("ADODB.Connection")
//conn.ConnectionString="Provider=SQLNCLI10;Server=l ocalhost;Database=SINAVE;Uid=sa;Pwd=sa;"
conn.ConnectionString="Provider=SQLNCLI10;Server=l ocalhost;Database=SINAVE;Uid=sa;Pwd=sa;"
conn.open
sSelect="select * from tmp_nutraves "
Set cmd=Server.CreateObject("ADODB.Command")
cmd.activeconnection=conn
cmd.commandtext=sSelect
Set RS=Server.CreateObject("ADODB.recordset")
set RS=cmd.execute()
Response.ContentType = "application/vnd.csv"
Response.AddHeader "Content-Disposition", "filename=Reporte_Global.cvs;"
for i = 0 to RS.Fields.Count-1
if i = (RS.Fields.Count - 1) then
Response.Write lcase(RS.Fields(i).Name)
else
Response.Write lcase(RS.Fields(i).Name) & ","
end if
next
Response.write vbNewLine
Response.write vbNewLine
while not RS.EOF
for u=0 to RS.Fields.Count - 1
if u = (RS.Fields.Count - 1) then
Response.Write RS.Fields(u).Value
else
Response.Write RS.Fields(u).Value & ","
end if
next
response.write vbNewLine
rs.MoveNext
wend
Response.write vbNewLine
Response.write vbNewLine
Set RS = Nothing
Set DB = Nothing
%>
