%@ 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 articulos where COD="&request("c")
rs.Open sql,objconn
n=rs("ACCESOS")+1
%>
Revista AquaTIC
<%
rs.close
sql="select * from articulos where COD="&request("c")
rs.Open sql,objconn,2,2
rs("ACCESOS")=n
rs.Update
rs.close
set rs=nothing
objConn.Close
set objconn=nothing %>