Salve a tutti sto usando questo codice (che ho trovato sul forum) per un sito in cui devo inserire 2 immagini per record

codice:
 <%
	If Request("Upload")="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 "Percorso"
					FileName_URL = oUpload.GetFileName()
					larghezza_URL = oUpload.Files("Width")
					altezza_URL = oUpload.Files("Height")
				Case "thumb"
					FileName_mini_URL = 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/filippo.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "immagini",Conn,3,3
		Rs.AddNew
		Rs("URL") = FileName_URL
		Rs("mini_URL") = Fileneme_mini_URL
		Rs("didascalia") = oUpload.Form("didascalia")
		Rs("ID") = oUpload.Form("ID")
		Rs("larghezza") = larghezza_URL	
		Rs("altezza") = altezza_URL
		
		Rs.update
		Rs.Close
		Conn.Close
		Set Rs = Nothing
		Set Conn=Nothing				
		Set oUpload = Nothing
	End if
%>
Solo che non mi va...
Inserisce nel database solo ID e didascalia ma non gli altri 4 campi...
Ecco e non mi ero accorto che inserisce 2 record invece di uno solo.
Qualcuno saprebbe dirmi dove sbaglio?

Grazie.