Tribuna de Opinión

<% Dim oConn, RS, mostrar, pag_totales, pag_actual Set oConn = Server.CreateObject ("ADODB.Connection") Set RS = Server.CreateObject ("ADODB.RecordSet") oConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath("foro.mdb")) sql = "SELECT * FROM discusion WHERE IdCabeza=0 ORDER BY idmensaje DESC" RS.Open sql, oConn,3,1 mostrar = 15 rs.PageSize = mostrar rs.CacheSize = mostrar if Request.Querystring("pagina")="" then pag_actual=1 else pag_actual=CInt(Request.Querystring("pagina")) end if pag_totales = rs.PageCount if pag_actual < 1 then pag_actual = 1 end if if pag_actual > pag_totales then pag_actual = pag_totales end if if pag_totales=0 then Response.Write("No hay mensajes en el foro.") else rs.AbsolutePage = pag_actual Response.Write("

Página " & Pag_actual & " de " & pag_totales &"

") Response.Write "

" cant_registros = 0 Response.Write "

" if pag_actual > 1 then Response.Write("Página Anterior") end if if pag_actual < pag_totales then Response.Write("   Página Siguiente ") end if %> <%do while not rs.EOF and cant_registros < mostrar fecha = RS("Fecha")%> <% Response.Write "" cant_registros = cant_registros +1 RS.MoveNext Loop end if RS.Close oConn.Close Set RS = nothing Set oConn = nothing %> TEMA Respuestas Fecha "><%=(RS.Fields("Titulo"))%> ["&RS("Respuestas")&"] " &Day(fecha)&"-"&Month(fecha)&"-"&year(fecha)&"

Fundación para la Autonomía y Desarrollo de la Costa Atlántica de Nicaragua
FADCANIC 2001 ®