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
%>