<%
On Error Resume Next
strURL= Request.QueryString
SQL1= "UPDATE Hits SET Hits=Hits+1 WHERE URL= '"& strURL &"'"
set conn = server.createobject ("adodb.connection")
conn.open strDataSourceLinks
conn.Execute (SQL1)
Response.redirect("http://"& strURL )
%>