Subir Imagen a una base de datos

[armandoweb]

Estimado Al Zuwaga: realicé todo como me indicaste, pero me da error interno del servidor. A continuación te muestro como adapte el código, a lo mejor estoy equivocando el camino....

<!--#include file="xelupload.asp"-->
<%
' Subida de imágenes
set objUpload = new xelUpload
objUpload.Upload()

'Solo se instancia el objeto si se ha subido al menos una imagen, de lo contrario da errores
If objUpload.Ficheros.Count > 0 then
'accedemos al fichero por su nombre en el formulario
Set objFich = objUpload.Ficheros("file")

'La guardo en el directorio images_noticias, con la fecha y hora de hoy, completa, como nombre:
'lo siguiente es el nombre original del archivo:
Nombre = Split(objFich.Nombre, ".")
'y aquí obtengo la extensión del archivo original:
Extension = Nombre(Ubound(Nombre))
'Compongo el nuevo nombre de archivo para evitar duplicados y le agrego la extensión:
strNombreFichero = Year(Now()) & Month(Now()) & Day(Now()) & Hour(Now()) & Minute(Now()) & Second(Now()) & "." & Extension
'finalmente, lo guardo
objFich.GuardarComo strNombreFichero, Server.MapPath("/noticias/images/")
End if

'ahora, almaceno en variables los datos a guardar en la BD
'IMPORTANTE: No se puede usar request.form. En su lugar, se usa el método Form de la clase objUpload
fecha = Replace(objUpload.Form("fecha"), "'", "''")
titulo = Replace(objUpload.Form("titulo"), "'", "''")
copete = Replace(objUpload.Form("copete"), "'", "''")
noticia = Replace(objUpload.Form("noticia"), "'", "''")

' hacés tu conexión a la BD...
dim cnn
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\fpdb\cybernetsc.mdb"))

'luego, insertás todo:
SQL = "INSERT INTO Noticias (fecha, titulo, copete, notica, imagen) VALUES ('"& fecha &"', '" & titulo & "', '" & copete & "', '" & noticia & "', '" & strNombreFichero & "')"
cnn.Execute (SQL)

Response.Redirect "ok.asp"
%>

Desde ya un millon de gracias.
Saludos.

ARIEL CRIPPA