Hola. Soy MauroZone. Durante todo este dia estuve divagando por estos foros sacando funciones, codigos y todo. Pero todavia tengo un problema. Miren, hay un espacio en el que tengo que mostrar ciertas imagenes cargadas en Access. Bueno. Este codigo:
Código PHP:
<style type='text/css'>
<!--
.Estilo1 {
font-size: 12px;
font-family: Geneva, Arial, Helvetica, sans-serif;
}
-->
</style>
<%
Dim conexion, registros, basedatos, imagenes
' El primer paso consiste en declarar algunas variables
'que nos serán de utilidad.
' De estas tres variables, utilizaremos la primera para nuestra conexión
'a la base de datos, la segunda para seleccionar los registros y la tercera
'para ingresar la dirección donde se encuentra nuestra base de datos.
basedatos = Server.MapPath("BaseEnviar.mdb")
' En la asignación anterior, la instrucción Server.Mappath
'nos da el Path completo en el servidor hacia el archivo ejemplo.mdb que
'se encuentra en el mismo directorio que el ejemplo.
' También se puede utilizar el path completo para definir esta variable
' que quedaría algo así:
' basedatos = "c:\Inetpub\wwwroot\ejemplo.mdb"
Set conexion = Server.CreateObject("ADODB.Connection")
' Declaramos nuestra conexión a bases de datos.
conexion.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("BaseEnviar.mdb"))
' Abrimos la conexión a través del OLE Driver., indicandole
'la dirección de la base de datos por medio de la variable que declaramos
'algunas líneas antes.
' Así como utilizamos el OLE Driver, también pudimos utilizar una conexión
' por medio del ODBC y un DNS declarado en el sistema, aunque este Driver
' es el más rápido y recomendado para utilizar.
Set registros = conexion.Execute("SELECT * FROM Tblm_elempro")
' A continuación, declaramos en registro los datos
' que estaremos seleccionando en la base de datos.
' Por medio de lenguaje SQL Seleccionamos todos los campos de la registros.Fields Ejemplo,
' ordenándolos por el campo Nombre.
Do While Not registros.EOF
' Para empezar a mostrar los registros, utilizamos
' un CICLO que se repetirá mientras no lleguemos al final de los registros
' encontrados.
' Luego de esto, iremos tomando los valores de la base de datos e imprimiéndolos
' dentro del HTML.
Response.Write("<table width='520'border='0'cellpadding='0'cellspacing='0'class='Estilo1'>")
Response.Write("<!--DWLayoutTable-->")
Response.Write("<tr>")
Response.Write("<td height='17'colspan='2'valign='top'><!--DWLayoutEmptyCell--> </td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='224'colspan='2'align='center'valign='middle'>")
Response.Write("<img src='figuras/" & registros.Fields("rutagraf") & "' width='370' height='265'/><br/></td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td width='168'height='15'valign='top'><strong>Precio</strong></td>")
Response.Write("<td width='352'valign='top'>"& registros.Fields("precio") &"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='15'valign='top'><strong>Antiguedad</strong></td>")
Response.Write("<td valign='top'>"®istros.Fields("anioantiguedad")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='16'valign='top'><strong>Estado</strong></td>")
Response.Write("<td valign='top'>"®istros.Fields("estado")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='15'valign='top'><strong>Provincia</strong></td>")
Response.Write("<td valign='top'>"®istros.Fields("des_provincia")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='15'valign='top'><strong>Poblacion</strong></td>")
Response.Write("<td valign='top'>"®istros.Fields("des_poblacion")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='15'valign='top'><strong>Zona</strong></td>")
Response.Write("<td valign='top'>"®istros.Fields("des_zona")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='15'valign='top'><strong>Orientacion / Vista</strong></td>")
Response.Write("<td valign='top'>"®istros.Fields("des_orientacion")&" / "®istros.Fields("des_vista")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='15'valign='top'><strong>Ubicacion</strong></td>")
Response.Write("<td>"®istros.Fields("ubicacion")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='15'valign='top'><strong>Amoblamiento</strong></td>")
Response.Write("<td valign='top'>"®istros.Fields("amueblado")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='15'valign='top'><strong>Techo</strong></td>")
Response.Write("<td valign='top'>"®istros.Fields("Techo")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='15'valign='top'><strong>Habitaciones</strong></td>")
Response.Write("<td valign='top'>"®istros.Fields("num_salones")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='15'valign='top'><strong>Armarios</strong></td>")
Response.Write("<td valign='top'>"®istros.Fields("num_armarios")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='15'valign='top'><strong>Terrazas</strong></td>")
Response.Write("<td valign='top'>"®istros.Fields("num_terrazas")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='15'valign='middle'><strong>Servicios Publicos</strong></td>")
Response.Write("<td valign='top'>"®istros.Fields("aguacaliente")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='15'valign='top'><strong>Financiacion</strong></td>")
Response.Write("<td valign='top'>"®istros.Fields("financiacion")&"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='19'> </td>")
Response.Write("<td></td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='103'colspan='2'valign='top'><table width='100%'border='0'cellpadding='0'cellspacing='0'>")
Response.Write("<!--DWLayoutTable-->")
Response.Write("<tr>")
Set imagenes = conexion.Execute("SELECT * FROM Tblr_elemGraf WHERE cod_elemento = " & registros.Fields("cod_elemento"))
while imagenes.Fields("cod_elemento") = registros.Fields("cod_elemento")
' Mostrando Habitaciones
Response.Write("<td width='100'height='103'valign='top'><table width='100%'border='0'cellpadding='0'cellspacing='0'>")
Response.Write("<!--DWLayoutTable-->")
Response.Write("<tr>")
Response.Write("<td width='100'height='82'align='center'valign='middle'>" & imagenes.Fields("Descripcion") & "<a href='" & imagenes.Fields("rutagraf") & "' target='_blank'><img src='figuras/" & imagenes.Fields("rutagraf")& "' width='50' height='50' border='0' /></a></td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='21'align='center'valign='middle'></td>")
Response.Write("</tr>")
Response.Write("</table></td>")
Response.Write("<tdwidth='420'> </td>")
Response.Write("</tr>")
Response.Write("</table></td>")
wend
Response.Write("<td width='100'height='103'valign='top'><table width='100%'border='0'cellpadding='0'cellspacing='0'>")
Response.Write("<!--DWLayoutTable-->")
Response.Write("<tr>")
Response.Write("<td width='100'height='82'align='center'valign='middle'>MINIATURA<imgsrc='figuras/.jpg'width='50'height='50'/></td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height='21'align='center'valign='middle'>"®istros.Fields("cocina")&"</td>")
Response.Write("</tr>")
Response.Write("</table></td>")
Response.Write("<tdwidth='420'> </td>")
Response.Write("</tr>")
Response.Write("</table></td>")
Response.Write("</tr>")
Response.Write("</table>")
registros.MoveNext
Loop
' Cada vez que se ejecuta el ciclo, le pedimos
' por medio de .MoveNext que pase al siguiente registro encontrado
' La instrucción Loop es la que indica hasta donde debe de repetirse el
'ciclo.
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
'Algo muy importante que debemos recordar es cerrar
'nuestras conexiones, para no dejar la base de datos abierta.
' Para esto, primero la cerramos por medio de .Close y a continuación es
'recomendable declararles valores de "nada", para dejar las variables limpias.
%>
Me tira este error:
Código PHP:
Active Server Pages- Error '80020009'
/aca/prueba.aspx, line 154
Si quieren fijense el codigo. Por favor, agradeceria si me pueden responder a la brevedad. Saludos, Mauro.