<%@ 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 &t=<%=request("t")%>" NAME=cabecera NORESIZE MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=no> <% if request("t")="p" then %> " NAME=articulo NORESIZE MARGINHEIGHT=2 MARGINWIDTH=10 SCROLLING=auto> <% else %> " NAME=articulo NORESIZE MARGINHEIGHT=2 MARGINWIDTH=10 SCROLLING=auto> <% end if %> <% 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 %>