<%@LANGUAGE="VBSCRIPT"%>
<%OPTION EXPLICIT%>
<!-- #INCLUDE File = "../common/dsn.asp" -->
<%
if request.QueryString("link_id") = "" or request.QueryString("URL") = "" then response.end
DIM conn
set conn = server.CreateObject("adodb.connection")
conn.open ourDSN
conn.execute("update links1 set viewed = viewed + 1 where link_id = "&request.QueryString("link_id"))
conn.close
set conn = nothing
response.Redirect(request.QueryString("URL"))
%>