cazzarola ci sono riuscito!!!
posto parte del codice:

Dim codice
codice = Request.Querystring("cadID")
SQL="select * from tblQCAds where cadID="&codice
Set REC=Cn.Execute(SQL)
cont=REC("HIT")
cont=cont+1
SQL="update tblQCAds set HIT="&cont&" where cadID="&codice
Cn.Execute(SQL)
Dim indirizzo
indirizzo=REC("cadlink").Value
Session("ind") = indirizzo