Improvvisamente la classe di Baol mi sembra non stia più funzionando. Nel senso che sembra tutto funzionare bene, mi dice che il file è stato salvato ma poi quando vado a controllare nella mia public non la trovo.

Che dite posto il codice?
codice:
<%
   
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload	= False
.EnabledImageSize	= TRUE
.EnabledLog 		 = False
.AutoRename 		 = False
.Overwrite			 = True
.SetPath "../public"
.Load

'La riga seguente imposta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../mdb-database/photogallery.mdb"),"SELECT * FROM PICTURES " 

.UploadOnly "Images"

IsImage = True
On error resume next
'Controlla le dimensioni dell'immagine di cui si tenta di fare upload
ImageError = .Files("Height")>=470 or .Files("Width")>=760 
H = .Files("Height")
If Err.Number <> 0 then 
   ImageError=True 
   IsImage = False
end if

On error goto 0
If ImageError then
	 If IsImage then
		  Response.write ("L'immagine " &_
	 	 .GetFileName() &" risulta più grande delle dimensioni imposte(" &_
		  .Files("Height") &"x" & .Files("Width") &"): File non caricato!!!")
		
	 else
	 	 Response.Write ("Il file caricato non è un'immagine")
	 End if
else
	.MoveFirst
	if .EOF then
		NumFiles = .Count()
		Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
	else
		.Database.Open()
		While Not .EOF
			if not .Files("FileExists") then
				.Save
				oUpload.MoveFirst() 
				Titolo = oUpload.GetFileName()
				H = oUpload.Files("Height")
				W = oUpload.Files("Width")
				Response.Write(Titolo) 
 				Response.Write "Il file " & .GetFileName &" è stato salvato"
				.Database.Fields("PIC_IMAGE") = Titolo
				.Database.Fields("PIC_DESC") = .Form("PIC_DESC")
				.Database.Fields("PIC_NAME") = .Form("PIC_NAME")
				.Database.Fields("PIC_CAT") = .Form("PIC_CAT")
				.Database.Fields("PIC_HEIGHT") = H
				.Database.Fields("PIC_WIDTH") = W
				.Database.Fields("Nome") = .Form("Nome")
				.Database.Fields("Cognome") = .Form("Cognome")
				.Database.Fields("email") = .Form("email")
				.Database.Fields("ip") = Request.ServerVariables("REMOTE_ADDR")
				.Database.Addnew()
			else
				response.Write "Il path che si è cercato di salvare è già presente sul DB.
Cancellare l'immagine ed il relativo path per riprovare l'operazione."			
			end if 
		.MoveNext
		Wend
	end if
end if

End With
Set oUpload = Nothing
%>