Controllo size su upload di BAOL

[asch]

Ciao,
utilizzando l'upload di BAOL desidero, nel caso di un Upload con LimitSize, stampare un avviso indicando che il file pesa troppo.
In questo modo però il controllo non mi funziona, cosa sbaglio?

<%
Dim oUpload
Set oUpload= new cUpload

With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = False
.Overwrite = True
.SetPath "..\" & Cart
.Load
.Filter = .FilterSize(102000)

While Not .Eof
IF .Files("Size")>102000 then
Response.write ("Il file " & .GetFileName() & " non è stato caricato perchè il file pesa troppo.")
else
.Save
Response.write ("Il file " & .GetFileName() & "  è stato caricato con successo.")
end if
.MoveNext

Wend
End With

Set oUpload = Nothing
%>

[asch]

up

[Baol74]

togli la riga .Filter = .FilterSize(102000)

Il resto è ok

[asch]

Grazie Baol per la tua risposta ma ho questo errore:

Microsoft VBScript runtime error '800a000d'
Type mismatch

IF .Files("Size")> 102000 then ***RIGA DI ERRORE

[Baol74]

Così :

IF cLng(.Files("Size"))> 102000 then

[asch]

ottimo!!!,
grazie
Ciao