Hola! tengo 2 inconvenientes:
1°: El siguiente código no me muestra más que 1 solo registro. Y ya lo di vuelta para todos lados y no doy más! JAJA
2°: en la siguiente línea.......:ssql = "Select * from FORO where IDTEMA = "&IDTEMA
Set RS1=Conn.Execute(ssql)
cómo logro que me lo ordene por fh asc? me está pudiendo y sé que es una soncera!!JA
EL CODIGO COMPLETO ES ESTE!!!
Código:
<%@ Language=VBScript %>
<%
IDTEMA=Request.QueryString("IDTEMA")
USUARIO=Request.QueryString("USUARIO")
LOCALIDAD=Request.QueryString("LOCALIDAD")
%>
<%
Dim Conn, rs, SSQL
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos
TamPagina=2
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
set Conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ= " & Server.MapPath("DB/INDEX.mdb")
ssql = "Select * from FORO where IDTEMA = "&IDTEMA
Set RS1=Conn.Execute(ssql)
ssql = "select * from temas where IDTEMA = "&IDTEMA
Set RS2=Conn.Execute(ssql)
ssql = "SELECT sum(num) as total FROM FORO where IDTEMA="&IDTEMA
Set RS3=Conn.Execute(ssql)
' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
' Defino el cursor en el cliente: adUseClient
rs.CursorLocation = 3
%>
<html>
<head>
<meta http-equiv="Content-Language" content="es-ar">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>VEMOS MSN ENVIADOS AL FORO DEL TEMA</title>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="600" height="302" style="border-collapse: collapse" bordercolor="#111111">
<!-- MSTableType="layout" -->
<tr>
<td valign="top" height="76">
<!-- MSCellType="ContentHead" -->
<p align="center"><font face="Verdana" size="2"><b>VEMOS MSN ENVIADOS AL FORO DEL TEMA <% Response.Write ("" &IDTEMA)%><br>
MENSAJES ENVIADOS <%response.write (""&rs3("total"))%> <br>
PÁGINA LEÍDA <%=RS2("CLICKS")%> VECES</b></font></td>
</tr>
<tr>
<td height="218">
<!-- MSCellType="ContentBody" -->
<table border="1" width="100%" id="table1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#000080" height="116">
<%
' Abro el recordset
rs.Open sSQL, Conn, 1, 2
'Cuento las páginas
PaginasTotales=rs.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
rs.AbsolutePage=PaginaActual
Response.Write("<br><br>")
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
%>
<tr>
<td width="50%" height="7"><font face="Verdana" size="2"><b><%=RS1("TITULO")%></b></font></td>
<td width="50%" height="7">
<p align="right"><font face="Verdana" size="1"><b>Hola, mi nombre es <%=RS1("USUARIO")%> y soy de <%=RS1("LOCALIDAD")%></b></td>
</tr>
<tr>
<td width="100%" height="6" colspan="2">
<p align="center"></td>
</tr>
<tr>
<td height="82" valign="top" colspan="2"><font face="Verdana" size="2"><%=RS1("MSN")%></font></td>
</tr>
<tr>
<td height="19">
<p align="right"><font face="Verdana" size="2"><%=RS1("FH")%></font>
</td>
<td width="50%" height="19">
<p align="center"><a href="CLICKSFORO.ASP?URL=ENVIO.ASP?IDTEMA=<%=RS2("IDTEMA")%>&USUARIO=<%=RS1("USUARIO")%>&LOCALIDAD=<%=RS1("LOCALIDAD")%>">responder</a></td>
</tr>
<% CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
%>
<%
rs.Close
Conn.Close
set rs=nothing
set Conn=nothing
%>
</table>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="43">
<tr>
<td width="100%" align="center" colspan="2" height="17"><span lang="es">
<font size="2"><% Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)%></font></span></td>
</tr>
<tr>
<td width="50%" align="center" height="19"><span lang="es">
<font size="2"><% if PaginaActual > 1 then
Response.Write("<A HREF=VERFORO.asp?pagina="& PaginaActual-1& ">Anterior</A>")
end if%>
</font></span></td>
<td width="50%" align="center" height="19"><span lang="es">
<font size="2"><%
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=VERFORO.asp?pagina=" & PaginaActual+1 &">Siguiente</A>")
end if%>
</font></span>
<%end if%>
</td>
</tr>
</table>
<p align="center"><a href="INDEX.ASP">volver al foro</a></td>
</tr>
</table>
</center>
</div>
</body>
</html>
DEMÁS ESTÁ DECIR QUE QUIEN QUIERA USARLO CUANDO ANDE, HÁGALO CON TODO!!!
MUCHAS GRACIAS
SALUDOS