Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/07/2002, 10:51
jgonzale
 
Fecha de Ingreso: mayo-2002
Mensajes: 50
Antigüedad: 22 años, 11 meses
Puntos: 0
visualizar un archivo que se encuentra en una BD

Hola queridos amigos de foro, mi problema es el siguiente: Tengo una base de datos acces con los siguientes campos:
id (autonumerico): llave primaria
dia (texto)=día en que se guarda el archivo
Mes (Texto)=Mes " " " "
Anio (texto)= Año "" "" " "
Archivo (ole)= Archivo que se guarda en DB.

Nota:El archivo que se guarda es un archivo html completo; sin imágenes y sin referencias externas a él mismo.

Utilizo xelupload para guardar el archivo en BD, y luego intento ver el archivo con el siguiente código:

********************************************

<%
'Abrimos una conexión a una base de datos
Dim oConn, rs, SQL

set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

'Access con OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("precios.mdb")

'Y abrimos la tabla Datos
SQL = "SELECT * FROM precios where id = 9"
'((dia = '31') and (mes = '08') and (anio = '2002'))"

rs.Open SQL, oConn

document.write(rs.Fields("archivo"))
rs.Close
oConn.Close

set rs = nothing
set oConn = nothing
%>

********************************************

al abrir la página me sale el error :prohibido :

HTTP 500 - Error interno del servidor
Internet Explorer

Si alguien sabe que estoy haciendo mal, le agradecería mucho que me contestaran; gracias a todos por leer este mensaje y mucho mas al que me brinde su ayuda

la página está en:
www.centroabastos.com.co/prb/ver.asp
para subir el archivo, la página es:
www.centroabastos.com.co/prb/subir.htm

Jean Joel