Un foro para todos

[CHuLoSoY]

Bien, como el problema de mucha gente son los foros en asp, os propongo aquí por si queréis el mío. Podéis utilizarlo en vuestras páginas, modificar lo que queráis, e incluso poner vuestras sugerencias aquí. Primero os explico la base de datos y luego os dejo el código fuente del foro. Es un foro de los más sencillos que he hecho, pero es pa no complicar la cosa. Se trata de un foro con subforos y administración.

foros.mdb
Tabla borrados:

asunto: texto
mensaje: memo
nombre: texto
idmsg: numérico
motivo: memo
fechaorde: texto
fechaborra: fecha/hora

Tabla foros:

id: autonumérico
nombre: texto
descripcion: texto
categoria: texto
idcategoria: numérico

Tabla mensajes:

id: autonumérico
idforo: numérico
asunto: texto
mensaje: memo
fecha: texto
modificacion: texto
nombre: texto
lecturas: numérico
fechaorde: fecha/hora
cerrado: texto
modificado: texto

Tabla respuestas:

idmensaje: numérico
idrespuesta: autonumérico
nombre: texto
asunto: texto
mensaje: memo
fecha: texto
modificado: texto

[CHuLoSoY]

funciones.js



function adminmsg(id){
window.open("modmsg.asp?id=" + id,"ventana","width=400,height=160,scrollbars=yes" )
}


function adminresp(id){
ventana = window.open('modresp.asp?id=' + id,'ventana','width=400,height=160,scrollbars=yes' )
}


function adminforo(id){
window.open("modforo.asp?id=" + id,"ventana","width=400,height=160,scrollbars=yes" )
}


function admin(){
window.open("adminindex.asp","ventana","width=400, height=160,scrollbars=yes")
}

index.asp
aquí se muestran todos los foros y el número de temas

Código:

<table border="0" width="100%" bgcolor="#E6E6E6" cellspacing="0" cellpadding="7"><tr><td width="92%" style="border-left: 1 solid #C0C0C0; border-top: 1 solid #C0C0C0; border-bottom: 1 solid #C0C0C0" align="center" bgcolor="#800000"><b><font size="2" color="#C0C0C0">Nombre del foro</font></b></td><td width="8%" style="border: 1 solid #C0C0C0" align="center" bgcolor="#800000"><b><font size="2" color="#C0C0C0">Temas</font></b></td></tr>
      <%
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=45

'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 foros ORDER BY nombre ASC;"

' 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("<tr><td width=""100%"" bgcolor=""e6e6e6"" colspan=2><center>No hay foros disponibles. Puede tratarse de un <b>error de servidor</b> o de un <b>posible ataque informático</b>. Si ves este mensaje por favor, no dudes en contactar conmigo por medio del área de contacto comentándome todo el problema bien explicado. Muchas gracias.</center></td></tr>")

else

	rs.AbsolutePage=PaginaActual
	CuantosRegistros=0
bandera=0
do while not rs.EOF and CuantosRegistros < TamPagina
if bandera = 0 Then
color="e6e6e6"
bandera = 1
ELse
color="cfcfcf"
bandera = 0
End IF

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 mensajes where idforo="&rs.fields("id")&";"
RSs.Open sql, Coneximon, 3,3

contadorregistros=RSs.RecordCount

RSs.close
coneximon.close

Response.Write "<tr bgcolor="&color&"><td width=""92%"" style=""border-left: 1 solid #C0C0C0; border-bottom: 1 solid #C0C0C0""><a href=""foro.asp?id="&rs.fields("id")&"""><b><font style=""font-size:10pt"">"&rs.fields("nombre")&"</a></b></font><br><font style=""font-size:8pt"">"&rs.fields("descripcion")&"</td>"
Response.Write "<td width=""8%"" style=""border-left: 1 solid #C0C0C0; border-right: 1 solid #C0C0C0; border-bottom: 1 solid #C0C0C0"" align=right>"&contadorregistros&"</td>"
CuantosRegistros=CuantosRegistros+1
		rs.MoveNext
	loop
	Response.Write("</tr><tr>")

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

%></table>

[CHuLoSoY]

foro.asp
aquí se muestran los mensajes de cada subforo

Código:

<%
id=request.querystring("id")

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 foros where id="&id&""
rst.Open sql,cnn,3,3

nombre=rst("nombre")
descripcion=rst("descripcion")

rst.close
cnn.close
%><html>

<head><script language="javascript" src="funciones.js"></script>
</head><body><center><table width="700" border="0" cellspacing="0" cellpadding="4" style="border-left-style: solid; border-left-width: 1"><tr><td width="679" valign="top" bgcolor="#F5F5F5" style="border: 1 solid #C0C0C0"><table border="0" width="100%" cellspacing="0" cellpadding="0"><tr>
<td width="69%"><i><b><font face="Times New Roman" size="5" color="#800000"><%=nombre%></b></font><br><font face="Times New Roman" size="2" color="#0000FF"><%=descripcion%></font></i></td>
</center><td width="31%" valign="bottom"><p align="right"><a href="javascript:adminforo(<%=request.querystring("id")%>)" class="adminforo">Administración</a> | <a href="escribir.asp?f=<%=request.querystring("id")%>&a=n" class=adminforo>Iniciar tema</a></td>
</tr></table>&nbsp;<center><table bgcolor="#000000" border="0" cellspacing="1" cellpadding="0" width="100%"><tr><td><center><table width="100%" cellpadding="1" cellspacing="0" border="0"><tr><td width="2%" align="center" bgcolor="#E8E8E8"></td><td width="55%" align="center" bgcolor="#E8E8E8"><b>Asunto</b></td><td width="20%" align="center" bgcolor="#E8E8E8"><b>Autor</b></td><td width="12%" align="center" bgcolor="#E8E8E8"><b>Fecha</b></td><td width="3%" align="center" bgcolor="#E8E8E8"><b><font size="1">Lec</font></b></td><td width="3%" align="center" bgcolor="#E8E8E8"><b><font size="1">Res</font></b></td></tr>
<%
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 mensajes where idforo="&id&";"
RSs.Open sql, Coneximon, 3,3
numensajes=RSs.RecordCount
RSs.close
coneximon.close

Dim oConn, rs, SQL
Dim PaginaActual
Dim PaginasTotales	
Dim TamPagina
Dim CuantosRegistros
TamPagina=25
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")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
	"Data Source="&Server.MapPath("foros.mdb")&";"
SQL="SELECT * FROM mensajes where idforo="&id&" ORDER BY fechaorde DESC;"

rs.PageSize=TamPagina
rs.CacheSize=TamPagina
rs.Open SQL, oConn, 1, 2
PaginasTotales=rs.PageCount
if PaginaActual < 1 then 
	PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
	PaginaActual = PaginasTotales
end if
if PaginasTotales=0 then

	Response.Write("<tr><td width=""100%"" bgcolor=""white"" colspan=6><center>No hay mensajes</center></td></tr>")

else
rs.AbsolutePage=PaginaActual
Response.Write("<tr><td width=""30%"" colspan=3 bgcolor=""#996666""><font color=white style=""font-size:8pt; font-family: tahoma""><b><font color=yellow>"&numensajes&"</font></b> temas de charla en este foro.</font></td><td width=""70%"" colspan=3 align=right bgcolor=""#996666""><font color=white style=""font-size:8pt; font-family: tahoma"">Página <b><font color=yellow>" & PaginaActual & "</b></font> de <b><font color=yellow>" & PaginasTotales & "</font></b></font></font></td></tr>")
CuantosRegistros=0
bandera=0
do while not rs.EOF and CuantosRegistros < TamPagina
if bandera = 0 Then
color="e6e6e6"
bandera = 1
ELse
color="cfcfcf"
bandera = 0
End IF
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="&rs.fields("id")&";"
RSs.Open sql, Coneximon, 3,3
respuestas=RSs.RecordCount
RSs.close
coneximon.close
Response.Write "<tr><td width=""100%"" bgcolor=""black"" colspan=""6""></td></tr><tr><td width=""2%"" bgcolor="""&color&"""><a target=""_blank"" title=""Click para abrir en nueva ventana"" href=""mensaje.asp?id=" &rs.Fields("id") & """><img src=""" &rs.Fields("cerrado") & """ border=0></a></td><td width=""55%"" bgcolor='"&color&"'><a href=""mensaje.asp?id=" &rs.Fields("id") & """ class=mensaje><font style=""font-size:9pt;font-family:Tahoma"">"&rs.Fields("asunto")&"</font></a></td><td width=""20%"" align=""center"" bgcolor='"&color&"'><font style=""font-size:8pt"">"&rs.Fields("nombre")&"</font></td><td width=""12%"" align=""center"" bgcolor='"&color&"'><font size=1 color=""blue"">"&rs.Fields("modificacion")&"</font></td><td width=""3%"" align=""center"" bgcolor='"&color&"'><font size=1>"&rs.Fields("lecturas")&"</font></td><td width=""3%"" align=""center"" bgcolor='"&color&"'><font size=1>"&respuestas&"</font></td>"		
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
Response.Write("</tr><tr>")
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
%></table></center></td></tr></table></center><center><table width="100%" cellpadding="1" cellspacing="0" border="0"><tr><td width="100%" align="center">
<font face="courier new" style="font-size:11pt">Más mensajes: </font><%
if PaginasTotales="1" then
	Response.write("<a href=""foro.asp?id="&id&""" class=""paginar"">[1]</a>")
elseif PaginasTotales="2" then
	Response.write("<a href=""foro.asp?id="&id&""" class=""paginar"">[1]</a><font face=""courier new"" style=""font-size:11pt"">&nbsp; <a href=""foro.asp?id="&id&"&pagina=2"" class=""paginar"">[2]</a>...</font>")

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

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

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

end if
%>&nbsp;&nbsp;<br></td></tr></table></center>
</table>
</body></html>

[CHuLoSoY]

mensaje.asp
Aquí mostramos el mensaje y sus respuestas, este código ocupará un par de mensajes.

Código:

<%
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, "'", "&quot;")
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>&nbsp;<img border="0" src="carpeta.gif"> <a href="index.asp">Inicio Foros</a><br>
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img border="0" src="carpeta.gif"> <a href="foro.asp?id=<%=idforo%>"><%=nombreforo%></a><br>
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%
    
    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
%>&nbsp;<%=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>

Continúa...

[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>

[CHuLoSoY]

escribir.asp
Aquí escribiremos un mensaje y lo enviaremos. Por cierto, hay que crear una carpeta que se llame "caras" y ahí dentro meter los smiles que queramos, yo le he metido 21.

Código:

<%
cookie=request.cookies("cookie")
%><html><head>
<script language="javascript" src="funciones.js"></script>
<script>
function storeCaret(text) { 
if (text.createTextRange) {
text.caretPos = document.selection.createRange().duplicate();
}
}

function meter(text) {
var postopic=document.frmEntrada.mensaje
if (postopic.createTextRange && postopic.caretPos) {      
var caretPos = postopic.caretPos;      
caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?text + ' ' : text;
}
else postopic.value += text;
postopic.focus(caretPos)
}

function codigo(accion)
{
switch(accion)
{
case "bold":
negras = prompt("Texto en Negrita", "");
if(negras)
{
negras=""+negras+"";
meter(negras);
}
break;
case "italics":
italics = prompt("Texto en cursiva", "");
if(italics)
{
italics=""+italics+"";
meter(italics);
}
break;

case "url":
url = prompt("Dirección para enlace (con http://)", "http://");
urltxt = prompt("Texto para mostrar en el enlace",url);
if(url)
{
url=""+url+"[txturl]"+urltxt+"";
meter(url);
}
break;


case "imgurl":
url = prompt("Dirección para enlace (con http://)", "http://www.direccion.com");
img = prompt("Dirección exacta de la imagen","http://www.direccion.com/imagen.gif");
if(url)
{
url=""+url+"[txturl][img]"+img+"[/img]";
meter(url);
}
break;



case "imagen":
imagen = prompt("Dirección exacta de la imagen", "http://");
if(imagen)
{
imagen="[img]"+imagen+"[/img]";
meter(imagen);
}
break;
/*** fin del código de CHuLoYo**/

case "cita":
code="[cita]  [/cita]";
meter(code);
break;
case "subrayado":
subrayado = prompt("Texto subrayado", "");
if(subrayado)
{
subrayado=""+subrayado+"";
meter(subrayado);
}
break;
default:
meter(accion);
break;
}
}


  function textCounter(field, countfield, maxlimit) {
   if (field.value.length > maxlimit)
    field.value = field.value.substring(0, maxlimit);
   else 
    countfield.value = maxlimit - field.value.length;
  }

</script></head>
<body topmargin="10">
<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">Escribir</font><br><font color="#0000ff" face="Times New Roman" size="3"><%
      if request.querystring("a")="n" then
          response.write("Iniciar tema")
      else
          response.write("Responder")
      end if%></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=<%=request.querystring("f")%>" class=adminforo>Inicio</a></td></tr></table><form action="<%
    if request.querystring("a")="n" then
           response.write("nuevomsg.asp?a=n")
    else
    		 response.write("nuevomsg.asp?a=r")
    end if
    %>" name="frmEntrada" method=post><input type="hidden" name="foroid" value="<%=request.querystring("f")%>">
    <input type="hidden" name="msgid" value="<%=request.querystring("id")%>"><table border="0" width="100%" style="background-color: #E4E4E4; border: 1 solid #808080" cellspacing="0" cellpadding="5"><tr><td width="19%"> </td><td width="11%">Nombre: </td>
<td width="70%"><input type="text" name="nombre" size="20" value="<%=cookie%>" style="font-family: Tahoma; font-size: 8pt; background-color: #F5F5F5; border: 1 solid #C0C0C0"></td></tr>
<tr><td width="19%"> </td>
<td width="11%">Asunto: </td><td width="70%"><input type="text" name="asunto" value="<%
        if request.querystring("a")="r" then
        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

asunto=rst("asunto")

rst.close
cnn.close
        response.write("RE: "&asunto)
        
        end if%>" size="50" style="font-family: Tahoma; font-size: 8pt; background-color: #F5F5F5; border: 1 solid #C0C0C0"></td></tr><tr><td width="19%"> </td><td width="11%"> </td>
<td width="70%"><font face="Times New Roman"><a href="javascript:meter('[font times]TEXTO[/font]')">Times New Roman</a></font> - <font face="Verdana"><a href="javascript:meter('[font verdana]TEXTO[/font]')">Verdana</a></font>
          - <font face="Tahoma"><a href="javascript:meter('[font tahoma]TEXTO[/font]')">Tahoma</a></font> - <font face="Courier New"><a href="javascript:meter('[font courier]TEXTO[/font]')">Courier
          New</a></font> / <a href="javascript:meter('[color verde]TEXTO[/color]')"><font color="#008000">Verde</font></a> -
          <a href="javascript:meter('[color rojo]TEXTO[/color]')"><font color="#FF0000"> Rojo</font></a> -
          <a href="javascript:meter('[color azul]TEXTO[/color]')"><font color="#0000FF"> Azul</font></a></td></tr>
<tr><td width="19%" valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="8">
<tr><td width="33%" align="center"><a href="javascript:meter('[1]')"><img border="0" src="caras/1.gif"></a></td><td width="33%" align="center"><a href="javascript:meter('[2]')"><img border="0" src="caras/2.gif"></a></td>
<td width="34%" align="center"><a href="javascript:meter('[3]')"><img border="0" src="caras/3.gif"></a></td>
</tr><tr><td width="33%" align="center"><a href="javascript:meter('[4]')"><img border="0" src="caras/4.gif"></a></td>
              <td width="33%" align="center"><a href="javascript:meter('[5]')"><img border="0" src="caras/5.gif"></a></td>
              <td width="34%" align="center"><a href="javascript:meter('[6]')"><img border="0" src="caras/6.gif"></a></td></tr>
<tr><td width="33%" align="center"><a href="javascript:meter('[7]')"><img border="0" src="caras/7.gif"></a></td>
<td width="33%" align="center"><a href="javascript:meter('[8]')"><img border="0" src="caras/8.gif"></a></td><td width="34%" align="center"><a href="javascript:meter('[9]')"><img border="0" src="caras/9.gif"></a></td>
</tr><tr><td width="33%" align="center"><a href="javascript:meter('[10]')"><img border="0" src="caras/10.gif"></a></td>
<td width="33%" align="center"><a href="javascript:meter('[11]')"><img border="0" src="caras/11.gif"></a></td>
<td width="34%" align="center"><a href="javascript:meter('[12]')"><img border="0" src="caras/12.gif"></a></td></tr><tr><td width="33%" align="center"><a href="javascript:meter('[13]')"><img border="0" src="caras/13.gif"></a></td>
<td width="33%" align="center"><a href="javascript:meter('[14]')"><img border="0" src="caras/14.gif"></a></td><td width="34%" align="center"><a href="javascript:meter('[15]')"><img border="0" src="caras/15.gif"></a></td>
</tr><tr><td width="33%" align="center"><a href="javascript:meter('[16]')"><img border="0" src="caras/16.gif"></a></td><td width="33%" align="center"><a href="javascript:meter('[17]')"><img border="0" src="caras/17.gif"></a></td><td width="34%" align="center"><a href="javascript:meter('[18]')"><img border="0" src="caras/18.gif"></a></td></tr><tr><td width="33%" align="center"><a href="javascript:meter('[19]')"><img border="0" src="caras/19.gif"></a></td>
              <td width="33%" align="center"><a href="javascript:meter('[20]')"><img border="0" src="caras/20.gif"></a></td>
              <td width="34%" align="center"><a href="javascript:meter('[21]')"><img border="0" src="caras/21.gif"></a></td></tr><tr><td width="33%" align="center"></td><td width="33%" align="center"></td><td width="34%" align="center"></td></tr>
<tr><td width="33%" align="center"></td><td width="33%" align="center"></td><td width="34%" align="center"></td></tr>
<tr><td width="33%" align="center"></td><td width="33%" align="center"></td><td width="34%" align="center"></td></tr></table>
 </td><td width="11%" valign="top"> <a href="javascript:codigo('bold')">Negrita</a>
<p><a href="javascript:codigo('italics')">Cursiva</a></p><p><a href="javascript:codigo('subrayado')">Subrayado</a></p><p><a href="javascript:codigo('cita')">Cita</a></p>
<p><a href="javascript:codigo('url')">Enlace</a></p><p><a href="javascript:codigo('imagen')">Imagen</a></p>
<p><a href="javascript:codigo('imgurl')">Enlace con imagen</a> </td><td width="70%"> <textarea rows="20" name="mensaje" onKeyUp="textCounter(this.form.mensaje,this.form.remLen,21000);"  cols="89" style="background-color: #F5F5F5; font-family: Tahoma; font-size: 8pt; border: 1 solid #C0C0C0"></textarea> </td></tr><tr><td width="19%" valign="top"> </td><td width="11%"> </td><td width="70%">Tienes <input readonly type=text name=remLen size=4 maxlength=3 value="21000" style="background-color: #E8E4E8; font-family: Tahoma; font-size: 10pt; border-style: solid; border-color: #DFE3DF"> caracteres en el mensaje.</td></tr><tr>
  <td width="19%" valign="top"> </td><td width="11%"> </td>
  <td width="70%"><input type="submit" value="       E N V I A R       " style="background-color: #F5F5F5; font-family: Tahoma; font-size: 8pt; border: 1 solid #C0C0C0">&nbsp;
<input type="reset" value="       B O R R A R       " style="background-color: #F5F5F5; font-family: Tahoma; font-size: 8pt; border: 1 solid #C0C0C0"></td></tr></table></form></td></tr></table></div>
</body></html>

[CHuLoSoY]

nuevomsg.asp
Este archivo guarda los mensajes y respuestas enviadas

Código:

<%
Response.Cookies("cookie")=Request.Form("nombre")
Response.Cookies("cookie").Expires="7/2/2030" 

mensaje=request.form("mensaje")
asunto=request.form("asunto")
nombre=request.form("nombre")
idforo=request.form("foroid")
idmsg=request.form("msgid")
a=request.querystring("a")

Dim lMonth
lMonth  = Array ("","01","02","03","04","05","06", _
"07","08", "09","10","11","12")

fecha = Day(Now) &"/"& _
	lMonth(Month(Now)) & "/" & Year(Now)

if a="n" then

	if mensaje ="" or asunto ="" then
	error = "Debe completar todos los datos. <a href=""javascript:history.go(-1)"">Atrás</a>."
	Response.Write error
	Response.End
	end if
	
	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"
	rst.Open sql,cnn,3,3

	rst.AddNew
	rst("asunto")=asunto
	rst("mensaje")=mensaje
	rst("nombre")=nombre
	rst("idforo")=idforo
	rst("fecha")=fecha
	rst("modificacion")=fecha
	rst("fechaorde")=now()
	rst("cerrado")="carpeta.gif"
	rst.update
	
	rst.close
	cnn.close
	
	
	response.redirect "foro.asp?id="&idforo 

elseif a="r" then

	if mensaje ="" or asunto ="" then
	error = "Debe completar todos los datos. <a href=""javascript:histori.go(-1)"">Atrás</a>."
	Response.Write error
	Response.End
	end if
	
	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 respuestas"
	rst.Open sql,cnn,3,3

	rst.AddNew
	rst("asunto")=asunto
	rst("mensaje")=mensaje
	rst("nombre")=nombre
	rst("idmensaje")=idmsg
	rst("fecha")=fecha
	rst("modificado")=now()
	rst.update
	
	rst.close
	cnn.close
	
	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="&idmsg
	rst.Open sql,cnn,3,3

	rst("fechaorde")=now()
	rst.update
	
	rst.close
	cnn.close
	
	response.redirect "mensaje.asp?id="&idmsg 

end if
%>

[CHuLoSoY]

adminindex.asp
Página principal de la administración

Código:

<head>
<title>Administración</title>
<link rel="stylesheet" type="text/css" href="../../estilo.css">
</head>
<body bgcolor="#66CCFF" topmargin="7" leftmargin="7">
<table border="0" width="100%" style="background-color: #FFFFFF; border: 1 outset #3399FF" cellspacing="0" cellpadding="2">
<tr>
<td width="100%"><i><b><font size="4">Administración</font></b></i>
<% if request.querystring("c")="" then%>
  <form method="POST" action="adminindex.asp?c=s">Introduce la password: <input type="password" name="pass" size="10" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1">
    <input type="submit" value="Comprobar" style="background-color: #FFFFFF; font-family: Verdana; font-size: 8pt; border: 1 outset #000080"></p>
  </form>
<%elseif request.querystring("c")="s" then

	if request.form("pass")="PASSWORD" then%>
		<br><b>Contraseña aceptada</b>
		<br><center><a href="adminindex.asp?c=a">Añadir foro</a>
		<br><a href="adminindex.asp?c=m">Modificar foro</a>
		<br><a href="adminindex.asp?c=e">Eliminar foro</a></center>
	<% else%>
		<br><b>Contraseña incorrecta</b><br><br><center><b><a href="javascript:history.go(-1)">Atrás</a></b>
	<%end if%>

<% elseif request.querystring("c")="a" then%>
	
	<br><b>Añadir foro</b>
	<form action="adminindex.asp?c=as" method=post>Nombre del foro: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="nombre" size="10">
	<br>Categoría: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="categoria" size="10">
	<br>Id Categoría: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="idcategoria" size="10">
	<br>Descripción: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="descripcion" size="30">
	<br><input type="submit" value="Enviar" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 2 outset #000080"></form>

<% elseif request.querystring("c")="as" then

	nombre=request.form("nombre")
	descripcion=request.form("descripcion")
	categoria=request.form("categoria")
	idcategoria=request.form("idcategoria")

	if nombre ="" or descripcion ="" or categoria="" or idcategoria="" then
	error = "Debe completar todos los datos. <a href=""javascript:history.go(-1)"">Atrás</a>."
	Response.Write error
	Response.End
	end if
	
	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 foros"
	rst.Open sql,cnn,3,3
	
	rst.Addnew
	rst("nombre")=nombre
	rst("descripcion")=descripcion
	rst("categoria")=categoria
	rst("idcategoria")=idcategoria
	rst.update
	
	rst.close
	cnn.close%>

		<br><b>Foro <%=nombre%> creado correctamente.</b>

<% elseif request.querystring("c")="m" then%>

	<br><b>Modificar foro</b>
	<form action="adminindex.asp?c=ms" method=post>Id del foro: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="id" size="3">
	<br>Nombre del foro: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="nombre" size="10">
	<br>Categoría: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="categoria" size="10">
	<br>Id Categoría: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="idcategoria" size="10">
	<br>Descripción: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="descripcion" size="30">
	<br><input type="submit" value="Enviar" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 2 outset #000080"></form>

<% elseif request.querystring("c")="ms" then

	id=request.form("id")
	nombre=request.form("nombre")
	descripcion=request.form("descripcion")
	categoria=request.form("categoria")
	idcategoria=request.form("idcategoria")

	if nombre ="" or descripcion ="" or categoria="" or idcategoria="" or id="" then
	error = "Debe completar todos los datos. <a href=""javascript:history.go(-1)"">Atrás</a>."
	Response.Write error
	Response.End
	end if
	
	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 foros where id="&id
	rst.Open sql,cnn,3,3
	
	rst("nombre")=nombre
	rst("descripcion")=descripcion
	rst("categoria")=categoria
	rst("idcategoria")=idcategoria
	rst.update
	
	rst.close
	cnn.close%>

		<br><b>Foro <%=nombre%> modificado correctamente.</b>

<% elseif request.querystring("c")="e" then%>

	<br><b>Eliminar foro</b>
	<form action="adminindex.asp?c=es" method=post>Id del foro: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="id" size="3">
	<br><input type="submit" value="Enviar" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 2 outset #000080"></form>

<% elseif request.querystring("c")="es" then%>

	<br><b>Eliminar foro</b>
	<br><br>¿Está seguro de querer eliminar el foro <b><%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 foros where id="&request.form("id")
	rst.Open sql,cnn,3,3
	
	nombre=rst("nombre")
	response.write nombre
	
	rst.close
	cnn.close%>
	</b>?
	<br><center><a href="adminindex.asp?c=esi&id=<%=request.form("id")%>">SI</a></center>
	
<% elseif request.querystring("c")="esi" then

	Set oConn = Server.CreateObject("ADODB.Connection")
	oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("foros.mdb")&";"
	strSQL ="DELETE * FROM foros where id="&request.querystring("id")
	oConn.Execute(strSQL) 
	oConn.Close 
	set oConn = nothing%>
	
	<br><b>Foro <%=request.querystring("id")%> eliminado correctamente</b>

<%end if%>
</td></tr>
</table>

[CHuLoSoY]

modforo.asp
Moderación de un subforo

Código:

<head>
<title>Moderación de foros</title>
<link rel="stylesheet" type="text/css" href="../../estilo.css">
</head>
<body bgcolor="#66CCFF" topmargin="7" leftmargin="7">
<table border="0" width="100%" style="background-color: #FFFFFF; border: 1 outset #3399FF" cellspacing="0" cellpadding="2">
<tr>
<td width="100%"><font size="3"><i><b>Moderación de foros</b></i></font>

<% if request.querystring("c")="" then%>
  <form method="POST" action="modforo.asp?c=s&id=<%=request.querystring("id")%>">Introduce la password: <input type="password" name="pass" size="10" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1">
    <input type="submit" value="Comprobar" style="background-color: #FFFFFF; font-family: Verdana; font-size: 8pt; border: 1 outset #000080"></p>
  </form>
<%elseif request.querystring("c")="s" then

	if request.form("pass")="PASSWORD" then%>
		<br><b>Contraseña aceptada</b>
		<br><center><a href="modforo.asp?c=m&id=<%=request.querystring("id")%>">Modificar foro</a>
		<br><a href="modforo.asp?c=e&id=<%=request.querystring("id")%>">Eliminar foro</a></center>
	<% else%>
		<br><b>Contraseña incorrecta</b><br><br><center><b><a href="javascript:history.go(-1)">Atrás</a></b>
	<%end if%>
	
<%elseif request.querystring("c")="m" then%>

	<br><b>Modificar foro</b>
	<form action="modforo.asp?c=ms" method=post>Id del foro: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="id" value="<%=request.querystring("id")%>" size="3">
	<br>Nombre del foro: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="nombre" size="10">
	<br>Categoría: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="categoria" size="10">
	<br>Id Categoría: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="idcategoria" size="10">
	<br>Descripción: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="descripcion" size="30">
	<br><input type="submit" value="Enviar" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 2 outset #000080"></form>

<% elseif request.querystring("c")="ms" then

	id=request.form("id")
	nombre=request.form("nombre")
	descripcion=request.form("descripcion")
	categoria=request.form("categoria")
	idcategoria=request.form("idcategoria")

	if nombre ="" or descripcion ="" or categoria="" or idcategoria="" or id="" then
	error = "Debe completar todos los datos. <a href=""javascript:history.go(-1)"">Atrás</a>."
	Response.Write error
	Response.End
	end if
	
	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 foros where id="&id
	rst.Open sql,cnn,3,3
	
	rst("nombre")=nombre
	rst("descripcion")=descripcion
	rst("categoria")=categoria
	rst("idcategoria")=idcategoria
	rst.update
	
	rst.close
	cnn.close%>

		<br><b>Foro <%=nombre%> modificado correctamente.</b>

<% elseif request.querystring("c")="e" then%>

	<br><b>Eliminar foro</b>
	<form action="modforo.asp?c=es" method=post>Id del foro: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="id" value="<%=request.querystring("id")%>" size="3">
	<br><input type="submit" value="Enviar" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 2 outset #000080"></form>

<% elseif request.querystring("c")="es" then%>

	<br><b>Eliminar foro</b>
	<br><br>¿Está seguro de querer eliminar el foro <b><%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 foros where id="&request.form("id")
	rst.Open sql,cnn,3,3
	
	nombre=rst("nombre")
	response.write nombre
	
	rst.close
	cnn.close%>
	</b>?
	<br><center><a href="adminindex.asp?c=esi&id=<%=request.form("id")%>">SI</a></center>
	
<% elseif request.querystring("c")="esi" then

	Set oConn = Server.CreateObject("ADODB.Connection")
	oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("foros.mdb")&";"
	strSQL ="DELETE * FROM foros where id="&request.querystring("id")
	oConn.Execute(strSQL) 
	oConn.Close 
	set oConn = nothing%>
	
	<br><b>Foro <%=request.querystring("id")%> eliminado correctamente</b>

<%end if%>
	
</td></tr>
</table>

[CHuLoSoY]

modmsg.asp
Moderación de un mensaje (cerrar, abrir, eliminar)

Código:

<head>
<title>Moderar mensajes</title>
<link rel="stylesheet" type="text/css" href="../../estilo.css">
</head>
<body bgcolor="#66CCFF" topmargin="7" leftmargin="7">
<table border="0" width="100%" style="background-color: #FFFFFF; border: 1 outset #3399FF" cellspacing="0" cellpadding="2">
<tr>
<td width="100%"><font size="3"><i><b>Moderación de mensajes</b></i></font>
<% if request.querystring("s")="" then%>

	<form method=post action="modmsg.asp?s=p">
	Introduce la password: <input type="password" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="pass" size="10">
	<input type="submit" value="Comprobar" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 1 outset #000080">
	<input type="hidden" name="id" value="<%=request.querystring("id")%>">
	</form>

<%elseif request.querystring("s")="p" then
	if request.form("pass")="PASSWORD" then%>
	
		<br><b>Contraseña aceptada</b><br><br><center>
		<a href="modmsg.asp?s=c&id=<%=request.form("id")%>">Cerrar mensaje</a><br>
		<a href="modmsg.asp?s=a&id=<%=request.form("id")%>">Abrir mensaje</a><br>
		<a href="modmsg.asp?s=e&id=<%=request.form("id")%>">Eliminar mensaje</a>
		
	<%else%>
		
		<br><b>Contraseña incorrecta.</b> <a href="javascript:history.go(-1)">Atrás</a>
	
	<%end if%>

<%elseif request.querystring("s")="c" then
	
	id=request.querystring("id")%>
	<br><b>Cerrar mensaje</b>
	<form method=post action="modmsg.asp?s=cs">Id del mensaje: <input type="text" value="<%=id%>" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="id" size="3">
	<br><input type="submit" value="Cerrar" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 1 outset #000080">
	</form>

<%elseif request.querystring("s")="cs" then

	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.form("id")
	rst.Open sql,cnn,3,3
	
	rst("cerrado")="carpetacerrado.gif"
	rst.update
	
	rst.close
	cnn.close%>
	
	<br><b>Mensaje cerrado correctamente</b>

<%elseif request.querystring("s")="a" then
	
	id=request.querystring("id")%>
	<br><b>Abrir un mensaje cerrado previamente</b>
	<form method=post action="modmsg.asp?s=as">Id del mensaje: <input type="text" value="<%=id%>" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="id" size="3">
	<br><input type="submit" value="Abrir" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 1 outset #000080">
	</form>

<%elseif request.querystring("s")="as" then

	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.form("id")
	rst.Open sql,cnn,3,3
	
	rst("cerrado")="carpeta.gif"
	rst.update
	
	rst.close
	cnn.close%>
	
	<br><b>Mensaje abierto correctamente</b>

<%elseif request.querystring("s")="e" then
	
	id=request.querystring("id")%>
	<br><b>Eliminar mensaje</b>
	<form method=post action="modmsg.asp?s=es">Id del mensaje: <input type="text" value="<%=id%>" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="id" size="3">
	<br><input type="submit" value="Eliminar" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 1 outset #000080">
	</form>

<%elseif request.querystring("s")="es" then%>

	<br><b>¿Estás seguro de querer eliminar el mensaje <%=request.form("id")%>?
	<br><center><br><a href="modmsg.asp?s=esi&id=<%=request.form("id")%>">SI</a>

<%elseif request.querystring("s")="esi" then
	
	Set oConn = Server.CreateObject("ADODB.Connection")
	oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("foros.mdb")&";"
	strSQL ="DELETE * FROM mensajes where id="&request.querystring("id") 
	oConn.Execute(strSQL) 
	oConn.Close 
	set oConn = nothing %>
	<br><b>Mensaje eliminado correctamente.

<%end if%>
</td></tr>
</table>

[CHuLoSoY]

modresp.asp
Moderación de respuestas (eliminar, únicamente)

Código:

<head>
<title>Borrar respuestas</title>
<link rel="stylesheet" type="text/css" href="../../estilo.css">
</head>
<body bgcolor="#66CCFF" topmargin="7" leftmargin="7">
<table border="0" width="100%" style="background-color: #FFFFFF; border: 1 outset #3399FF" cellspacing="0" cellpadding="2">
<tr>
<td width="100%"><font size="3"><i><b>Moderación de respuestas</b></i></font><%
id=request.querystring("id")

if request.querystring("mod")="" and request.querystring("borrar")="" then

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 idrespuesta="&id
RSs.Open sql, Coneximon, 3,3

asunto=RSs("asunto")

RSs.close
coneximon.close
%>

<br>Quieres borrar la respuesta nº <%=id%> con título <i><font color=red><%=asunto%></font></i>.
<br><br>¿Estás seguro de querer borrar esta respuesta? <a href="modresp.asp?id=<%=id%>&mod=si">Si</a> - <a href="javascript:window.close()">No</a>

<%
elseif request.querystring("mod")="si" then
%>

<br>¿Cuál es el motivo de querer borrar esa respuesta? El motivo y el mensaje quedará grabado hasta que lo revise el webmaster, quien si considera oportuno restituirá el mensaje a su sitio. Intenta ser objetivo al borrar respuestas.
<form action="modresp.asp?id=<%=id%>&borrar=si" method=post>
Motivo: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="motivo" size="30"><br>
Password: <input type="password" name="pass" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" size="10">
&nbsp;<input type="submit" value="Borrar" style="font-family: Verdana; font-size: 8pt; border: 1 outset #0000FF">
</form>

<%
elseif request.querystring("borrar")="si" then

if request.form("pass")="PASSWORD" then

	if request.form("motivo")="Soy webmaster" then

	Set oConn = Server.CreateObject("ADODB.Connection") 

	oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("foros.mdb")&";" 

	strSQL ="DELETE * FROM respuestas where idrespuesta="&id 
	oConn.Execute(strSQL) 
	oConn.Close 
	set oConn = nothing 

	else

	Set Conexion = Server.CreateObject("ADODB.Connection")
	Set Rs=Server.CreateObject("ADODB.Recordset")
	Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("foros.mdb")&";"
	sql = "SELECT * FROM respuestas where idrespuesta="&id&";"
	Rs.Open sql, Conexion, 3,3

	asunto=Rs("asunto")
	mensaje=rs("mensaje")
	nombre=rs("nombre")
	fecha=rs("modificado")
	idmsg=rs("idmensaje")

	Rs.close
	conexion.close

	Set Con = Server.CreateObject("ADODB.Connection")
	Set Res=Server.CreateObject("ADODB.Recordset")
	Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("foros.mdb")&";"
	sql = "SELECT * FROM borrados"
	Res.Open sql, Con, 3,3

	res.addnew
	res("asunto")=asunto
	res("mensaje")=mensaje
	res("nombre")=nombre
	res("fechaorde")=fecha
	res("idmsg")=idmsg
	res("motivo")=request.form("motivo")
	res("fechaborra")=now()
	res.update

	res.close
	con.close

	Set oConn = Server.CreateObject("ADODB.Connection") 

	oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("foros.mdb")&";" 

	strSQL ="DELETE * FROM respuestas where idrespuesta="&id 
	oConn.Execute(strSQL) 
	oConn.Close 
	set oConn = nothing 
end if

%>
<br><br><b>Respuesta borrada con éxito.</b>
<%else
%><br><br><b>Password incorrecta.</b>
<%end if%>
<%end if%>

</td></tr>
</table>

[CHuLoSoY]

Bueno, y ahí está, sencillo pero funcional. En otro le tengo un buscador de mensajes, en este se le puede añadir fácilmente, a este foro le podéis añadir un sinfín de cosas.

Las imágenes carpeta.gif y carpetacerrado.gif son dos iconos normales de una carpeta y una carpeta con candado, para saber si está cerrado o no.

Espero que os sirva, y espero sugerencias, correcciones, consultas... y utilizadlo en vuestras webs si queréis. Funciona perfectamente en Brinkster.

Saludos.

[CHuLoSoY]

Hay un error en el código de escribir.asp. No es un error de código fuente, sino que al ponerlo aquí, se han convertido las etiquetas en negrita, cursiva, enlace, subrayado... pero lo pongo ahora bien.

Código:

<%
cookie=request.cookies("cookie")
%><html><head>
<script language="javascript" src="funciones.js"></script>
<script>
function storeCaret(text) { 
if (text.createTextRange) {
text.caretPos = document.selection.createRange().duplicate();
}
}

function meter(text) {
var postopic=document.frmEntrada.mensaje
if (postopic.createTextRange && postopic.caretPos) {      
var caretPos = postopic.caretPos;      
caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?text + ' ' : text;
}
else postopic.value += text;
postopic.focus(caretPos)
}

function codigo(accion)
{
switch(accion)
{
case "bold":
negras = prompt("Texto en Negrita", "");
if(negras)
{
negras="(b)"+negras+"(/b)"; /***---> sustituir los () por []
meter(negras);
}
break;
case "italics":
italics = prompt("Texto en cursiva", "");
if(italics)
{
italics="(i)"+italics+"(/i)"; /***--> sustituir los () por []
meter(italics);
}
break;

case "url":
url = prompt("Dirección para enlace (con http://)", "http://");
urltxt = prompt("Texto para mostrar en el enlace",url);
if(url)
{
url="(url)"+url+"[txturl]"+urltxt+"(/url)"; /*** idem
meter(url);
}
break;


case "imgurl":
url = prompt("Dirección para enlace (con http://)", "http://www.direccion.com");
img = prompt("Dirección exacta de la imagen","http://www.direccion.com/imagen.gif");
if(url)
{
url="(url)"+url+"(txturl)(img)"+img+"(/img)(/url)"; /****idem
meter(url);
}
break;



case "imagen":
imagen = prompt("Dirección exacta de la imagen", "http://");
if(imagen)
{
imagen="[img]"+imagen+"[/img]";
meter(imagen);
}
break;
/*** fin del código de CHuLoYo**/

case "cita":
code="[cita]  [/cita]";
meter(code);
break;
case "subrayado":
subrayado = prompt("Texto subrayado", "");
if(subrayado)
{
subrayado="(u)"+subrayado+"(/u)"; /*** y aquí
meter(subrayado);
}
break;
default:
meter(accion);
break;
}
}


  function textCounter(field, countfield, maxlimit) {
   if (field.value.length > maxlimit)
    field.value = field.value.substring(0, maxlimit);
   else 
    countfield.value = maxlimit - field.value.length;
  }

</script></head>
<body topmargin="10">
<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">Escribir</font><br><font color="#0000ff" face="Times New Roman" size="3"><%
      if request.querystring("a")="n" then
          response.write("Iniciar tema")
      else
          response.write("Responder")
      end if%></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=<%=request.querystring("f")%>" class=adminforo>Inicio</a></td></tr></table><form action="<%
    if request.querystring("a")="n" then
           response.write("nuevomsg.asp?a=n")
    else
    		 response.write("nuevomsg.asp?a=r")
    end if
    %>" name="frmEntrada" method=post><input type="hidden" name="foroid" value="<%=request.querystring("f")%>">
    <input type="hidden" name="msgid" value="<%=request.querystring("id")%>"><table border="0" width="100%" style="background-color: #E4E4E4; border: 1 solid #808080" cellspacing="0" cellpadding="5"><tr><td width="19%"> </td><td width="11%">Nombre: </td>
<td width="70%"><input type="text" name="nombre" size="20" value="<%=cookie%>" style="font-family: Tahoma; font-size: 8pt; background-color: #F5F5F5; border: 1 solid #C0C0C0"></td></tr>
<tr><td width="19%"> </td>
<td width="11%">Asunto: </td><td width="70%"><input type="text" name="asunto" value="<%
        if request.querystring("a")="r" then
        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

asunto=rst("asunto")

rst.close
cnn.close
        response.write("RE: "&asunto)
        
        end if%>" size="50" style="font-family: Tahoma; font-size: 8pt; background-color: #F5F5F5; border: 1 solid #C0C0C0"></td></tr><tr><td width="19%"> </td><td width="11%"> </td>
<td width="70%"><font face="Times New Roman"><a href="javascript:meter('[font times]TEXTO[/font]')">Times New Roman</a></font> - <font face="Verdana"><a href="javascript:meter('[font verdana]TEXTO[/font]')">Verdana</a></font>
          - <font face="Tahoma"><a href="javascript:meter('[font tahoma]TEXTO[/font]')">Tahoma</a></font> - <font face="Courier New"><a href="javascript:meter('[font courier]TEXTO[/font]')">Courier
          New</a></font> / <a href="javascript:meter('[color verde]TEXTO[/color]')"><font color="#008000">Verde</font></a> -
          <a href="javascript:meter('[color rojo]TEXTO[/color]')"><font color="#FF0000"> Rojo</font></a> -
          <a href="javascript:meter('[color azul]TEXTO[/color]')"><font color="#0000FF"> Azul</font></a></td></tr>
<tr><td width="19%" valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="8">
<tr><td width="33%" align="center"><a href="javascript:meter('[1]')"><img border="0" src="caras/1.gif"></a></td><td width="33%" align="center"><a href="javascript:meter('[2]')"><img border="0" src="caras/2.gif"></a></td>
<td width="34%" align="center"><a href="javascript:meter('[3]')"><img border="0" src="caras/3.gif"></a></td>
</tr><tr><td width="33%" align="center"><a href="javascript:meter('[4]')"><img border="0" src="caras/4.gif"></a></td>
              <td width="33%" align="center"><a href="javascript:meter('[5]')"><img border="0" src="caras/5.gif"></a></td>
              <td width="34%" align="center"><a href="javascript:meter('[6]')"><img border="0" src="caras/6.gif"></a></td></tr>
<tr><td width="33%" align="center"><a href="javascript:meter('[7]')"><img border="0" src="caras/7.gif"></a></td>
<td width="33%" align="center"><a href="javascript:meter('[8]')"><img border="0" src="caras/8.gif"></a></td><td width="34%" align="center"><a href="javascript:meter('[9]')"><img border="0" src="caras/9.gif"></a></td>
</tr><tr><td width="33%" align="center"><a href="javascript:meter('[10]')"><img border="0" src="caras/10.gif"></a></td>
<td width="33%" align="center"><a href="javascript:meter('[11]')"><img border="0" src="caras/11.gif"></a></td>
<td width="34%" align="center"><a href="javascript:meter('[12]')"><img border="0" src="caras/12.gif"></a></td></tr><tr><td width="33%" align="center"><a href="javascript:meter('[13]')"><img border="0" src="caras/13.gif"></a></td>
<td width="33%" align="center"><a href="javascript:meter('[14]')"><img border="0" src="caras/14.gif"></a></td><td width="34%" align="center"><a href="javascript:meter('[15]')"><img border="0" src="caras/15.gif"></a></td>
</tr><tr><td width="33%" align="center"><a href="javascript:meter('[16]')"><img border="0" src="caras/16.gif"></a></td><td width="33%" align="center"><a href="javascript:meter('[17]')"><img border="0" src="caras/17.gif"></a></td><td width="34%" align="center"><a href="javascript:meter('[18]')"><img border="0" src="caras/18.gif"></a></td></tr><tr><td width="33%" align="center"><a href="javascript:meter('[19]')"><img border="0" src="caras/19.gif"></a></td>
              <td width="33%" align="center"><a href="javascript:meter('[20]')"><img border="0" src="caras/20.gif"></a></td>
              <td width="34%" align="center"><a href="javascript:meter('[21]')"><img border="0" src="caras/21.gif"></a></td></tr><tr><td width="33%" align="center"></td><td width="33%" align="center"></td><td width="34%" align="center"></td></tr>
<tr><td width="33%" align="center"></td><td width="33%" align="center"></td><td width="34%" align="center"></td></tr>
<tr><td width="33%" align="center"></td><td width="33%" align="center"></td><td width="34%" align="center"></td></tr></table>
 </td><td width="11%" valign="top"> <a href="javascript:codigo('bold')">Negrita</a>
<p><a href="javascript:codigo('italics')">Cursiva</a></p><p><a href="javascript:codigo('subrayado')">Subrayado</a></p><p><a href="javascript:codigo('cita')">Cita</a></p>
<p><a href="javascript:codigo('url')">Enlace</a></p><p><a href="javascript:codigo('imagen')">Imagen</a></p>
<p><a href="javascript:codigo('imgurl')">Enlace con imagen</a> </td><td width="70%"> <textarea rows="20" name="mensaje" onKeyUp="textCounter(this.form.mensaje,this.form.remLen,21000);"  cols="89" style="background-color: #F5F5F5; font-family: Tahoma; font-size: 8pt; border: 1 solid #C0C0C0"></textarea> </td></tr><tr><td width="19%" valign="top"> </td><td width="11%"> </td><td width="70%">Tienes <input readonly type=text name=remLen size=4 maxlength=3 value="21000" style="background-color: #E8E4E8; font-family: Tahoma; font-size: 10pt; border-style: solid; border-color: #DFE3DF"> caracteres en el mensaje.</td></tr><tr>
  <td width="19%" valign="top"> </td><td width="11%"> </td>
  <td width="70%"><input type="submit" value="       E N V I A R       " style="background-color: #F5F5F5; font-family: Tahoma; font-size: 8pt; border: 1 solid #C0C0C0">&nbsp;
<input type="reset" value="       B O R R A R       " style="background-color: #F5F5F5; font-family: Tahoma; font-size: 8pt; border: 1 solid #C0C0C0"></td></tr></table></form></td></tr></table></div>
</body></html>

[jrsouto]

Hola chulosoy,
me habia bajao el codigo de un foro prefabricado para desguasarlo y ponerlo a mi gusto pero (de un gallego de este lado del gran charco a otro del lado original) ya que has tenido la amabilidad de ponernos el tuyo me pondre a destripar el tuyo para ver hasta donde lo llego.

Gracias por compartir con nosotros este codigo.

saludos

[CHuLoSoY]

De nada... y en este mismo post he de poner más cosas, como un buscador de mensajes, o la edición de mensajes, registro de usuarios... lo tengo todo hecho en otro foro, pero este era el más sencillo para postear aquí.

Saludos.