19/04/2002, 17:29
|
| | | Fecha de Ingreso: abril-2002
Mensajes: 49
Antigüedad: 23 años, 1 mes Puntos: 0 | |
| Re: ORDER BY Id DESC
Disculpa que no te respondi antes pero fue hoy que pude probar lo que me dices.
Gracias porfin me funciono.
Es una estupides, pero verlo funcionando me emociono mucho.
Tu sabes como puedo hacer para que me salgan solo 10 registros por pagina y poner un link que diga siguientes?
La pagina quedo de esta forma:
<html>
<head>
<title>Libro de Visitas</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%Dim DB,sql,basedatos
Set DB=Server.CreateObject("ADODB.Connection" ;)
basedatos=Server.MapPath("afiliados.mdb" )
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& basedatos & ";"
sql="select * FROM afiliados ORDER By Id DESC;"
set rs=DB.execute(sql)
Do While Not rs.Eof
%>
<table width="57%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="72" bgcolor="#0000FF">
<table width="570" border="0" cellspacing="1" cellpadding="0">
<tr bgcolor="#009EEA">
<td width="200" height="19"> <font color="#0099FF">.</font>
<%Response.Write("<b>Nombre: </b>" & rs("Nombre"))%>
</td>
<td width="200" height="19"> <font color="#0099FF">. </font>
<%Response.Write("<b>Apellido: </b>" & rs("Apellido"))%>
</td>
<td width="200" height="19"> <font color="#0099FF">.</font>
<%Response.Write("<b>Pais: </b>" & rs("Pais"))%>
</td>
</tr>
<tr bgcolor="#88D9FF">
<td colspan="3" height="22"> <font color="#88D9FF">.</font>
<%Response.Write("<b>Mensaje: </b>" & rs("Mensaje"))%>
<p>&nbsp;</p>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="28" bgcolor="#FFFFFF">&nbsp; </td>
</tr>
</table>
<%
rs.MoveNext
loop
rs.Close
DB.Close
Set DB = Nothing
Set rs = Nothing
%>
</body>
</html |