Un foro para todos

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