El codigo es el siguiente:
Código PHP:
<%
dim inPagina, inCafCodigo
inPagina = cint(request.querystring("inPagina"))
if inPagina < 1 then
inPagina = 1
end if
dim inNumeroPaginas , inPaginaSize
inNumeroPaginas = 1
inPaginaSize = 50
dim inForCodigo
dim objForo,cobjConversaciones, objConversacion, objCategoria
dim cobjForos, objItem
set cobjForos = objAplic.cobjObtenerForosTodos
for each objItem in cobjForos
if lcase(objItem.Nombre) = "foro juvenil" then
set objForo = objItem
end if
next
inForCodigo = objForo.Codigo
if objForo.Deshabilitado then
response.redirect("errorforo.asp")
end if
set cobjConversaciones = objForo.cobjObtenerConversacionesPaginadas(inPaginaSize,inNumeroPaginas,inPagina)
dim inCont
inCont = 1
%>
<form>
<table border="0" width="100%" cellpadding="2" cellspacing="2" class="textoCorridoTablas">
<tr>
<td>
<a href="nueva_conversacion.asp?inMODKodigoa=<%=session("inMODCodigo")%>&inPagina=<%=inPagina%>"><%=stCampoTexto("NUEVO_TEMA",stIdioma,objCamposTexto)%></a>
</td>
<td align="right">
<%if inPagina > 1 then%>
<a href="default.asp?inPagina=<%=inPagina-1%>"><<<%=stCampoTexto("ANTERIORES",stIdioma,objCamposTexto)%></a>
<%end if%>
<%if inPagina < inNumeroPaginas then%>
<a href="default.asp?inPagina=<%=inPagina+1%>"><%=stCampoTexto("SIGUIENTES",stIdioma,objCamposTexto)%>>></a>
<%end if%>
</td>
</tr>
</table>
<table border="0" width="100%" cellpadding="2" cellspacing="2" class="textoCorridoTablas">
<tr>
<td align="center" class="cabTabla" width="60%"><%=stCampoTexto("TEMA",stIdioma,objCamposTexto)%></td>
<td align="center" class="cabTabla"><%=stCampoTexto("MSJ",stIdioma,objCamposTexto)%></td>
<td align="center" class="cabTabla"><%=stCampoTexto("ULTIMO",stIdioma,objCamposTexto)%></td>
<td align="center" class="cabTabla"><%=stCampoTexto("NOMBRE",stIdioma,objCamposTexto)%></td>
</tr>
<%for each objConversacion in cobjConversaciones%>
<tr class="celTabla">
<td>
<a class="light" href="mensajes.asp?concodigo=<%=objConversacion.Codigo%>&inMODKodigoa=<%=session("inMODCodigo")%>">
<%'if len(objConversacion.Titulo) > 40 then%>
<%'=left(objConversacion.Titulo,40) & "..."%>
<%'else%>
<%=objConversacion.Titulo%>
<%'end if%>
</a></td>
<td><%=objConversacion.NumMensajes%></td>
<td><%=stMostrarFechahora(objConversacion.Ultimo)%></td>
<td><%=objConversacion.IniciadoPor%></td>
</tr>
<%inCont = inCont + 1%>
<%next%>
</table>
<%
if inCont > 15 then
%>
<table border="0" width="100%" cellpadding="2" cellspacing="2" class="textoCorridoTablas">
<tr>
<td>
<a href="nueva_conversacion.asp?bn=<%=lcase(carpeMenu)%>&inPagina=<%=inPagina%>"><%=stCampoTexto("NUEVO_TEMA",stIdioma,objCamposTexto)%></a>
</td>
<td align="right">
<%if inPagina > 1 then%>
<a class="light" href="default.asp?forcodigo=<%=objForo.Codigo%>&inPagina=<%=inPagina-1%>"><<<%=stCampoTexto("ANTERIORES",stIdioma,objCamposTexto)%></a>
<%end if%>
<%if inPagina < inNumeroPaginas then%>
<a class="light" href="default.asp?forcodigo=<%=objForo.Codigo%>&inPagina=<%=inPagina+1%>"><%=stCampoTexto("SIGUIENTES",stIdioma,objCamposTexto)%>>></a>
<%end if%>
</td>
</tr>
</table>
<%end if%>
</form>