Ver Mensaje Individual
  #1 (permalink)  
Antiguo 16/09/2004, 12:31
Avatar de armandoweb
armandoweb
 
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