Listar datos(como links)

jetzona · #1 (**permalink**) 30/03/2006, 11:56

estoy listando unos archivos que se encuentran el una base de datos, lo que quiero es que cada uno de estos este referenciado a una pagina. Como por ejemplo si listo los nombres de personas, al hacer click en un nombre cualquiera del listado este me condusca a otra pagina donde esten sus datos personales lo que hago hasta el momento es lo siguiente:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))

TBL.Open "Afiliados" ,DB
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin título</title>
</head>

<body>
<table width="600" border="2" cellspacing="0" cellpadding="0">
<tr>
<td width="200"><div align="center">Nombre</div></td>
<td width="200"><div align="center">Apellido</div></td>
<td width="200"><div align="center">Pais</div></td>
</tr>
<% DO WHILE NOT TBL.EOF%>
<tr>
<td width="200"><%=TBL.FIELDS("Nombre")%></td>
<td width="200"><%=TBL.FIELDS("Apellido")%></td>
<td width="200"><%=TBL.FIELDS("Pais")%></td>
</tr>
<% TBL.MOVENEXT
LOOP %>
</table>
</body>
</html>

goteen_mx · #2 (**permalink**) 30/03/2006, 12:03

Lo que haces es simplemente agragas un href a la pagina donde mostraras los datos completos de la persona

<% DO WHILE NOT TBL.EOF%>
<tr>
<td width="200"><a href="tu pagina?id_persona=<%=TBL("id_persona")%>&nombre=<% =TBL("nombre")%>"><%=TBL.FIELDS("Nombre")%></a></td>
</tr>
<% TBL.MOVENEXT
LOOP %>

y en la pagina donde recibes pues ya haces otra consulta para que te muestre los datos completos

bye