ciao utilizzo lo script sotto x glu upload delle foto

codice:
        Dim oUpload
	Set oUpload= new cUpload
	With oUpload
		.EnabledAspUpload = False
		.EnabledImageSize = TRUE
		.EnabledLog = False
		.AutoRename = True
		.Overwrite = False
		.SetPath "/public/utenti/foto/"
		.Load
		.UploadOnly "Images"
		While Not .Eof
			If .Files("Height")>300 or .Files("Width")>200 then
				Response.write ("Le dimensioni dell'immagine " &_
	 			.GetFileName() &" non sono corrette (" &_
	 			.Files("Height") &"x" & .Files("Width") &"): File non caricato
"  )
			else
				.SaveAs(id & uCase(nomeUtente) & uCase(cognomeUtente) & ".jpg")
					estensione_file = oUpload.Files("ext")
			
				foto = .GetFileName()
				rs1.Open "Select * from utenti Where id="&id, conn1,3,3
				rs1("foto")= foto
				rs1.update
				rs1.close
			end if
			.MoveNext
		Wend
	End With
	Set oUpload = Nothing
ma il pezzo di codice dove dovrebbe scrivermi che il File non viene caricato perkè le dimenzioni sono eccessive, non funziona.
sapreste aiutarmi
grazie