Buffer Limit Exceeded

[moribura]

Ciao,

devo stamapare oltre 9000 record pescati da una tabella. Ricevo questo errore:

Response object error 'ASP 0251 : 80004005'

Response Buffer Limit Exceeded

prova.asp, line 0

Come posso evitarlo?..Sapete indicarmi qualche metodo per settarlo?

[agenti]

stampare a video senza paginazione ?
:rollo:

[moribura]

si ..

ma lo scopo dello script non è stamparli a video ma inserirli in una ltro db..
pesco da una tab e porto in un'altra..

ma ricevo quell'errore se supero i 5000 record..anche non stampati...

[Roby_72]

response.buffer = true

all'inizio dello script, ma forse anche il timeout dovrai aumentare...

Roby

[moribura]

Si il timeout l'ho settato..
ora provo response.buffer = true..
grazie

[moribura]

non funzeca..da errore di buffer limit lo stesso

[Mems]

Vediamo il codice della tua pagina?

[moribura]

Eccolo..ci sono ancora un po' di cose da sistemare ma funziona...
dopo 4000/5000 record mi da errore di buffer..

<%

server.scriptTimeOut = 6000
response.buffer = true


'CONNESSIONE AL DATABASE
'Modificare nome db in file backup / Logout
Set Conn = server.createobject("ADODB.connection")
Conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("database/dati.mdb")
Conn.open


'CONDIZIONE BASE - TROVA TUTTO
strsql= "SELECT * FROM immobili where Note <> '' AND Nazione = 'ITALIA' AND Comune <> '' AND Provincia <> '' AND Regione <> 'England' AND Regione <> 'ESTERO' AND Regione <> 'Monaco' AND Regione <> 'Switzerland' AND Regione <> 'England' AND Regione <> 'Provence-Alpes-Côte d''Azur' AND Regione <> 'United States' AND Indirizzo <> 'San Francisco'"

'STRINGA DI CONNESSIONE
set DBrec=server.createobject("ADODB.recordset")

DBrec.open strsql, Conn, 3


'Controllo se ci sono annunci
if(DBrec.recordcount) = 0 then
Response.write "Nessun dato presente."
else
Do while not DBrec.EOF

agenzia = "--"
email = "--"
telefono = "--"
annuncio_id = 0

rif = DBrec("CodIns")
if (rif = "") then
rif = "--"
end if


if (DBrec("Superficie") <> "") then
mq = DBrec("Superficie")
else
mq = "0"
end if


prezzo = DBrec("Prezzo")
prezzo = Fix(prezzo)
if (prezzo = "") then
prezzo = 0
end if

contratto = DBrec("AffVenProp")
if (contratto = "") then
contratto = "--"
end if

if (DBrec("Zona") <> "") then
zona = DBrec("Zona")
zona = replace(zona, "'", "''")
else
zona = "--"
end if

citta = DBrec("Provincia") & " - " & DBrec("Comune")
citta = replace(citta, "'", "''")


via = DBrec("Indirizzo")
via = replace(via, "'", "''")

if (via = "--") then
via = "--"
end if

tipo = DBrec("Tipologia")
if (tipo = "") then
tipo = "--"
end if

vani = DBrec("Locali")
if (vani = "") then
vani = "--"
end if

descrizione = DBrec("Note")
if (descrizione = "") then
descrizione = "--"
end if


immagine1 = DBrec("Foto")
if (immagine1 = "") then
immagine1 = "--"
end if

immagine2 = DBrec("Piantina")
if (immagine2 = "") then
immagine2 = "--"
end if

strsql = "INSERT INTO dati_cliente (annuncio_id, rif, mq, prezzo, zona, citta, via, regione, tipo, descrizione, immagine1, immagine2, provenienza, contratto, ragsoc)VALUES ('" & annuncio_id & "', '" & rif & "', '"& mq &"', '" & prezzo & "', '" & zona & "', '" & comune & "', '" & via & "', '" & regione & "', '" & tipo & "', '" & replace(descrizione, "'", "''") & "', '" & immagine1 & "', '" & immagine2 & "', '" & provenienza & "', '" & contratto & "', '" & ragsoc & "')"

response.write strsql

'lancio la sql
conn.execute(strsql)

response.write "Scritto con successo record numero

"

DBrec.MoveNext
Loop
end if



'Libero il db e chiudo tutto
DBrec.close
set DBrec = nothing

Conn.close
set Conn = nothing
%>

grazie

[yro]

ho lo stesso problema...

anche se io devo solo stampare a video i record... e uso sqlserver

i recors sono tantini... tipo 14000 o anche +

[Mems]

Paginateli.