Problema enviar PDF por correo

[Beav]

Quiero hacer un formulario que tiene un campo para subir pdf para luego enviarlo x correo electrónico.
En el form tengo puesto lo de: ENCTYPE="multipart/form-data".

Y weno cuando le doy a enviar, me sale el error Se requiere un objeto: 'objUpload.Ficheros(...)'

El código de ese error es:

et objUpload = new xelUpload

'Recibimos el formulario
objUpload.Upload()

'Lo sacamos a una variable por comodidad
set objFich = objUpload.Ficheros("ARCHIVO")
contador=objUpload.Ficheros.Count

Al parecer no me encuentra ARCHIVO, pero en el formulario he llamado asi al campo que recoge el PDF. Tambien en la base de datos he creado un campo con el mismo nombre.
¿Alguien me ayuda para solucionar este error?

[Shiryu_Libra]

el PDF, lo guardas en una base de datos????

[Beav]

Iniciado por Shiryu_Libra

el PDF, lo guardas en una base de datos????

Nop. Lo que hago es meterlo en una carpeta del FTP.

El problema que tengo es que ahora me dice que lo he subido correctamente cuando es mentira, miro en el FTP y no hay nada.

El código es este:

'Creamos el objeto
set objUpload = new xelUpload

'Recibimos el formulario
objUpload.Upload()

'Lo sacamos a una variable por comodidad
set objFich = objUpload.Ficheros("fichero")
contador=objUpload.Ficheros.Count

If contador>0 Then

strNombreFichero=objFich.Nombre
NOMBRE_FICHERO=Left(strNombreFichero,InstrRev(strN ombreFichero,".")-1)
'EXTENSION_FICHERO=Right(strNombreFichero,Len(strN ombreFichero)-InstrRev(strNombreFichero,".")+1)

'Tipo_Objeto = objUpload.Form("TIPO_OBJETO")
Dir_subida2 = "/boletin/PDF/"

Dir_subida = server.mappath(Dir_subida2)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If Not(objFSO.FolderExists(Dir_subida)) Then 'No existe carpeta, la creamos
objFSO.CreateFolder(Dir_subida)
End If
Set objFSO=Nothing


objFich.GuardarComo strNombreFichero,Server.MapPath(dir_subida2)

gracias x todo!!!