<%@ LANGUAGE="VBSCRIPT" %> <% set objconn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DSN=revistaaquatic.com.aquatic" objconn.Open set rs = Server.CreateObject("ADODB.Recordset") dim sql, n sql="select * from accesos where PAGINA='foros'" rs.Open sql,objconn,2,2 n=rs("N")+1 rs("N")=n rs.Update rs.Close %> Revista AquaTIC: Foros de discusión
Foros de discusión
<% sql= "SELECT count(COD) as C FROM foros" rs.Open sql,objconn aux=rs("C") rs.close %> <% =aux %> foros incluidos

Si deja en blanco el campo de búsqueda se
listarán todos los foros, pero si lo desea
puede acotar los resultados introduciendo
alguna palabra clave:

    Término a buscar:
      
  Buscar  

<% set rs=nothing objConn.Close set objconn=nothing %>