09/02/2005, 10:15
|
| | | Fecha de Ingreso: febrero-2005
Mensajes: 49
Antigüedad: 20 años, 3 meses Puntos: 0 | |
| Mostrar Record de Base de datos
Querida gente
mi problema es el siguiente:
Trabajo con access.
En un archivo lo que hago es mostrar todos los records de mi base de datos (que son imagenes) como thumbnails.
Ahora bien lo que neceisto hacer es que cuando haga click sobre cualquiera de los thumbnails, este se muestre solo en pagina nueva....
ALGUIEN ME PASA EL CODIGO PARA MOSTRARA SOLO 1 RECORD DE LA DB EN ASP!?!??!?!?!?!?!?!
SE AGRAGDECE UN MILLLON DE VECES
Les pego abajo, el codigo d ela pgina ue muestra los thumbnails
Thumbnails.asp
<%
'declare some jobs
Dim Conn, RS, SQL
SQL = "SELECT ID, filename, FILESIZE, CONTENTTYPE, FULLNAME, EMAIL, story, t FROM my order by t desc"
Set Conn = Server.CreateObject("ADODB.Connection")
'ms access dsnless connection
Conn.Open "DBQ=" & Server.Mappath("photo.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn%>
<html>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>Cordoba Marca</TITLE>
<meta http-equiv="" content="text/html; charset=iso-8859-1"><meta http-equiv="" content="text/html; charset=iso-8859-1"><meta http-equiv="" content="text/html; charset=iso-8859-1"><meta http-equiv="" content="text/html; charset=iso-8859-1">
<link href="css/style.css" rel="stylesheet" type="text/css">
</HEAD>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="450" height="127" border="0" cellpadding="2" cellspacing="2">
<tbody>
<% do while not RS.EOF %>
<tr valign="Top">
<td width="108" height="125" valign="Top"><b> <a href="big.asp?ID=<%= RS("ID")%>" target="_blank"><img src="get8.asp?ID=<%= RS("ID")%>" alt="your image" width="100" height="100" border="0"></a><br></td>
<td width="338" align="left" valign="top"><p><strong>Diseñador:</strong> <%= RS("FULLNAME")%><br>
<strong>Email:</strong><%= RS("EMAIL")%><br>
<strong>Memoria:</strong><br>
<%= RS("story")%><br>
<br></p>
</td>
</tr>
<%
RS.MoveNext
Loop
%>
</tbody>
</table>
</body>
</html>
<%
'Clean up...
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%> |