Como puedo subir un archivo al servidor?

[yeikler]

Necesito subir un archivo a una carpeta especifica del servidor a partir de un formulario pero al mismo tiempo grabar un comentario en la BD (access) traido del mismo formulario y por ultimo grabar el nombre del archivo en la BD para relacionarlo con la foto....................Muchas Gracias

[u_goldman]

A investigar sobre el Xelupload

http://www.aspfacil.com/articulos/07092001.asp

Salu2,

[yeikler]

Gracias por la respuesta, realmente no tengo muchos inconveniente con lo de subir el archivo mi inconveniente es que cuando trato de cacturar los datos que vienen del formulario cuando coloco enctype="multipart/form-data esta opcion en el formulario no puedo capturar lo datos de los otros campos del formulario para grabarlo en la BD y por otro lado no se como grabar solo el nombre del archivo en la BD.

Gracias...........

[u_goldman]

Si, ese artículo te explica como capturar campos de tipo texto ande, lea un poco y si tiene dudas regrese y le ayudamos con gusto

Salu2,

[yeikler]

Gracias tenias razon estaba todo alli, pero ahora me estoy dando tropiezos con un error si me puedes ayudar el error es el siguiente

Tipo de error:
Microsoft JET Database Engine (0x80040E09)
No se puede actualizar. Base de datos u objeto de sólo lectura.
/caracashotlocal/html/subir.asp, línea 46


Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Página:
POST 131757 bytes to /caracashotlocal/html/subir.asp

Datos de POST:
error '80020009'
Ocurrió una excepción.

/iisHelp/common/500-100.asp, line 414


gracias......

[u_goldman]

Código:

Tipo de error:
Microsoft JET Database Engine (0x80040E09)
No se puede actualizar. Base de datos u objeto de sólo lectura.
/caracashotlocal/html/subir.asp, línea 46

Bueno, aquí verifica que tu base de datos no sea de solo lectura...click derecho propiedades y debe tener un checkbox por ahí...
También puede ser que el folder donde reside tenga permisos de escritura...

El otro error vemos después que realices este primer paso


Salu2,

[yeikler]

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

%>