<%
cookie=request.cookies("cookie")
set rst = Server.CreateObject("ADODB.Recordset")
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data source="&Server.MapPath("foros.mdb"))
sql = "Select * from mensajes where id="&request.querystring("id")&""
rst.Open sql,cnn,3,3
medio=1
rst("lecturas")=rst("lecturas")+medio
rst.update
set rt = Server.CreateObject("ADODB.Recordset")
set can = Server.CreateObject("ADODB.Connection")
can.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data source="&Server.MapPath("foros.mdb"))
sql = "Select * from foros where id="&rst("idforo")&""
rt.Open sql,can,3,3
nombreforo=rt("nombre")
rt.close
can.close
id=request.querystring("id")
nombre=rst("nombre")
asunto=rst("asunto")
idforo=rst("idforo")
mensaje=rst("mensaje")
fecha=rst("fecha")
lecturas=rst("lecturas")
cerrado=rst("cerrado")
modificado=rst("modificado")
mensaje = replace(mensaje, vbCrLf, "<br>")
mensaje = replace(mensaje, ":)", "<img src=""caras/10.gif"">")
mensaje = replace(mensaje, ";)", "<img src=""caras/12.gif"">")
mensaje = replace(mensaje, ":P", "<img src=""caras/22.gif"">")
mensaje = replace(mensaje, ":(", "<img src=""caras/11.gif"">")
mensaje = replace(mensaje, "[1]", "<img src=""caras/1.gif"">")
mensaje = replace(mensaje, "[2]", "<img src=""caras/2.gif"">")
mensaje = replace(mensaje, "[3]", "<img src=""caras/3.gif"">")
mensaje = replace(mensaje, "[4]", "<img src=""caras/4.gif"">")
mensaje = replace(mensaje, "[5]", "<img src=""caras/5.gif"">")
mensaje = replace(mensaje, "[6]", "<img src=""caras/6.gif"">")
mensaje = replace(mensaje, "[7]", "<img src=""caras/7.gif"">")
mensaje = replace(mensaje, "[8]", "<img src=""caras/8.gif"">")
mensaje = replace(mensaje, "[9]", "<img src=""caras/9.gif"">")
mensaje = replace(mensaje, "[10]", "<img src=""caras/10.gif"">")
mensaje = replace(mensaje, "[11]", "<img src=""caras/11.gif"">")
mensaje = replace(mensaje, "[12]", "<img src=""caras/12.gif"">")
mensaje = replace(mensaje, "[13]", "<img src=""caras/13.gif"">")
mensaje = replace(mensaje, "[14]", "<img src=""caras/14.gif"">")
mensaje = replace(mensaje, "[15]", "<img src=""caras/15.gif"">")
mensaje = replace(mensaje, "[16]", "<img src=""caras/16.gif"">")
mensaje = replace(mensaje, "[17]", "<img src=""caras/17.gif"">")
mensaje = replace(mensaje, "[18]", "<img src=""caras/18.gif"">")
mensaje = replace(mensaje, "[19]", "<img src=""caras/19.gif"">")
mensaje = replace(mensaje, "[20]", "<img src=""caras/20.gif"">")
mensaje = replace(mensaje, "[21]", "<img src=""caras/21.gif"">")
mensaje = replace(mensaje, "[22]", "<img src=""caras/22.gif"">")
mensaje = replace(mensaje, "", "<b>")
mensaje = replace(mensaje, "", "</b>")
mensaje = replace(mensaje, "", "<i>")
mensaje = replace(mensaje, "", "</i>")
mensaje = replace(mensaje, "", "<u>")
mensaje = replace(mensaje, "", "</u>")
mensaje = replace(mensaje, "[cita]", "<blockquote><hr size=1 width=""100%"" color=orange><b>Citando:</b> <font color=""000990"" style=""font size:8 pt"" face=""Courier New, Arial"">")
mensaje = replace(mensaje, "[/cita]", "</font><hr size=1 width=""100%"" color=""orange""></blockquote>")
mensaje = replace(mensaje, "[font arial]", "<font face=""Arial"">")
mensaje = replace(mensaje, "[font verdana]", "<font face=""Verdana"">")
mensaje = replace(mensaje, "[font courier]", "<font face=""Courier New"">")
mensaje = replace(mensaje, "[font times]", "<font face=""Times New Roman"">")
mensaje = replace(mensaje, "[font tahoma]", "<font face=""Tahoma"">")
mensaje = replace(mensaje, "[/font]", "</font><font size=2 face=""Arial,Tahoma"">")
mensaje = replace(mensaje, "[color verde]", "<font color=""008000"">")
mensaje = replace(mensaje, "[color rojo]", "<font color=""red"">")
mensaje = replace(mensaje, "[color azul]", "<font color=""blue"">")
mensaje = replace(mensaje, "[/color]", "</font>")
mensaje = replace(mensaje, "'", """)
mensaje = replace(mensaje, "[img]", "<img src=""")
mensaje = replace(mensaje, "[/img]", """ alt=""imagen"" border=0>")
mensaje = replace(mensaje, "http://", "<a target=""_blank"" clas...ace(mensaje, "", "</a>")
mensaje = replace(mensaje, "[centro]", "<center>")
mensaje = replace(mensaje, "[/centro]", "</center>")
mensaje = replace(mensaje, "[derecha]", "<p align=right>")
mensaje = replace(mensaje, "[/derecha]", "</p>")
mensaje = replace(mensaje, "[izquierda]", "<p>")
mensaje = replace(mensaje, "[/izquierda]", "</p>")
mensaje = replace(mensaje, "[mail]", "<a class=""mail"" href=""mailto:")
mensaje = replace(mensaje, "[txtmail]", """>")
mensaje = replace(mensaje, "[/mail]", "</a>")
Set Coneximon = Server.CreateObject("ADODB.Connection")
Set RSs=Server.CreateObject("ADODB.Recordset")
Coneximon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("foros.mdb")&";"
sql = "SELECT * FROM respuestas where idmensaje="&request.querystring("id")&";"
RSs.Open sql, Coneximon, 3,3
respuestas=RSs.RecordCount
RSs.close
coneximon.close
if nombre=cookie then
editar="<a href=""editar.asp?id="&rst("id")&"&a=m"" class=editar>Editar</a> | "
else
editar=""
end if
if cerrado="carpetacerrado.gif" then
responder=""
else
responder="<a href=""escribir.asp?id="&id&"&a=r&f="&idforo&"""> <b> Responder</b></a> |"
end if
rst.close
cnn.close
%><html>
<head>
<script language="javascript" src="funciones.js"></script>
</head>
<body>
<div align="center">
<center>
<table width="700" border="0" cellspacing="0" cellpadding="4" style="border-left-style: solid; border-left-width: 1"><tr><td width="700" valign="top" bgcolor="#F5F5F5" style="border: 1 solid #C0C0C0">
<table border="0" width="689" cellspacing="0" cellpadding="0">
<tr>
<td width="371">
<i><b><font face="Times New Roman" size="5" color="#800000"><%=nombre%><br>
</font><font face="Times New Roman" size="3" color="#0000FF"><%=asunto%></font></b></i>
</td>
</center>
<td width="314" valign="bottom">
<p align="right"><a href="javascript:adminforo()" class="adminforo">Administración</a>
| <a href="foro.asp?id=<%=idforo%>" class=adminforo>Inicio</a> | <a href="escribir.asp?f=<%=idforo%>&a=n" class=adminforo>Iniciar tema</a> |
<%=responder%></td>
</tr>
</table> <img border="0" src="carpeta.gif"> <a href="index.asp">Inicio Foros</a><br>
<img border="0" src="carpeta.gif"> <a href="foro.asp?id=<%=idforo%>"><%=nombreforo%></a><br>
<%
set rst = Server.CreateObject("ADODB.Recordset")
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data source="&Server.MapPath("foros.mdb"))
sql = "Select * from mensajes where id="&request.querystring("id")&""
rst.Open sql,cnn,3,3%><img border="0" src="<%=rst("cerrado")%>"><%rst.close
cnn.close
%> <%=asunto%>
<table border="0" width="100%" style="background-color: #EAEAEA; border: 1 solid #C0C0C0" cellspacing="0" cellpadding="5">
<tr>
<td width="20%" valign="top"><b><%
if nombre="Webmaster" or nombre="CHuLoYo" then
response.write "<font style=""font-size:10pt"">"&nombre&"</font><br><font style=""font-size:8pt"" color=green>Moderador</font>"
else
response.write nombre
end if%></b><br><i><font style="font-size:8pt" color=909090><%=fecha%></font></i><br><br><font style="font-size:8pt"><b><%=lecturas%></b> lecturas<br><b><%=respuestas%></b> respuestas.</font></td>
<td width="80%" valign="top"><b><font style="font-size:8pt"><%=asunto%></font></b><hr size=1 color=c0c0c0><font size=2 face="Arial,Tahoma"><%=mensaje%></font><hr size=1 color=c0c0c0>| <%=editar%><a href="imprimir.asp?id=<%=id%>">Imprimir</a> | <a href="javascript:adminmsg(<%=id%>)">Moderación</a> | <%=responder%></td></tr></table>