Problemas xelupload

[Blashak]

Buenas,
Tengo dos campos files llamados imagen , imagen 2 y imagen 3 el problema esta cunado por ejemplo envio una imagen por el campo imagen 2 y en el campo imagen 1 no pongo nada me pone este error.
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'objUpload.Ficheros(...)'

esto es porque en el primer campo (imagen) no pongo nada.

Mi codigo

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

if session("Usuario")="" then
response.write "No validado"
else
response.write session("usuario")
end if

'Dim com, rs, SQL
'Dim objUpload, objFich, strNombre, strEdad
'Dim maxtam, strNombreFichero

'nuestro tamaño máximo
maxtam = 250 * 1024

set objUpload = new xelUpload
'recibir formulario
objUpload.Upload()

'recuperamos los campos usuario y edad
formato = objupload.form("formato")
fechale = Day(Date) & Month(Date) & Year(Date)
timela = hour(time) & minute(time) & second(time)
val=fechale&""&timela&""&usua
val2=fechale&""&timela&""&usua&""&"b"
val3=fechale&""&timela&""&usua&""&"c"
val4=fechale&""&timela&""&usua&""&"d"
val5=fechale&""&timela&""&usua&""&"e"
val6=fechale&""&timela&""&usua&""&"f"





'si no ha subido ningún fichero, le avisamos
if objUpload.Ficheros.Count = 0 then
Response.Write("¡No has subido ningún fichero!")
Response.Redirect"anuncio.asp?ima=Debes Insertar almenos una imagen"
response.write(val)
else
if objUpload.Ficheros.Count = 1 then
set objFich = objUpload.Ficheros("imagen")

if objFich.Tamano <= maxtam then

primerfuchero = val & formato
objFich.GuardarComo primerfuchero, Server.MapPath("..\web\imagenes")

Set com = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

'com.ConnectionString = "DSN=registrate"
'com.Open
com.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\web\registrate.mdb"

SQL = "SELECT * FROM anuncio"

rs.Open SQL, com, 0, 2


rs.AddNew
rs.Fields("Imagen") = primerfuchero




rs.Update


rs.Close
set rs = nothing
com.Close
set com = nothing






else
if objUpload.Ficheros.Count = 2 then
set objFich = objUpload.Ficheros("imagen")
set objFich2 = objUpload.Ficheros("imagen2")



if objFich.Tamano <= maxtam then

primerfuchero = val & formato
primerfuchero = val & formato
objFich.GuardarComo primerfuchero, Server.MapPath("..\web\imagenes")
segundofuchero = val2 & formato
objFich2.GuardarComo segundofuchero, Server.MapPath("..\web\imagenes")
Set com = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

'com.ConnectionString = "DSN=registrate"
'com.Open
com.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\web\registrate.mdb"

SQL = "SELECT * FROM anuncio"

rs.Open SQL, com, 0, 2


rs.AddNew

rs.Fields("Imagen") = primerfuchero
rs.Fields("Imagen2") = segundofuchero




rs.Update


rs.Close
set rs = nothing
com.Close
set com = nothing







else


set objFich = objUpload.Ficheros("imagen")
set objFich2 = objUpload.Ficheros("imagen2")
set objFich3 = objUpload.Ficheros("imagen3")



if objFich.Tamano <= maxtam then

primerfuchero = val & formato
objFich.GuardarComo primerfuchero, Server.MapPath("..\web\imagenes")
primerfuchero = val & formato
objFich.GuardarComo primerfuchero, Server.MapPath("..\web\imagenes")
segundofuchero = val2 & formato
objFich2.GuardarComo segundofuchero, Server.MapPath("..\web\imagenes")
tercerfichero = val3 & formato
objFich3.GuardarComo tercerfichero, Server.MapPath("..\web\imagenes")

Set com = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

'com.ConnectionString = "DSN=registrate"
'com.Open
com.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\web\registrate.mdb"

SQL = "SELECT * FROM anuncio"

rs.Open SQL, com, 0, 2


rs.AddNew
rs.Fields("Imagen") = primerfuchero
rs.Fields("Imagen2") = segundofuchero
rs.Fields("Imagen3") = tercerfichero



rs.Update


rs.Close
set rs = nothing
com.Close
set com = nothing









end if
end if
end if
end if
end if
end if




%>

Saludos