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