La Dim fuori dall'IF, onde evitare di allocare memoria...

codice:
<%
Dim oUpload
If request("upload")=1 Then
   Set oUpload = new cUpload
   oUpload.Load()
   oUpload.Filter = oUpload.FilterSize(102000)
   oUpload.SaveAll
   Set oUpload=Nothing
End If
%>
<form .... action="?upload=1"> ....