codice:
<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("./mdb/news.mdb"),"SELECT Top 1 * FROM prima "

.EnabledAspUpload = False
.EnabledImageSize = True
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "./foto/"
.Load
.UploadOnly "Images"
If Not .EOF then

If .Files("Height")>=40 or .Files("Width")>=60 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato 
" )

 Response.write ("Ritorna indietro
")
 Response.write ("Pagina Principale Area Riservata
")

Else
 .database.Open()
 .Database.Fields("nome") = .Form("nome")
 .Database.AddNew()
End If


else
	.Database.Open()
	While Not .EOF
			.Save
			response.Write "Dati inseriti e la foto " & .GetFileName &" è stata salvata 
"
			
			Response.write ("Inserisci ancora foto
")
			
			Response.write ("Ritorna Indietro
")
			
			'Inserimento dei valori
			.Database.Fields("nome") = .Form("nome")
			.Database.Fields("filename") = .GetFileName
			.Database.Fields("percorso") = .GetCompletePathFile
			'Inserimento 
			.Database.AddNew()
	.MoveNext
	Wend
end if

end With
Set oUpload = Nothing

%>