Ver Mensaje Individual
  #11 (permalink)  
Antiguo 30/03/2007, 03:16
asarte82
 
Fecha de Ingreso: marzo-2007
Mensajes: 49
Antigüedad: 18 años, 1 mes
Puntos: 0
Re: Mostrar una imagen de access en asp

Vale lo que pasa es que así, si no estoy equivocado, le permitiria a cualquier usuario que entre en mi web, cambiar la imagen del y no es lo que quiero. Yo simplemete quiero que alque le venda la pagina web no tenga que utilizar el dreamweaver para cambiar la imagen. que desde el programa que he creado con acces, le introduzca una imagen nueva y se modifique el la web.

De momento tengo esto:

En la base de datos tengo una tabla con estos campos:

Un campo que se llama contacto de tipo texto y un campo que se llama foto de tipo objeto ole, esta tabla demoento no la tengo relacionada con nada.

Un formulario de access donde aparece el cuadro para introducir el texto de el campo contacto y un cuadro donde dandole al boton de la derecha del raton me da la opcion de meter una imagen, ya sea jpg painbrus o lo que sea.

Despues en dreamweaver tengo:

Una html donde aparece la imagen de fondo de la web y esta imagen cortada en secciones para poder hacer cambios.
En la parte del texto ya lo tengo solucionado porque creo un asp donce realizo la conexión y desde el htm lo llamo y me lo muestra el texto que tengo en la base de datos y lo tengo asi:

<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<title>Lectura de la base de datos</title>
<style type="text/css">
<!--
#Layer1 {
position:absolute;
width:200px;
height:115px;
z-index:1;
left: 9px;
top: 18px;
}
.letra {
font-family: "Apple Chancery";
font-size: 14px;
font-weight: bold;
color: #FFFFFF;
}
-->
</style>
</HEAD>

<body>
<div class="letra" id="Layer1">
<%

' Creamos la conexión con la base de datos
set cn = Server.CreateObject("ADODB.connection")

' Abrimos la conexión con la base de datos, pasándole el DSN
cn.Open "DSN=BDWeb"

' Creamos un objeto recorset
set rs = Server.CreateObject("ADODB.Recordset")

' Creamos la consulta para seleccionar los registros a recuperar.
sql = "Select contacto FROM contacto"

'Abrimos el objeto recordset pasándole la consulta y la conexión.
rs.Open sql, cn, 1, 1

Response.Write Server.HTMLencode(rs.Fields("contacto") & "")


rs.Close
Set rs = Nothing

'cerramos la conexión y liberamos la memoria del objeto conexión
cn.close
Set cn = Nothing

%>
</div>
</BODY>
</HTML>

Ahora para la imagen creo otro asp y tengo esto:

</HEAD>

<body>

<%



'response.ContentType = "img/image"

sql = "SELECT foto FROM contacto"
' Creamos la conexión con la base de datos
set cn = Server.CreateObject("ADODB.connection")

' Abrimos la conexión con la base de datos, pasándole el DSN
cn.Open "DSN=BDWeb"

' Creamos un objeto recorset
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "contacto", cn, 1, 1

Response.BinaryWrite(RS("foto"))


rs.Close
Set rs = Nothing

'cerramos la conexión y liberamos la memoria del objeto conexión
cn.close
Set cn = Nothing

%>

</BODY>
</HTML>
lo que no consigo es saber como en este asp que se me muerte la imagen.
Estoy iniciandome en esto y me cuesta entender partes de vuestos codigos, quizas porque la base de datos que me dais de ejemplo es diferente y me hago un lio. Si no es mucha molestia y con fin de tener algo de ejemplo si podrias comletar lo que me falta porque estoy haciendo prubas con tus comandos pero no me aclaro.
Muchas gracias de nuevo por entreteneros. ASIAS¡¡