
16/09/2004, 12:31
|
 | | | Fecha de Ingreso: enero-2003 Ubicación: San Cristobal, Santa Fe, Argentina
Mensajes: 544
Antigüedad: 22 años, 3 meses Puntos: 7 | |
La imagen sube al servidor pero la noticia no a una base de datos. Estimados amigos:
Sigo con un problema al subir al mismo tiempo una imagen al servidor y una noticia a la base de datos.
El codigo siguiente sube la imagen al servidor, pero la noticia no la ingresa en la base de datos. Esto es curioso porque utilizaba el mismo codigo para subir la noticia sola y no tenia problema alguno. Ahora quiero incorporarle la imagen a la noticia y no logro hacerlo. Aqui esta el codigo: <%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576
Upload.SaveVirtual "../noticias/images/"
Set File = Upload.Files("file")
If Not File Is Nothing Then
con = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../base/cybernetsc.mdb")
Set rs = Server.CreateObject("adodb.recordset")
SQL = "SELECT * FROM noticias"
rs.Open SQL, con, 2 ,3
rs.AddNew
rs("imagen") = File.FileName
rs("fecha") = Upload.Form("fecha")
rs("titulo") = Upload.Form("titulo")
rs("copete") = Upload.Form("copete")
rs("noticia") = Upload.Form("noticia")
rs.Update
rs.Close
set rs=nothing
set con=nothing
Response.Redirect "confirma.htm"
Else
Response.Redirect("formulario.htm") ' formulario de donde recoges los datos --> Te llevara aca si es k no haz seleccionado ninguna imagen, en el form anterior
End If
%>
El codigo me envía a formulario.htm, sin insertar la noticia pero la imagen si esta en el servidor en l carpeta indicada.
Si alguien puede ayudarme por favor se lo agradecere eternamente. Si alguien tiene algun ejemplo distinto para realizar lo mismo por favor me lo envian como ejemplo.
Saludos a todos y gracias.
ARIEL CRIPPA |