<%@ 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='menu'" rs.Open sql,objconn,2,2 n=rs("N")+1 rs("N")=n rs.Update rs.Close %> Revista AquaTIC

<% =FormatNumber(n,0,0,0,-1) %> accesos

desde julio 1997

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