upload baol: caricamento infinito

[yoyo87]

Uso la classe di Baol...faccio l'upload per uno o due file ma appena premo invia la pagina non finisce mai di caricarsi...quale potrebbe essere il problema???
(i file sono immagini di piccole dimensioni)

Set oUpload = new cUpload
With oUpload 
.EnabledAspUpload = False
.EnabledLog = False
.AutoRename = False
.Overwrite = True
.SetPath "/_Image/user/"
.Load
.UploadOnly "Images"
If .Form("file_foto") <> "" AND .Form("file_avatar") <> "" then
reDim usr_NameImg(1)
Do While Not .EOF
usr_NameImg(NumImg) = .Form("usr_nick")&"_foto."& .Files("ext")
usr_NameImg(NumImg) = .Form("usr_nick")&"_avatar."& .Files("ext")
.SaveAs(usr_NameImg(NumImg))
.Save
If Usr_NameImg(0) <> .Form("usr_Foto") then   
Set fs = Server.CreateObject("Scripting.FileSystemObject")
fs.DeleteFile(server.MapPath("\_Image\user\"&.Form("usr_Foto")))
Set fs = nothing
Conn.Execute("UPDATE user_List SET usr_FOTO = '"&Usr_NameImg(0)&"' WHERE ID_usr = "&request.QueryString("id")&"")
End If
If Usr_NameImg(1) <> .Form("usr_Avatar") then 
Set fs = Server.CreateObject("Scripting.FileSystemObject")
fs.DeleteFile(server.MapPath("\_Image\user\"&.Form("usr_Avatar")))
Conn.Execute("UPDATE user_List SET usr_AVATAR = '"&Usr_NameImg(1)&"' WHERE ID_usr = "&request.QueryString("id")&"")
Set fs = nothing
End If			  
NumImg = NumImg + 1
.MoveNext
Loop
ElseIf .Form("file_avatar") <> "" AND .Form("file_foto") = "" then
usr_NameImg = .Form("usr_nick")&"_avatar."& .Files("ext")
.SaveAs(usr_NameImg)
.Save
If Usr_NameImg <> .Form("usr_AVATAR") then 
Set fs = Server.CreateObject("Scripting.FileSystemObject") 
fs.DeleteFile(server.MapPath("\_Image\user\"&.Form("usr_AVATAR")))
Set fs = nothing
Conn.Execute("UPDATE user_List SET usr_AVATAR = '"&Usr_NameImg&"' WHERE ID_usr = "&request.QueryString("id")&"")
Set fs = nothing
End If
ElseIf .Form("file_foto") <> "" AND .Form("file_avatar") = "" then
usr_NameImg = .Form("usr_nick")&"_foto."& .Files("ext")
.SaveAs(usr_NameImg)
.Save
If Usr_NameImg <> .Form("usr_FOTO") then 
Set fs = Server.CreateObject("Scripting.FileSystemObject") 
fs.DeleteFile(server.MapPath("\_Image\user\"&.Form("usr_FOTO")))              
Conn.Execute("UPDATE user_List SET usr_FOTO = '"&Usr_NameImg&"' WHERE ID_usr = "&request.QueryString("id")&"")
Set fs = nothing
End If		   
End If
response.Redirect("admin.asp?page=user_image")
End With

[michele.santoro]

Potresti avere il blocco degli script attivato in Norton per esempio.

[mosquito70]

scusate l'intromissione... dove trovo le librerie di Baol sull'upload?

Non riesco a recuperarle

Grazie

[michele.santoro]

Basta una piccola ricerca nel forum.
Prova a guardare questo 3D