Salve ragazzi, ho un problema con l'upload di baol questo e il codice:

codice:
<%
	If Request.QueryString("Save")="1" then
		Dim oUpload
		Set oUpload = new cUpload
		oUpload.AutoRename = True
		oUpload.Overwrite = False
		oUpload.SetPath "/public/docum_ute" 
		oUpload.Load
		While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "ALLEGATO1"
					FileName_img = oUpload.GetFileName()
				Case "ALLEGATO2"
					FileName_img1 = oUpload.GetFileName()
				Case "ALLEGATO3"
					FileName_img2 = oUpload.GetFileName()
				
			End Select
			oUpload.MoveNext
		Wend			
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/utenti_conf.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "MESSAGGI",Conn,3,3
		Rs.AddNew
		Rs("TITOLO")		= oUpload.Form("TITOLO")
		Rs("DATA")		    = oUpload.Form("DATA")
		Rs("AUTORE")		= oUpload.Form("AUTORE")
		Rs("MESSAGGIO")		= oUpload.Form("MESSAGGIO")
		Rs("USER")		    = oUpload.Form("USER")
		Rs("NOMECOGNOME")	= oUpload.Form("NOMECOGNOME")
		Rs("ALLEGATO1")		= FileName_img
		Rs("ALLEGATO2")		= FileName_img1
		Rs("ALLEGATO3")		= FileName_img2
		Rs.update
		Rs.Close
		Set Rs = Nothing
	End if
%>

mi copia i file nella cartella stabilita, mi riempie il database tranne i campi allegato1 - alegato2 - allegato3, li lascia bianchi, cosa può essere...