<% 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 ) %>