upload di baol: gestione errori

[lucavizzi]

Ciao a tutti,
sto usando l'upload di baol per caricare grossi file, 50/60MB.

La buona notizia è che su aruba la pagina non incappa nello script-timeout di 60'' (ho caricato 20MB in 6 minuti).

la cattiva è che con i file molto grossi la pagina da 'errore interno del server'.

Sto cercando di gestire gli errori per reindirizzare ad una pagina con descrizione dell'errore.

il codice:

<%
On Error Resume next
%>

<%
inizio=Time
Dim oUpload
Set oUpload = new cUpload
	oUpload.SetPath "public/Upload"
	oUpload.UploadAndSave
Set oUpload=Nothing

if (Err.Number <> 0) then
	Response.Redirect("upload-errore.asp?time="&inizio)
else
	ref=Request.ServerVariables("HTTP_REFERER")
	arr_ref=Split(ref,"?")
	ref=arr_ref(0)
	Response.Redirect(ref&"?id=saved")
end if
%>

On error Resume next sembra non funzionare.

Se l'upload va a buon fine c'è regolarmente il redirect al referer (else)

non avviene il redirect alla pagina di errore 'upload-errore.asp' ma viene mostrata la pagina standard dell'errore 500

come ovviare?

grazie
Luca

[Roby_72]

Su aruba sono attivi i componenti della Persits:
http://vademecum.aruba.it/start/persits/

Roby

[lucavizzi]

sì lo sapevo, ma sono abituato a lavorare con baol.

Pensi che dovrei usare persits?

[Roby_72]

Prova a vedere. Il componente "dovrebbe" essere più performante... e veloce.

Roby

[lucavizzi]

l'ho provato ma non riesco comunque a gestire gli errori, con i file piccoli va bene, ho provato con un 15 MB e mi da la pagina errore 500

<%
On error Resume next
inizio=Time

Set Upload = Server.CreateObject("Persits.Upload")

' Do not throw the "Wrong ContentType error first time out
Upload.IgnoreNoPost = True

Count = Upload.Save(Server.MapPath("/public/VideoUpload/"))

'If Count > 0 Then
'	Response.Write Count & " file(s) caricati."
'End If

'Dim oUpload
'Set oUpload = new cUpload
'	oUpload.SetPath "public/VideoUpload"
'	oUpload.UploadAndSave
'Set oUpload=Nothing

if (Err.Number <> 0) then
	Response.Redirect("upload-errore.asp?time="&inizio)
else
	ref=Request.ServerVariables("HTTP_REFERER")
	arr_ref=Split(ref,"?")
	ref=arr_ref(0)
	Response.Redirect(ref&"?id=saved")
end if
%>
Done

[lucavizzi]

persits non fa al caso mio,
mi da errore 500 (ingestibile) anche per file di 5MB.

baol mi consente taglie maggiori ma come gestisco sto errore 500?

[lucavizzi]

on error resume next funziona con l'errore 500?

si tratta cmq di script timeout con persits

[Roby_72]

Ma l'hai aumentato lo script timeout? Altrimenti non potrà mai funzionare.

Roby

[lucavizzi]

su aruba è 60'' non credo sia possibile modificarlo, o sì?

[Roby_72]

Si prova ad aumentarlo anche perché non puoi sperare di fare l'upload di 60 MB in 60 secondi!

Roby