El peso adecuado de una página asp???

[Pachangero]

Saludos

Les pongo una parte del codigo porque es demasiado grande y colocarlo todo hace que exista un problema

Estos son los campos que pido para la información:

Number2 = Request.Form("Number")
Equipo2 = Request.Form("Equipo")
clave=Request.Form("orden")
Fecha_captura2 = Request.Form("Fecha_captura")
Fecha_deteccion2 = Request.Form("Fecha_deteccion")
Fecha_compromiso2 = Request.Form("Fecha_compromiso")
Fecha_correccion2 = Request.Form("Fecha_correccion")
Rubro2 = Request.Form("Rubro")
Ponderacion2 = Request.Form("Ponderacion")
maquina2 = Request.Form("maquina")
Componente2 = Request.Form("Componente")
Avance2 = Request.Form("Avance")
Anomalia2 = Request.Form("Anomalia")
Solucion2 = Request.Form("Solucion")
Observacion2 = Request.Form("Observacion")
Costo2 = Request.Form("Costo")
Elaboro2 = Request.Form("Elaboro")

Posteriormente se realiza la conexion a la BD

Después entran las condiciones primero para ver si seleccionada alguna opcion del campo ORDEN

if Trim(request.form("Orden")) <> "" then 'Orden

A continuación de realizan cada una de las condiciones con los IF de los demas campos. Unicamente pongo un ejemplo puesto que es demasiado.

Select Case clave
Case "Activo":
if Trim(request.form("Equipo")) <> "" then 'Equipo
if Trim(request.form("Fecha_captura")) <> "" then 'Fecha_captura
if Trim(request.form("Fecha_deteccion")) <> "" then 'Fecha_deteccion
if Trim(request.form("Fecha_compromiso")) <> "" then 'Fecha_compromiso
if Trim(request.form("Fecha_correccion")) <> "" then 'Fecha_correccion
if Trim(request.form("Rubro")) <> "" then 'Rubro
if Trim(request.form("Ponderacion")) <> "" then 'Ponderacion
if Trim(request.form("maquina")) <> "" then 'maquina
if Trim(request.form("Componente")) <> "" then 'Componente
if Trim(request.form("Avance")) <> "" then 'Avance
if Trim(request.form("Anomalia")) <> "" then 'Anomalia
if Trim(request.form("Solucion")) <> "" then 'Solucion
if Trim(request.form("Observacion")) <> "" then 'Observacion
if Trim(request.form("Costo")) <> "" then 'Costo
if Trim(request.form("Elaboro")) <> "" then 'Elaboro

sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Observacion ='" & Observacion2 & "', Costo ='" & Costo2 & "', Elaboro ='" & Elaboro2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
else 'Elaboro

sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Observacion ='" & Observacion2 & "', Costo ='" & Costo2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
end if 'Elaboro
else 'Costo

if Trim(request.form("Elaboro")) <> "" then 'Elaboro

sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Observacion ='" & Observacion2 & "', Elaboro ='" & Elaboro2 & "' Where Number =" & Number2 & ""


set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
else 'Elaboro

sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Observacion ='" & Observacion2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing end if 'Elaboro
end if 'Costo
else 'Observacion
if Trim(request.form("Costo")) <> "" then 'Costo
if Trim(request.form("Elaboro")) <> "" then 'Elaboro

sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Costo ='" & Costo2 & "', Elaboro ='" & Elaboro2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
else 'Elaboro
sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Costo ='" & Costo2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
end if 'Elaboro
else 'Costo

if Trim(request.form("Elaboro")) <> "" then 'Elaboro
sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Elaboro ='" & Elaboro2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
else 'Elaboro

sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
end if 'Elaboro
end if 'Costo
end if 'Observacion
.
.
.


Case "Activo2":
Case "Activo3":
Case "Activo4":
Case "Activo5":


End Select
end if 'Orden

Me gustaria subir el archivo mas no esta permitido y como les menciono subir todo el codigo es demasiado.