<% db1 = "web" %><% if code = "" then code = Request.QueryString("code") if code = "" then Response.End() call sqlinj(code) sqlddb = "Select * from url_download where code = '" & code & "' " Set ddb = Server.CreateObject("ADODB.Recordset") ddb.Open sqlddb, sbsv5, 1, 3 if ddb.recordcount > 0 then ddb("sayac") = ddb("sayac") + 1 hedef = ddb("link") id = ddb("id") ddb.update end if ddb.close set ddb = Nothing sqlddb = "Select * from url_download_sayac" Set ddb = Server.CreateObject("ADODB.Recordset") ddb.Open sqlddb, sbsv5, 1, 3 ddb.addnew ddb("tarih") = now() ddb("ip") = Request.ServerVariables("REMOTE_ADDR") ddb("udid") = id ddb.update ddb.close set ddb = Nothing %>