si comporta come se andasse in loop...

codice:
<%
nomebig = ""
nomemini = ""

Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload	= False
.EnabledImageSize	= True
.EnabledLog 		= False
.AutoRename 		= True
.Overwrite			= False
.SetPath "dati\"
.Load
.UploadOnly "Images"

if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
elseif (.Files("Height") = 600 and .Files("Width") = 800) or (.Files("Height") = 98 and .Files("Width") = 130) then
	While Not .EOF
			nomecampo = oUpload.Files("InputName")
			response.Write "il file " & .GetFileName &" è stato salvato
"
			
			if nomecampo = "big" then
				nomebig = .GetFileName
				.SetPath "dati\"
			elseif nomecampo = "mini" then
				nomemini = .GetFileName
				.SetPath "dati\mini\"
			end if
			
			.Save()
			.MoveNext
	Wend
else
	Response.write ("Le dimensioni dell'immagine " &_
	.GetFileName() &" non sono corrette (" &_
	.Files("Height") &"x" & .Files("Width") &"): File non caricato
")
end if

End With
Set oUpload = Nothing

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("dati/dati.mdb"))
Set objRs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * from immagini"
objrs.open sql,objconn, 1,3

objRs.addnew
objRs("nome") = nomebig
objRs("mini") = nomemini
objRs.update
		
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
response.write "
Immagini inserite nel database."
%>
ho sbagliato qualcosa con .SetPath ??