Hosgeldin Sayin Ziyaretcimiz,

The Eminem Show Web Sitesi Eminemci Arkadaslarimizi Marshall Bruce Matters [EMINEM]
Hakkinda Bilgilendirmek Amaciyla Yapilmistir.Bilgilendirmeyi Bir Yana Birakalim,eger Kendinizi
Bir Eminemci Olarak Görüyorsaniz Bu Siteyi Ziyaret Edin.Tabiki Ben Eminemci Demekle Olmaz.

Sitemizin iceriginde Bir Eminemci Nasil Olunur Var.O bölüme bakin ve ondan sonra eger o sartlari kabul ediyorsaniz sitede dolasin.Olur mu lan öyle sey demeyin.Bal gibi olur ben bir Eminemci olmak
icin gece gündüz durmadim calistim.Ama sonrasýnda cok mutlu oldum.

Inaniyorumki sizde cok calisip bir Eminemci Olmaya aday olacaksiniz.Bu ne,belediye seçimimi de aday oluyoz demeyin.Eminemci olmak ondanda önemlidir.Insallah basarirsiniz,ben basaricaginiza
inaniyorum.

Zamaninizi Ayirip Okudugunuz Için Tesekkürler

Webmaster:By Nigel

---

  <% 'Diyarbakýr Surlarý Sayaç v1.0 'Bu sayaç Nuri Cengiz tarafýndan düzenlenmiþtir. 'Ticari olmamak kaydýyla her türlü düzenleme yapýlabilir. 'nuricengiz@hotmail.com t=date() Set baglanti = Server.CreateObject("ADODB.Connection") baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&database&"") IP = Request.ServerVariables("REMOTE_ADDR") GONDEREN = Request.ServerVariables("HTTP_REFERER") if not GONDEREN = "" then set GONDERENLER = server.createobject("adodb.recordset") SQL = "Select * from GONDERENLER WHERE GONDEREN = '"&GONDEREN&"'" GONDERENLER.open SQL,baglanti,1,3 if GONDERENLER.eof then GONDERENLER.ADDNEW GONDERENLER("SONGONDERME") = t GONDERENLER("KACDEFA") = "1" GONDERENLER("GONDEREN") = GONDEREN GONDERENLER.update else GONDERENLER("KACDEFA") = GONDERENLER("KACDEFA") + 1 GONDERENLER("SONGONDERME") = t GONDERENLER.update end if end if set GELENLER = server.createobject("adodb.recordset") SQL = "Select * from GELENLER WHERE IP = '"&IP&"'" GELENLER.open SQL,baglanti,1,3 if GELENLER.eof then GELENLER.ADDNEW GELENLER("IP") = IP GELENLER("SONGIRIS") = t GELENLER("KACDEFA") = "1" GELENLER.update else GELENLER("SONGIRIS") = t GELENLER("KACDEFA") = GELENLER("KACDEFA") + 1 GELENLER.update end if %> <% bugun="BUGUN" Set RS=server.createObject("ADODB.Recordset") sor = "select*from sayac " RS.open sor,Baglanti,1,3 rs.movefirst if rs("tarih") = date then RS.fields("ziyaret") = rs.fields("ziyaret") + 1 saybugun=rs("ziyaret") else rs("tarih")=date rs("ziyaret") = 1 saybugun=1 end if rs.getrows(1) rs("tarih") = date rs("ziyaret") = rs("ziyaret") + 1 saytoplam=rs("ziyaret") RS.update%> <% sure=1 Set kset = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM online where ip='"& ip &"'" kset.open sql, baglanti, 1, 3 Set kset = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM online where ip='"& ip &"'" kset.open sql, baglanti, 1, 3 If kset.eof Then kset.addnew kset("ip")=ip kset("tarih")=now else kset("tarih")=now end if kset.update kset.Close Set kset = Nothing Set kset = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM online" kset.open sql, baglanti, 1, 3 Do While Not kset.eof zaman=datediff("n",kset("tarih"),now) if zaman > sure then sql = "DELETE FROM online WHERE ip = '"&kset("ip")&"'" Set sil = baglanti.execute(sql) Set sil = Nothing end if kset.movenext Loop online = kset.RecordCount kset.Close Set kset = Nothing baglanti.Close Set baglanti = Nothing%> <%dim num%>

Aktif Ziyaretçi:	<%Response.Write "" & online & ""%>
Bugün Gelen Ziyaretçi:	<%Response.Write "" & saybugun & ""%>
Toplam Ziyaretçi:	<%Response.Write "" & saytoplam & ""%>
IP Adresiniz: <%Dim temp, ip temp = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If temp<>"" Then ip = temp Else ip = Request.ServerVariables("REMOTE_ADDR") End If Response.Write ip%>
Çözünürlüðünüz:
Sitemizi ziyaretiniz