Conta click con database

Questo script genera un semplice contatore di click che verranno salvati in un file database:

<% 
database = "click.mdb" 
strConn = "DRIVER={Microsoft Access Driver (*.mdb)};" & 
"DBQ=" & server.mappath(database) 
SQL = "INSERT INTO click (count) values(1) WHERE ID = " 
& request.querystring("codice") 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open SQL, strConn 
response.redirect ( Request.Querystring("url") ) 
%>