Ok, gracias pero sigo teniendo el mismo inconveniente ya he verificodo las propiedades y nada te voy a mostras es codigo para descartar que este el error alli, una vez mas gracias
<%
Response.Buffer = True
Dim Conn, rs, SQL
Dim objUpload, objFich, strTabla, strComentario
Dim maxtam, strNombreFichero
'nuestro tamaño máximo
maxtam = 200 * 1024
set objUpload = new xelUpload
objUpload.Upload()
'recuperamos los campos Tabla y Comentario
strTabla = objUpload.Form("tabla")
strComentario = objUpload.Form("comentario")
'si no ha subido ningún fichero, le avisamos
if objUpload.Ficheros.Count = 0 then
Response.Write("¡No has subido ninguna Imagen!")
else
'accedemos al fichero por su nombre en el formulario
set objFich = objUpload.Ficheros("imagen")
if objFich.Tamano <= maxtam and objFich.TipoContenido = "image/gif" then
'Es el fichero correcto, vamos a guardarlo en todas partes.
'Primero, en nuestro directorio actual con el nombre que tiene
objFich.Guardar Server.MapPath("\html\fotos")
conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("\TABLA\caracas.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT foto, comentario from caserachicas ", conn, 2, 3
rs.AddNew
rs.Fields("Comentario") = strComentario
rs.Fields("foto") = objFich.Nombre
rs.Update
rs.Close
set rs = nothing
Conn.Close
set Conn = nothing
set objFich = nothing
set objUpload = nothing
else
'No era un fichero válido
Response.Write("No es una imagen Validad")
Response.Write("Tiene que ser un Imagen jpg de menos de 15k.")
end if
end if
%>
