Prova così, funziona solo se carichi un file alla volta:
codice:
<%
strConn = Application("dbconn")
Dim oUpload
Set oUpload= new cUpload
With oUpload
	.SetDatabase strConn,"SELECT Top 1 * FROM INSERZIONI"
	.EnabledImageSize	= False
	.AutoRename 		 = True
	.Overwrite			 = False
	.SetPath "\public\files\"
	.Load
	.Database.Open()
	If .EOF then
		Percorso = "/public/files/no_img.gif"
		Foto = "no_img.gif"
		response.Write "Annuncio senza foto inserito!"
	Else
		.Save
		Percorso = .GetHttpPathFile
		Foto = .GetFileName
		response.Write "Annuncio con foto inserito!"
	End if		
	.Database.Fields("foto") = Foto
	.Database.Fields("percorso") = Percorso
	.Database.Fields("descrizione") = .Form("descrizione")	
	.Database.AddNew()
	.Database.Close
End With
Set oUpload = Nothing
%>
Comunque per leggere le variabili form non devi usare Request.Form ma oUpload.Form come si vede nel codice