Un foro para todos

[CHuLoSoY]

Continuación de mensaje.asp

Código:

<%

'vamos a paginar los mensajes
Dim oConn, rs, SQL
Dim PaginaActual		' en qué pagina estamos
Dim PaginasTotales	' cuántas páginas tenemos
Dim TamPagina			' cuantos registros por pagina
Dim CuantosRegistros	' la cuenta que os he mencionado

'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=20

'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
	PaginaActual=1
else
	PaginaActual=CInt(Request.Querystring("pagina"))
end if

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

' Conexión por OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
	"Data Source="&Server.MapPath("foros.mdb")&";"
SQL="SELECT * FROM respuestas Where idmensaje="&Request.QueryString("id")&" ORDER BY idrespuesta;"

' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina

' Abro el recordset
rs.Open SQL, oConn, 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("<center>Este mensaje no tiene respuestas.</center>")

else

	'Vamos a paginar
	rs.AbsolutePage=PaginaActual

CuantosRegistros=0
bandera=0
do while not rs.EOF and CuantosRegistros < TamPagina
if bandera = 0 Then
color="ECF5FF"
bandera = 1
ELse
color="C4E1FF"
bandera = 0
End IF

texto = replace(rs.Fields("mensaje"), vbCrLf, "<br>")
texto = replace(texto, ":)", "<img src=""caras/10.gif"">")
texto = replace(texto, ";)", "<img src=""caras/12.gif"">")
texto = replace(texto, ":P", "<img src=""caras/22.gif"">")
texto = replace(texto, ":(", "<img src=""caras/11.gif"">")
texto = replace(texto, "[1]", "<img src=""caras/1.gif"">")
texto = replace(texto, "[2]", "<img src=""caras/2.gif"">")
texto = replace(texto, "[3]", "<img src=""caras/3.gif"">")
texto = replace(texto, "[4]", "<img src=""caras/4.gif"">")
texto = replace(texto, "[5]", "<img src=""caras/5.gif"">")
texto = replace(texto, "[6]", "<img src=""caras/6.gif"">")
texto = replace(texto, "[7]", "<img src=""caras/7.gif"">")
texto = replace(texto, "[8]", "<img src=""caras/8.gif"">")
texto = replace(texto, "[9]", "<img src=""caras/9.gif"">")
texto = replace(texto, "[10]", "<img src=""caras/10.gif"">")
texto = replace(texto, "[11]", "<img src=""caras/11.gif"">")
texto = replace(texto, "[12]", "<img src=""caras/12.gif"">")
texto = replace(texto, "[13]", "<img src=""caras/13.gif"">")
texto = replace(texto, "[14]", "<img src=""caras/14.gif"">")
texto = replace(texto, "[15]", "<img src=""caras/15.gif"">")
texto = replace(texto, "[16]", "<img src=""caras/16.gif"">")
texto = replace(texto, "[17]", "<img src=""caras/17.gif"">")
texto = replace(texto, "[18]", "<img src=""caras/18.gif"">")
texto = replace(texto, "[19]", "<img src=""caras/19.gif"">")
texto = replace(texto, "[20]", "<img src=""caras/20.gif"">")
texto = replace(texto, "[21]", "<img src=""caras/21.gif"">")
texto = replace(texto, "[22]", "<img src=""caras/22.gif"">")
texto = replace(texto, "", "<b>")
texto = replace(texto, "", "</b>")
texto = replace(texto, "", "<i>")
texto = replace(texto, "", "</i>")
texto = replace(texto, "", "<u>")
texto = replace(texto, "", "</u>")
texto = replace(texto, "[cita]", "<blockquote><hr size=1 width=""100%"" color=orange><b>Citando:</b> <font color=""000990"" style=""font size:8 pt"" face=""Courier New, Arial"">")
texto = replace(texto, "[/cita]", "</font><hr size=1 width=""100%"" color=""orange""></blockquote>")
texto = replace(texto, "[font arial]", "<font face=""Arial"">")
texto = replace(texto, "[font verdana]", "<font face=""Verdana"">")
texto = replace(texto, "[font courier]", "<font face=""Courier New"">")
texto = replace(texto, "[font times]", "<font face=""Times New Roman"">")
texto = replace(texto, "[font tahoma]", "<font face=""Tahoma"">")
texto = replace(texto, "[/font]", "</font>")
texto = replace(texto, "[color verde]", "<font color=""008000"">")
texto = replace(texto, "[color rojo]", "<font color=""red"">")
texto = replace(texto, "[color azul]", "<font color=""blue"">")
texto = replace(texto, "[/color]", "</font>")
texto = replace(texto, "'", "&quot;")
texto = replace(texto, "[img]", "<img src=""")
texto = replace(texto, "[/img]", """ alt=""imagen"" border=0>")
texto = replace(texto, "http://", "<a target=""_blank"" clas...place(texto, "", "</a>")
texto = replace(texto, "[centro]", "<center>")
texto = replace(texto, "[/centro]", "</center>")
texto = replace(texto, "[derecha]", "<p align=right>")
texto = replace(texto, "[/derecha]", "</p>")
texto = replace(texto, "[izquierda]", "<p>")
texto = replace(texto, "[/izquierda]", "</p>")
texto = replace(texto, "[mail]", "<a class=""mail"" href=""mailto:")
texto = replace(texto, "[txtmail]", """>")
texto = replace(texto, "[/mail]", "</a>")

fecha=date()
if cdate(rs.Fields("fecha"))=fecha then
fechi="red"
else
fechi="blue"
end if

if rs.fields("nombre")=cookie then
	editara="<a href=""editar.asp?id="&rs.fields("idrespuesta")&"&a=r"" class=editar>Editar</a> | "
else
	editara=""
end if

idrespuesta=rs.fields("idrespuesta")

        if rs.fields("nombre")="Webmaster" or rs.fields("nombre")="CHuLoYo" then
        	aaaaas="<font style=""font-size:10pt"">"&rs.fields("nombre")&"</font><br><font style=""font-size:8pt"" color=green>Moderador</font>"
        else
        	aaaaas=rs.fields("nombre")
        end if

		'Pinto una línea de la tabla por cada registro
Response.Write vbCrLf&"<!-- Nueva respuesta -->" & vbCrLf
Response.Write "<table border=0 width=""100%"" style=""background-color: #EAEAEA; border-left: 1 solid #C0C0C0; border-right: 1 solid #C0C0C0; border-bottom: 1 solid #C0C0C0"" cellspacing=0 cellpadding=5><tr><td width=""20%"" bgcolor="""&color&""" valign=top><font style=""font-size:8pt""><b><a name="""&rs.Fields("idrespuesta")&"""></a>"&aaaaas&"</b><br><i><font color="""&fechi&""">"&rs.Fields("fecha")&"</font></i></font><br><br><br>#"&CuantosRegistros+1&"</td><td width=""80%"" bgcolor="""&color&""" valign=top><p align=justify><b>"&rs.Fields("asunto")&"</b>"
Response.write "<hr size=1 color=c0c0c0><font size=2 face=""Arial,Tahoma"">"&texto&"</font><hr size=1 color=c0c0c0>| "&editara&"<a href=""imprimir.asp?id="&idrespuesta&"&a=r"">Imprimir</a> | <a href=""javascript:adminresp('"&rs.fields("idrespuesta")&"')"">Moderación</a> | "&responder&"</td></tr></table>"
Response.Write "<!-- Fin nueva respuesta -->" & vbCrLf
CuantosRegistros=CuantosRegistros+1
		rs.MoveNext
	loop

end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

%>
<%
'Muestro los enlaces

if PaginasTotales="1" then
	Response.write("")

elseif PaginasTotales="2" then
	Response.write("<a href=""mensaje.asp?id="&request.querystring("id")&""" class=""paginar"">[1]</a><font face=""courier new"" style=""font-size:11pt"">&nbsp; <a href=""mensaje.asp?pagina=2&id="&request.querystring("id")&""" class=""paginar"">[2]</a>...</font>")

elseif PaginasTotales="3" then
	Response.write("<a href=""mensaje.asp?id="&request.querystring("id")&""" class=""paginar"">[1]</a><font face=""courier new"" style=""font-size:11pt"">&nbsp; <a href=""mensaje.asp?pagina=2&id="&request.querystring("id")&""" class=""paginar"">[2]</a>&nbsp; <a href=""mensaje.asp?pagina=3&id="&request.querystring("id")&""" class=""paginar"">[3]</a>...</font>")

elseif PaginasTotales="4" then
	Response.write("<a href=""mensaje.asp?id="&request.querystring("id")&""" class=""paginar"">[1]</a><font face=""courier new"" style=""font-size:11pt"">&nbsp; <a href=""mensaje.asp?pagina=2&id="&request.querystring("id")&""" class=""paginar"">[2]</a>&nbsp; <a href=""mensaje.asp?pagina=3&id="&request.querystring("id")&""" class=""paginar"">[3]</a>&nbsp; <a href=""mensaje.asp?pagina=4&id="&request.querystring("id")&""" class=""paginar"">[4]</a>...</font>")

elseif PaginasTotales="5" then
	Response.write("<a href=""mensaje.asp?id="&request.querystring("id")&""" class=""paginar"">[1]</a><font face=""courier new"" style=""font-size:11pt"">&nbsp; <a href=""mensaje.asp?pagina=2&id="&request.querystring("id")&""" class=""paginar"">[2]</a>&nbsp; <a href=""mensaje.asp?pagina=3&id="&request.querystring("id")&""" class=""paginar"">[3]</a>&nbsp; <a href=""mensaje.asp?pagina=4&id="&request.querystring("id")&""" class=""paginar"">[4]</a>&nbsp; <a href=""mensaje.asp?pagina=5&id="&request.querystring("id")&""" class=""paginar"">[5]</a>...</font>")

elseif PaginasTotales="6" then
	Response.write("<a href=""mensaje.asp?id="&request.querystring("id")&""" class=""paginar"">[1]</a><font face=""courier new"" style=""font-size:11pt"">&nbsp; <a href=""mensaje.asp?pagina=2&id="&request.querystring("id")&""" class=""paginar"">[2]</a>&nbsp; <a href=""mensaje.asp?pagina=3&id="&request.querystring("id")&""" class=""paginar"">[3]</a>&nbsp; <a href=""mensaje.asp?pagina=4&id="&request.querystring("id")&""" class=""paginar"">[4]</a>&nbsp; <a href=""mensaje.asp?pagina=5&id="&request.querystring("id")&""" class=""paginar"">[5]</a>&nbsp; <a href=""mensaje.asp?pagina=6&id="&request.querystring("id")&""" class=""paginar"">[6]</a>...</font>")

end if
%></td></tr></table>
</div></body>
</html>