Estoy haciendo una web en la que el usuario guarda imagen con datos sobre el anuncio que publica y al guardar la imagen en la bd me la guarda bien pero en la carpeta del servidor la guarda dañada.
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 datos
titu = objUpload.Form("Titulo")
pre = objupload.form("Precio")
obse = replace(objupload.form("Observacion"),chr(10),"<br >")
usua = session("usuario")
Fech = Date()
formato = objupload.form("formato")
fechale = Day(Date) & Month(Date) & Year(Date)
timela = hour(time) & minute(time) & second(time)
val=fechale&""&timela&""&usua
'si no ha subido ningún fichero, le avisamos
if objUpload.Ficheros.Count = 0 then
Response.Write("¡No has subido ningún fichero!")
else
'accedemos al fichero por su nombre en el formulario
set objFich = objUpload.Ficheros("imagen")
'and objFich.TipoContenido = "image/jpeg"
if objFich.Tamano <= maxtam then
'Es el fichero correcto, vamos a guardarlo en todas partes.
primerfuchero = val & formato
objFich.GuardarComo primerfuchero, Server.MapPath("..\web\imagenes")
set com = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
'Nos conectamos con ODBC sin DSN, suponiendo que la base
com.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\web\registrate.mdb"
SQL = "SELECT * FROM anuncio"
'Abrimos el Recordset: el 0 es el cursor adForwardOnly
' y el 2 es el cerrojo adLockPessimistic
rs.Open SQL, com, 0, 2
'Añadimos un nuevo registro
rs.AddNew
rs.Fields("Titulo") = titu
rs.Fields("Precio") = pre
rs.Fields("Observacion") = obse
rs.Fields("Fecha") = Fech
rs.Fields("Imagen") = primerfuchero
rs.Fields("Usu") = usua
'Guardamos el nuevo registro
rs.Update
'y limpiamos todo que vienen los padres
rs.Close
set rs = nothing
com.Close
set com = nothing
'¡Todo correcto!
Response.Write "Se ha ingresado un nuevo Punto en Directo <b>" & artista & "</b>, " _
& "con el fichero " & objFich.Nombre & " de tamaño " & objFich.Tamano & "."
'Limpiamos nuestro xelUpload y el fichero
set oFich = nothing
set objUpload = nothing
else
'No era un fichero válido
Response.Write("No es un fichero aceptable. ")
Response.Write("Tiene que ser un fichero JPEG de menos de 250k.")
end if
end if
%>
lo raro esq antes me funcionaba y nose si abre tokadop algo...
saludos
