%@ 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 %>
|
<% set rs=nothing objConn.Close set objconn=nothing %>