<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<%url=request("url")

Set rs = Server.CreateObject("ADODB.Recordset")
sql="update data set hit=hit+1 where id="&request("id")
rs.open sql,conn,1,2
response.redirect "" & url
%>