Poco tempo fà c'era un 3D a proposito non ricordo quale fosse, ma puoi fare una ricerca sul forum.
Ho lo script perché ho l'abitudine di provarli e questo funzionava alla grande e serviva per l'upload (naturalmente con l'upload di Baol) di testo e due immagini di monete (il diritto e il rovescio)in un db e nella cartella public.
codice:

<%
	If Request.QueryString("Save")="1" then
		Dim oUpload
		Set oUpload = new cUpload
		oUpload.AutoRename = True
		oUpload.Overwrite = False
		oUpload.SetPath "public" 'Impostazione del percorso
		oUpload.Load
		While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "dritto"
					FileName_Dritto = oUpload.GetFileName()
				Case "rovescio"
					FileName_Rovescio = oUpload.GetFileName()
			End Select
			oUpload.MoveNext
		Wend			
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbmonete.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "tabmonete",Conn,3,3
		Rs.AddNew
		Rs("valuta")	= oUpload.Form("valuta")
		Rs("data")		= oUpload.Form("data")
		Rs("dritto")	= FileName_Dritto
		Rs("rovescio")	= FileName_Rovescio 
		Rs.update
		Rs.Close
		Conn.Close
		Set Rs = Nothing
		Set Conn=Nothing				
		Set oUpload = Nothing
	End if
%>
Vedi se può servirti come esempio