Confusion para Upload simultaneo

[gustavowd]

Buenos dias, apelo a ustedes con un problema que me esta volviendo un poco loco.

estoy uplodeando 2 files de un formulario, lo que quiero ahora es en el segundo file, limitar el tamaño del file a 20MB.
ademas si me dan alguna sugerencia en cuanto al codigo, como lo ven. las otras variables que ven las uso luego para guardar la info en una base.

Código:

<!--#include file="xelupload.asp"-->

<%
Dim up, fich, URL, Desc, flag, nombreOr(2), nombreNu(2), tamano(2), tipo(2), tamal, extencion, I, MAXTAM
MAXTAM = 20000
set up = new xelUpload
up.Upload()
id_user = up.form ("id_usuario")
URL = up.form("url")
comentario = up.form("comentario")
flag = 0%>

<%
For each fich in up.Ficheros.Items
' Guardo Nombre Original del Archivo
nombreOr(flag) = fich.Nombre
tamano(flag) = fich.Tamano
tipo(flag) = fich.TipoContenido
'Concateno los distintos datos con "-" para armar el nombre
nombrefichero1 = id_user & "-" & URL & "-" & fich.Nombre
'Remplazo las / si es que hay por "-"
nombrefichero1 = Replace(nombrefichero1, "/", "-")
'Guardo el nombre nuevo para guardarlo despues en la base
nombreNu(flag) = nombrefichero1
'Separo el nombre Original en el punto para sacar la estencion
nombrefichero3 = Split(fich.Nombre, ".")
'Saco la extencion sola
extencion = LCase(nombrefichero3(ubound(nombrefichero3)))

'Compruebo que el archivo anterior se haya subido bien, si no, no sigo
if tamal = "No" OR tamal = "" then
	'Compruebo la extencion, Tambien si queres podes comparar el tipo de archivo
	if (extencion = "rar" OR  extencion = "zip" OR extencion = "doc" OR extencion = "ace")  then
		'Guardo el archivo
		fich.GuardarComo nombreNu, Server.MapPath("file\")
		'preparo una variable para decir que todo fue bien
	   	tamal = "No"
	else
		'El archivo anterior cargo bien pero este no, Tonces borro el alterior
		if tamal = "No" OR tamal = "" then
        	Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
			if ScriptObject.FileExists("C:\Inetpub\wwwroot\tavo\file\" & nombreNu(0)) then
		   		ScriptObject.DeleteFile("C:\Inetpub\wwwroot\tavo\file\" & nombreNu(0))
			end if
		end if
		'El archivo no tiene la extencion requerida
		tamal = "Tipo de archivo incorrecto, Por Favor, Ingrese solo archivos<br><b>.rar</b>, <b>.zip</b>, <b>.ace</b>, <b>.doc</b>, <b>.txt</b>, <b>.htm</b>, <b>.html</b>"
	end if
else
	tamal = "Tipo de archivo incorrecto, Por Favor, Ingrese solo archivos<br><b>.rar</b>, <b>.zip</b>, <b>.ace</b>, <b>.doc</b>, <b>.txt</b>, <b>.htm</b>, <b>.html</b>"
end if
flag = flag + 1
' fich.GuardarComo nombrefichero2, Server.MapPath("file\")
'----------------------------------------------------------------
Next
'Limpiamos objeto
set up = nothing
%>

espero cualquier sugerencia.
en especial si me pueden ayudar por favor en el problema q tengo de controlar el tamaño del file 2

muchas gracias

Gustavo