<%@LANGUAGE=VBScript CODEPAGE=1254%> <% tiklama=0 sql="SELECT baglanti.baglanti_id, baglanti.baglanti_url, baglanti.tik FROM baglanti WHERE (((baglanti.baglanti_id)="&NSU(Request("bag"))&"));" Set oRs=oConn.Execute(sql) tiklama=oRs(2)+1 sql="UPDATE baglanti SET baglanti.tik = "&tiklama&" WHERE (((baglanti.baglanti_id)="&NSU(Request("bag"))&"));" Set oRs2=oConn.Execute(sql) Response.Redirect "http://"&oRs(1) %>