Esportazione in Excel tramite ASP

[Mizushi]

Ciao ho il seguente problema:

esporto tramite ASP dei dati di access in un file excel; questo file excel che si genera è grande più di 2 mega, contiene circa 8.000 records e crea dei seri problemi in apertura in locale (excel praticamente si blocca).

Cosa posso fare?

Questo è il codice che utilizzo:

<%

Dim FileName 
FileName="file.xls" 
Response.Buffer = true
Response.ContentType = "application/vnd.ms-excel" 
Response.AddHeader "content-disposition", "inline; filename=" & FileName 
path="../mdb/database.mdb" 

Dim DBConn 
Set DBConn=Server.CreateObject("ADODB.Connection") 

Dim rs 
set rs=Server.CreateObject("ADODB.Recordset") 
strConn="Provider = Microsoft.Jet.OLEDB.4.0;" 
strConn= strConn & "Data Source =" & Server.MapPath(path) 
DBConn.Open strConn 

cod = request.form("Id")

Set rs = DBConn.Execute("SELECT * FROM TABELLA where ID in ("&cod&") order by ID asc")

  Response.write "<table border=1>" 
  Response.Write("<tr>") 

....

  Response.write "</tr>" 
  Response.write "<tr>" 
  Response.Write("<td>") 
  Response.write rs.GetString(,,"</td><td>","</td></tr><tr><td>","") 
  Response.write "</td></tr></table></center>" 
  
Set rs=Nothing 
DBConn.Close 
Set DBConn= Nothing 

Response.flush 
Response.end 
%>

[Roby_72]

ASP non credo c'entri molto.
Se Excel si blocca vuol dire che un file di 2mb è troppo... Riducilo mettendo un tot di record su "n" file.

Roby

[Mizushi]

Grazie Roby, ma come faccio a dividere in records su due file excel diversi?

[Roby_72]

Fai una TOP 100, metti un campo nel db per idnividuare quelli già stampati ed incrementi un contatore... Ogni volta fai in modo che il nuovo file Excel cambi nome.

Roby

[Mizushi]

Non ho capito, scusa... se la query è questa:

Set rs = DBConn.Execute("SELECT * FROM TABELLA where ID in ("&cod&") order by ID asc")

[Mems]

("SELECT TOP 100 * FROM ... ")

[Roby_72]

E poi una volta creato il file devi mettere ad 1 un campo del db altrimenti con la TOP 100 prenderesti sempre i primi e mai gli altri...

Roby

[Mizushi]

Grazie Mems, adesso estraggo i primi cento records che corripsondono alla query ma per gli altri 3.700 ??? :master:

[Roby_72]

Te l'ho già detto.
Estratti i primi 100 metti un flag (1) ad ognuno di essi.
La SELECT devi farla per i primi 100 record dove il campo flag valga 0.

Roby

[Mems]

Allora fai una paginazione a 100 per pagina.