upload immagini con baol

[maximino]

Ciao a tutti
Sto utilizzando l'upload di baol.
Ho scaricato l'esempio Upload_database.asp e così com'è funziona benissimo.
Ho provato a modificarlo in modo da uploadare solo immagini di determinate dimensioni (size):

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("documenti.mdb"),"SELECT Top 1 * FROM ARCHIVIO"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite	         = False
.UploadOnly "Images" 
.FilterSize(102000) 
.SetPath "\"
.Load
.MoveFirst
if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
	.Database.Open()
	While Not .EOF
			.Save
			response.Write "il file " & .GetFileName &" è stato salvato 
"
			'Inserimento dei valori
			.Database.Fields("Mittente") = .Form("Mittente")
			.Database.Fields("Percorso") = .GetCompletePathFile
			'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
end if
End With
Set oUpload = Nothing
%>

Quando faccio l'upload ottengo quest'errore:



Microsoft VBScript runtime error '800a01a8'

Object required: 'Files'

/area_riservata/03_user_upload.asp, line 1042



Ecco in rosso la linea 1042 del file 03_user_upload.asp:

 
	Public Property Let Filter(sFilter)
		Files.Filter = sFilter
	end Property

	Public Sub UploadOnly(sToFilter)
		Select Case lCase(sToFilter)
			Case "images","image"	:Files.Filter = FilterImage() 			Case "audio"			:Files.Filter = FilterAudio()
			Case "application"		:Files.Filter = FilterApplication()
			Case "text"				:Files.Filter = FilterText()
			Case "video"			:Files.Filter = FilterVideo()
			Case "zip"				:Files.Filter = "ContentType like 'application/x-zip-compressed'"
		end Select
	end sub

	public function FilterContentType(sMime,sType)
		FilterContentType = "([ContentType] like '"& sMime & "/" & sType &"')"
	end function

	Public function FilterImageSize(Height,Width)
		FilterImageSize =  FilterImage() & " AND ([Height]" & Height & " and [width]" & Width & ")"
	end function

	Public function FilterSize(MaxSize)
		FilterSize = "([SIZE]<" & MaxSize &")"
	end function

	Public Function FilterImage()
		FilterImage = FilterContentType("image","*")
	End Function

grazie 1000 per il vostro aiuto

[Baol74]

Devi mettere i filtri dopo il metodo load ed in questo modo (è + veloce):

oUpload.Load
oUpload.Filter = oUpload.FilterSize(102000) & And_ & oUpload.FilterImage()

[maximino]

grazie mille Baol, funziona alla perfezione!!!!!