<% ' Tasarým & Programlama KRASiT | www.pcnetarsivi.tk '********************************************************************************************************************** ipno = Request.ServerVariables("REMOTE_ADDR") id = Request("id") '********************************************************************************************************************** SQL = "SELECT * FROM veriler WHERE id="&id Set gitRS = Server.CreateObject("ADODB.Recordset") gitRS.Open SQL, bag, 1, 3 '********************************************************************************************************************** '********************************************************************************************************************** If ipno=gitRS("clickIP") Then Response.Redirect gitRS("url") Else hit = gitRS("hit") gitRS("hit") = hit + 1 gitRS("clickIP")=ipno gitRS.Update Response.Redirect gitRS("url") End If '********************************************************************************************************************** gitRS.Close Set gitRS = Nothing bag.Close Set bag = Nothing '********************************************************************************************************************** %>