<% dim ip_no,site_ad,uzunluk,kisa,bul,sorgu ip_no = Request.ServerVariables("REMOTE_ADDR") site_ad = Request.ServerVariables("HTTP_REFERER") if site_ad="" or site_ad="http://www.serbil.com" or site_ad="http://serbil.com" then site_ad="Anasayfa" else uzunluk=len(site_ad) kisa=mid(site_ad,8,uzunluk) bul=instr(kisa,"/") if bul<>"0" then site_ad=mid(site_ad,1,bul+6) end if end if if session("marmaraziyaret")<>"yes" then Sorgu="Select * from son_site where site_name like '"&site_ad&"'" Rs.Open Sorgu, Baglanti, 1, 3 if Rs.eof then Rs.AddNew Rs("site_name")=site_ad Rs("hit")="1" Rs("gun")=date Rs.Update Rs.close else Rs("hit")=Rs("hit")+1 Rs("gun")=date Rs.Update Rs.close end if Sorgu="Select * from son_ip where ip_number like '"&ip_no&"'" Rs.Open Sorgu, Baglanti, 1, 3 if Rs.eof then Rs.AddNew Rs("ip_number")=ip_no Rs("hit")="1" Rs("vakit")=date Rs.Update Rs.close else Rs("hit")=Rs("hit")+1 Rs("vakit")=date Rs.Update Rs.close end if Sorgu="Select * from say_site where (gun like '"&date&"' and site_name like '"&site_ad&"')" Rs.Open Sorgu, Baglanti, 1, 3 if Rs.eof then Rs.AddNew Rs("site_name")=site_ad Rs("hit")="1" Rs("gun")=date Rs.Update Rs.close else Rs("hit")=Rs("hit")+1 Rs.Update Rs.close end if Sorgu="Select * from say_ip where (ip_number like '"&ip_no&"' and vakit like '"&date&"')" Rs.Open Sorgu, Baglanti, 1, 3 if Rs.eof then Rs.AddNew Rs("ip_number")=ip_no Rs("hit")="1" Rs("vakit")=date Rs.Update Rs.close Sorgu="Select * from say_hit where gun like '"&date&"'" Rs.Open Sorgu, Baglanti, 1, 3 if Rs.eof then Rs.AddNew Rs("gun")=date Rs("tekil")="1" Rs("cogul")="1" Rs.Update Rs.close else Rs("tekil")=Rs("tekil")+1 Rs("cogul")=Rs("cogul")+1 Rs.Update Rs.close end if else Rs("hit")=Rs("hit")+1 Rs("vakit")=date Rs.Update Rs.close Sorgu="Select * from say_hit where gun like '"&date&"'" Rs.Open Sorgu, Baglanti, 1, 3 Rs("cogul")=Rs("cogul")+1 Rs.Update Rs.close end if end if Session("marmaraziyaret")="yes" %>

	--   --   --   ---   --   --   --   --   ---   --  ---------------------------GİRİŞ  ------------------------MAIN MENU ©2004 - 2006  SAKARYA TEKSTİL Sateks Brode ve Boyama San. Tic. Ltd. Şti. Tel: (090) 0264 517 58 62 | E Mail: sateks@sakaryatekstil.com | Geyve Sakarya