<% Function QueryFilter(Str) Str = Replace(Str, "*", "[INJ]",1,-1,1) Str = Replace(Str, "=", "[INJ]",1,-1,1) Str = Replace(Str, "<", "[INJ]",1,-1,1) Str = Replace(Str, ">", "[INJ]",1,-1,1) Str = Replace(Str, ";", "[INJ]",1,-1,1) Str = Replace(Str, "(", "[INJ]",1,-1,1) Str = Replace(Str, ")", "[INJ]",1,-1,1) Str = Replace(Str, "+", "[INJ]",1,-1,1) Str = Replace(Str, "#", "[INJ]",1,-1,1) Str = Replace(Str, "'", "[INJ]", 1, -1, 1) Str = Replace(Str, "&", "[INJ]", 1, -1, 1) Str = Replace(Str, "%", "[INJ]", 1, -1, 1) Str = Replace(Str, "?", "[INJ]", 1, -1, 1) Str = Replace(Str, "´", "[INJ]", 1, -1, 1) Str = Replace(Str, ",", "[INJ]",1,-1,1) Str = Replace(Str, "UNION", "[INJ]",1,-1,1) Str = Replace(Str, "SELECT", "[INJ]",1,-1,1) Str = Replace(Str, "WHERE", "[INJ]",1,-1,1) Str = Replace(Str, "LIKE", "[INJ]",1,-1,1) Str = Replace(Str, "FROM", "[INJ]",1,-1,1) Str = Replace(Str, "UPDATE", "[INJ]",1,-1,1) Str = Replace(Str, "INSERT", "[INJ]",1,-1,1) Str = Replace(Str, "ORDER", "[INJ]",1,-1,1) Str = Replace(Str, "GROUP", "[INJ]",1,-1,1) Str = Replace(Str, "ALTER", "[INJ]",1,-1,1) Str = Replace(Str, "ADD", "[INJ]",1,-1,1) Str = Replace(Str, "MODIFY", "[INJ]",1,-1,1) Str = Replace(Str, "RENAME", "[INJ]",1,-1,1) Str = Replace(Str, Chr(39), "[INJ]", 1, -1, 1) If InStr(1,Str,"[INJ]",1) then Response.Redirect "Default.asp" end if QueryFilter = Str End Function %> <% 'On Error Resume Next ID = Temizle(QueryFilter(Request.QueryString("id"))) UBilgi = False Function Tk(m) m = Replace(m,"ı","i") m = Replace(m,"ü","u") m = Replace(m,"ş","s") m = Replace(m,"ç","c") m = Replace(m,"ö","o") m = Replace(m,"ğ","g") m = Replace(m,"İ","i") m = Replace(m,"Ü","u") m = Replace(m,"Ş","s") m = Replace(m,"Ç","c") m = Replace(m,"Ö","o") m = Replace(m,"Ğ","g") m = Replace(m," ","") Tk=Trim(m) End Function %>
<% If UBilgi Then %> <% End If %>
ÜLKE YAZILARI
<% If ID = "" Then %> <% KayitSayisi = 7 UlkeAdi = Temizle(QueryFilter(Request.QueryString("ulke"))) If QueryFilter(Request.QueryString("s")) <> "" Then Sayfa = CInt(QueryFilter(Request.QueryString("s"))) Else Sayfa = 1 End If If UlkeAdi = "" Then Set Ulke = Bag.Execute("SELECT * FROM tblUlkeYazilari WHERE fldDurum=1 ORDER BY fldID DESC LIMIT " & (KayitSayisi*Sayfa)-(KayitSayisi) & "," & KayitSayisi) Set SQLTop = Bag.Execute("SELECT COUNT(*) FROM tblUlkeYazilari Where fldDurum=1") TopKayit = SQLTop(0) Else Set Ulke = Bag.Execute("SELECT * FROM tblUlkeYazilari WHERE fldDurum=1 AND fldKategori='" & B64Decode(UlkeAdi) & "' ORDER BY fldID DESC LIMIT " & (KayitSayisi*Sayfa)-(KayitSayisi) & "," & KayitSayisi) Set SQLTop = Bag.Execute("SELECT COUNT(*) FROM tblUlkeYazilari Where fldDurum=1 AND fldKategori='" & B64Decode(UlkeAdi) & "'") TopKayit = SQLTop(0) End If j=0 Do While Not Ulke.EOF If j Mod 2 = 0 Then Bg = "#FFFFFF" Else Bg = "#EEEEEE" End If Set EYorum = Bag.Execute("SELECT COUNT(*) FROM tblYorumlar WHERE fldBolum='Ulkeler' AND fldYaziID=" & Ulke("fldID")) On Error Resume Next Set Yazan = Bag.Execute("SELECT fldAdiSoyadi, fldKullaniciAdi FROM tblUyeler WHERE fldID=" & Ulke("fldSeyyahID")) %> <% On Error GoTo 0 j=j+1: Ulke.MoveNext Loop %>
Başlık İstatistik
" style="color:#FF0000">- <%=IlkHarfBuyuk(Ulke("fldBaslik"))%> - " style="color:#4B4B4B" title="<%=Ulke("fldKategori")%> ülkesine ait tüm yazıları görmek için tıklayınız."><%=Ulke("fldKategori")%>

<%=SatirBasi & Left(Ulke("fldYazi"),200)%>... " id="Menu">devam >>

Yazan: <%=IlkHarfBuyuk(Yazan(0))%> - Tarih: <%=Ulke("fldTarih")%> - Puan: <%=Ulke("fldPuan")%> - Yorumlar: &yorum=1#Yorumlar" id="Text">(<%=EYorum(0)%>)

Okunma:
<%=Ulke("fldHit")%>

<% If EYorum(0) <> "0" Then %> Yorum:
&yorum=1#Yorumlar" id="Text"><%=EYorum(0)%> <% Else %> Yorum:
<%=EYorum(0)%> <% End If %>

<% If CInt(TopKayit) > CInt(KayitSayisi) Then SayfaSayisi = CInt(TopKayit) / CInt(KayitSayisi) If InStr(1,SayfaSayisi,",",1) > 0 Then SayfaSayisi = CInt(Left(SayfaSayisi,InStr(1,SayfaSayisi,",",1))) + 1 If SayfaSayisi > 1 Then Response.Write "Arşiv: " TopKayit = SayfaSayisi TopSayfa = 10 Onceki = Sayfa - (TopSayfa/2) If Onceki <= 0 Then Onceki = 1 Sonraki = Sayfa + (TopSayfa/2) If Sonraki < TopSayfa Then Sonraki = TopSayfa If Sonraki > TopKayit Then Sonraki = TopKayit If Onceki <> 1 Then Response.Write "<< İlk | " For i=Onceki To Sayfa-1 Response.Write "" & i & " - " Next Response.write "[" & Sayfa & "] " If Sayfa <> TopKayit Then Response.Write "- " For i=Sayfa+1 To Sonraki Response.Write "" & i & " " If i <> Sonraki Then Response.Write "- " Next If Sonraki <> TopKayit Then Response.Write "| Son (" & TopKayit & ") >> " End If End If %>
<% If UlkeAdi <> "" Then %>

Tüm Ülke Yazıları İçin Tıklayınız!
<% End If %> <% Else Set Yazi = Bag.Execute("SELECT * FROM tblUlkeYazilari WHERE fldDurum=1 AND fldID=" & ID) If Not Yazi.EOF Then Set EYorum = Bag.Execute("SELECT COUNT(*) FROM tblYorumlar WHERE fldBolum='Ulkeler' AND fldYaziID=" & Yazi("fldID")) 'Yazının hitini arttır Set HitArtir = Bag.Execute("UPDATE tblUlkeYazilari SET fldHit=fldHit+1 WHERE fldID=" & ID) On Error Resume Next Set Yazan = Bag.Execute("SELECT fldAdiSoyadi, fldKullaniciAdi FROM tblUyeler WHERE fldID=" & Yazi("fldSeyyahID")) %>
<%=IlkHarfBuyuk(Yazi("fldBaslik"))%> - <%=Yazi("fldKategori")%>
<% If r()=True Then %>
<% End If %>
<%=SatirBasi & Temizle(Yazi("fldYazi"))%>

Bookmark and Share

Yazan: <%=IlkHarfBuyuk(Yazan(0))%> - Tarih: <%=Yazi("fldTarih")%> - Puan: <% If Yazi("fldPuan") <> 0 Then Response.Write Yazi("fldPuan") & " (%" & Yazi("fldPuan")/Yazi("fldOylayan")*10 & ")" Else Response.Write "0" End If %> - Yorumlar: " id="Text">(<%=EYorum(0)%>) - Okunma: <%=Yazi("fldHit")%><% If Request.Cookies("UlkeYazilari")(""&Yazi("fldID")&"") = "" Then %> - Oy Ver: <% End If %>

BU YAZIYA YAPILAN YORUMLAR

<% Set EYorum = Bag.Execute("SELECT * FROM tblYorumlar WHERE fldBolum='Ulkeler' AND fldOnay=1 AND fldYaziID=" & ID) If EYorum.EOF Then %>
BU YAZIYA HENÜZ YORUM YAPILMAMIŞ, İLK YORUMU YAPAN SİZ OLUN!

<% Else Do While Not EYorum.EOF %>

<%=EYorum("fldTarih")%> tarihinde <%=EYorum("fldYazan")%> yorumlamış... .gif" style="cursor:pointer" onclick="document.getElementById('yorum_<%=EYorum("fldID")%>').style.display = document.getElementById('yorum_<%=EYorum("fldID")%>').style.display=='none' ? 'block' : 'none'; this.src = document.getElementById('yorum_<%=EYorum("fldID")%>').style.display=='none' ? 'images/arti.gif' : 'images/eksi.gif'">
" style="display:<% If QueryFilter(Request.QueryString("yorum")) = 1 Then Response.Write "block" Else Response.Write "none" End If %>; padding:4px;border:1px solid #AAAAAA"><%=Temizle(EYorum("fldYorum"))%>
 
<% EYorum.MoveNext Loop %>

BU YAZIYA SİZ DE YORUM YAPIN!

<% End If %>

<% Else Response.Write "

Yazı Bulunamadı

Geri Dön

" End If End If %>
<%=DikeyBol%>
<% If IsObject(Yazi) Then If Not Yazi.EOF Then Set UlkeBilgileri = Bag.Execute("SELECT * FROM tblUlkeBilgileri WHERE fldUlkeAdiKisa='" & Yazi("fldKategori") & "'") If Not UlkeBilgileri.EOF Then UBilgi = True %>
ÜLKE BİLGİLERİ
&w=200" style="border:1px solid #000000">
<%=UlkeBilgileri("fldUlkeAdiUzun")%>

Yüzölçümü:

  • <%=UlkeBilgileri("fldYuzolcumu")%>

  • Nüfusu:
  • <%=UlkeBilgileri("fldNufusu")%> (Temmuz 2005 tahmini)

  • Başkenti:
  • <%=UlkeBilgileri("fldBaskenti")%>

  • Ülke Sınırları:
  • <%=UlkeBilgileri("fldSinirlari")%>

  • Sahil Uzunluğu:
  • <%=UlkeBilgileri("fldSahilUzunlugu")%>

  • İklimi:
  • <%=UlkeBilgileri("fldIklimi")%>

  • Dili:
  • <%=UlkeBilgileri("fldDili")%>

  • Bağımsızlık Günü:
  • <%=UlkeBilgileri("fldBagimsizlikGunu")%>

  • Para Birimi:
  • <%=UlkeBilgileri("fldParaBirimi")%>

  • <% Set Mars = Bag.Execute("SELECT * FROM tblMilliMarslar WHERE fldUlke='" & UlkeBilgileri("fldUlkeAdiKisa") & "'") If Not Mars.EOF Then %> Milli Marşı:
  • " id="Download"><%=IlkHarfBuyuk(Mars("fldUlke"))%> ülkesinin milli marşı

  • <% End If %>

    ÜLKELERE AİT YAZILAR
    <% Set Ulke = Bag.Execute("SELECT DISTINCT(fldKategori) FROM tblUlkeYazilari WHERE fldDurum=1 ORDER BY fldKategori ASC") If Not Ulke.EOF Then Do While Not Ulke.EOF Set YaziSayisi = Bag.Execute("SELECT COUNT(fldID) FROM tblUlkeYazilari WHERE fldKategori='" & Ulke("fldKategori") & "'") Response.Write "
  • " & IlkHarfBuyuk(Ulke("fldKategori")) & " (" & YaziSayisi(0) & ")
    " Ulke.MoveNext Loop End If %>
  • <% Else End If End If End If Sub Deneme() UBilgi = False %>
    ÜLKELERE AİT TOPLAM YAZILAR
    <% SQL = "SELECT fldKategori, COUNT(fldKategori) AS toplam FROM tblUlkeYazilari GROUP BY fldKategori ORDER BY toplam DESC" Set Rs = Bag.Execute(SQL) j=1 Do While Not RS.EOF %> <% j=j+1: RS.MoveNext Loop %>
    <%=j%>-) .gif" align="absmiddle"> " id="Download" style="font-weight:normal"><%=IlkHarfBuyuk(Rs("fldKategori"))%> (<%=Rs("Toplam")%>)

    <% If IsObject(Yazi) Then If Not Yazi.EOF Then Set UFoto = Bag.Execute("SELECT * FROM tblFotograflar WHERE fldTrKategoriAdi='" & Yazi("fldKategori") & "' ORDER BY RAND() LIMIT 4") If Not UFoto.EOF Then %>
    <%=UCaseEx(Yazi("fldKategori"))%> FOTOĞRAFLARI
    <% Do While Not UFoto.EOF %> ">&w=120" style="border:1px solid #000000" border="0"> <% UFoto.MoveNext: Loop %> " id="Text">Tüm <%=Yazi("fldKategori")%> fotoğrafları için tıklayınız...
    <%=DikeyBol%> <% Else %>
    D O W N L O A D


    <% End If End If End If %>

    <% End Sub If Not IsObject(UlkeBilgileri) Then Deneme ElseIf UlkeBilgileri.EOF Then Deneme End If %>

    <%=Hr%>
    EN ÇOK OKUNAN ÜLKE YAZILARI
    <% Set EnCokOkunan = Bag.Execute("SELECT * FROM tblUlkeYazilari WHERE fldDurum=1 ORDER BY fldHit DESC LIMIT 10") j=1 Do While Not EnCokOkunan.EOF %> <%=j%>-) " style="color:#FF6600"><%=IlkHarfBuyuk(EnCokOkunan("fldBaslik"))%> (<%=EnCokOkunan("fldHit")%> Kere)
    <% j=j+1: EnCokOkunan.MoveNext Loop %>
    <%=DikeyBol%>
    <% Set UFoto = Bag.Execute("SELECT * FROM tblFotograflar WHERE fldTrKategoriAdi='" & Yazi("fldKategori") & "' ORDER BY RAND() LIMIT 4") If Not UFoto.EOF Then %>
    <%=UCaseEx(Yazi("fldKategori"))%> FOTOĞRAFLARI
    <% Do While Not UFoto.EOF %> ">&w=120" style="border:1px solid #000000" border="0"> <% UFoto.MoveNext: Loop %>
    " id="Text">Tüm <%=Yazi("fldKategori")%> fotoğrafları için tıklayınız...
    <%=DikeyBol%> <% Else %>
    D O W N L O A D


    <% End If %>
    EN FAZLA PUAN ALAN ÜLKE YAZILARI
    <% Set EnCokPuan = Bag.Execute("SELECT * FROM tblUlkeYazilari WHERE fldDurum=1 ORDER BY fldPuan DESC LIMIT 10") j=1 Do While Not EnCokPuan.EOF %> <%=j%>-) " style="color:#FF6600"><%=IlkHarfBuyuk(EnCokPuan("fldBaslik"))%> (<%=EnCokPuan("fldPuan")%>)
    <% j=j+1: EnCokPuan.MoveNext Loop %>
    <%=Hr%>