Lo que debes hacer es definir una propiedad del Objeto Upload, que es SetMaxSize:
Código:
<%
TamañoMaximoEnBytes = 200000
On error resume next
Set Upload = Server.CreateObject("Persits.Upload")
Upload.SetMaxSize TamañoMaximoEnBytes, True 'Este True lanza un error
If Err.Number = 8 Then
'Se produjo un error se supero el tamaño maximo del archivo
'Salir del prcedimiento
End if
%>
Para el tamaño en pixels de las imagenes
Código:
<%
For each File In Upload.Files
If File.ImageWidth > 100 OR File.ImageHeight > 100 Then
'La imagen es demasioado grande
End If
NExt
%>