grazie funziona con i tui suggerimenti e dopo un pò di studio....

riporto tutto il codice magari può essere d'aiuto a qualcun altro:


codice:
Dim oUpload
Set oUpload = new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("mio.mdb"),"SELECT * FROM products"
.EnabledImageSize = TRUE
.SetPath "/db_documents/" 'parte fissa
.Load
'.UploadOnly "Images"
.MoveFirst
.Database.open()
While Not .Eof

If .Files("InputName") = "imagesmall" Then
.Files("DestPath") = .Files("DestPath") & "images/products/small/" 
	If .Files("Height")>100 or .Files("Width")>100  then 
   		Response.write ("<span class=""intestazioni"">LE DIMENSIONI DELL'IMMAGINE </span> <span class=""intestazioni"">" &_
	   .GetFileName() &"</span> <span class=""intestazioni"">
NON SONO CORRETTE</span> <span class=""intestazioni"">(" &_
	   .Files("Height") &"x" & .Files("Width") &")</span>: <span class=""intestazionired"">Immagine non caricata!</span>

"  )
	   nouploadimages = True
 	Else
		.Save
    	filenameimgs = .GetFileName() 
	End If  

ElseIf .Files("InputName") = "image" and nouploadimages = False  Then
.Files("DestPath") = .Files("DestPath") & "images/products/"
.Save
filenameimg = .GetFileName()   
ElseIf .Files("InputName") = "broscure" and nouploadimages = False  Then
.Files("DestPath") = .Files("DestPath") & "pdf/" 
.Save
filenamebr = .GetFileName()
ElseIf .Files("InputName") = "tdata" and nouploadimages = False Then
.Files("DestPath") = .Files("DestPath") & "technicaldata/" 
.Save
filenametd = .GetFileName()
End If
	 
.MoveNext
Wend
'Spiegazione di questa if.
If nouploadimages = False and .form("image") <> "" then
  .Database.Fields("anno") = .Form("fyear")
  .Database.Fields("title") = .Form("ftitle")
  .Database.Fields("description") = .Form("fdescription")
  .Database.Fields("ldescription") = .Form("fldescription")
  .Database.Fields("idcategoria") = .Form("fcategory")
  .Database.Fields("image") =  filenameimg 
  .Database.Fields("imagesmall") =  filenameimgs 
  IF filenametd <> "" Then
  	.Database.Fields("technicaldurl") =  filenametd
  Else
  	.Database.Fields("technicaldurl") =  "no_tchnical_data.htm"
	notd = true
  End If
  IF filenamebr <> "" Then
  	.Database.Fields("broscureurl") =  filenamebr 
  Else
  	.Database.Fields("broscureurl") =  "no_broscure.htm"
	nobr = true
  End If	
  .Database.Addnew
  IF notd = False and nobr= False then
  response.write "<span class=""intestazioni"">"
  response.write ("AGGIUNTA PRODOTTO CON IMMAGINI, BROSCURE E TECHNICAL DATA RIUSCITO!")
  response.write "</span>"
  Else
    If notd and nobr then
	 response.write "<span class=""intestazioni"">"
  	 response.write ("AGGIUNTA PRODOTTO CON IMMAGINI RIUSCITO! HAI DECISO DI NON CARICARE LA PAGINA TECHNICAL DATA E LA PAGINA BROSCURE PER QUESTO PRODOTTO! ")
  	 response.write "</span>"
	 else
  	 If notd then
  		response.write "<span class=""intestazioni"">"
  		response.write ("AGGIUNTA PRODOTTO CON IMMAGINI E BROSCURE RIUSCITO! HAI DECISO DI NON CARICARE LA PAGINA TECHNICAL DATA PER QUESTO PRODOTTO! ")
  		response.write "</span>"
     End IF
     If nobr then
   		response.write "<span class=""intestazioni"">"
  		response.write ("AGGIUNTA PRODOTTO CON IMMAGINI E TECHNICAL DATA RIUSCITO! HAI DECISO DI NON CARICARE LA PAGINA BROSCURE PER QUESTO PRODOTTO! ")
  		response.write "</span>"
     End IF
	End IF
   End IF
Else 

  response.write "<span class=""intestazioni"">"
  response.write ("IL PRODOTTO NON E' STATO AGGIUNTO! PERCHE LE IMMAGINI SONO RICHIESTE!")
  response.write "</span>"
  
end if
End With
Set oUpload = Nothing