Subir Imagen a una base de datos

[dblanco]

Hola Al Zuwaga,

mi problema es que no me sube la imagen, aunque si me guarda el nombre en
mi base de datos. El campo del form es "rutaimagen" y el directorio donde quiero guardarlo "imagenes" que esta justo debajo de propio fichero .asp que ejecuta este codigo (y le he dado privilegios de escritura, claro). Gracias(Añado que si en la ruta del directorio quito la primera "/" --> quedaría "imagenes/" entonces se me queda pillado sin abrirse la pagina y sin darme tampoco ningún error)

dim objUpload
set objUpload = new xelUpload
objUpload.Upload()

if objUpload.Ficheros.Count > 0 then

set objFich = objUpload.Ficheros("rutaimagen")

'Nombre y Extensión original del fichero subido
Nombre = Split(objFich.Nombre, ".")
Extension = Nombre(Ubound(Nombre))

'Asigno el nombre (nick del colaborador) + extensión:
strNombreFichero = Session("user") & "." & Extension

'Finalmente, lo guardo en el directorio imagenes
objFich.GuardarComo strNombreFichero, Server.MapPath("/imagenes/")

'Ahora guardo los datos en la BD
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open Application("Conexion3")
strSQL = "UPDATE COLABORADOR SET avatar = '" & strNombreFichero & "' WHERE codigo = " & Session("user")
cn.Execute strSQL
cn.close

end if