<% 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 %>
<% Else If Mesaj("fldOkunma") = 0 Then Set Okundu = Bag.Execute("UPDATE tblMesajKutusu SET fldOkunma=1 WHERE fldOnay=1 AND fldID=" & MsgID & " AND fldAliciID=" & ID) %> <% Set Rs = Bag.Execute("SELECT * FROM tblUyeler WHERE fldKullaniciAdi='" & Temizle(QueryFilter(Request.QueryString("a"))) & "'"): If Not Rs.EOF Then %> <% End If %> <% End If Else %> <% Set Rs = Bag.Execute("SELECT * FROM tblUyeler WHERE fldKullaniciAdi='" & Temizle(QueryFilter(Request.QueryString("a"))) & "'"): If Not Rs.EOF Then %> <% End If %> <% End If %>
MESAJ OKU

<% User = B64Decode(Request.Cookies("Seyyah")("User") & Session("User")) KAdi = B64Decode(Request.Cookies("Seyyah")("KAdi") & Session("KAdi")) ID = B64Decode(Request.Cookies("Seyyah")("UserID") & Session("UserID")) MsgID = Temizle(QueryFilter(Request.QueryString("id"))) If User = "" Or KAdi = "" Then Msg = "Mesaj kutunuzu görmek için üye girişi yapmalısınız" Else Set Rs = Bag.Execute("SELECT * FROM tblUyeler WHERE fldKullaniciAdi='" & User & "' AND fldAdiSoyadi='" & KAdi & "' AND fldID=" & ID) If Rs.EOF Then Msg = "Üyelik bilgileriniz hatalı. Lütfen çıkış yapıp tekrar giriş yaparak deneyiniz. Sorun devam ederse webmaster@seyyahamca.com adresine sorunu bildiriniz." Else Call MesajYaz() End If Set Rs = Nothing End If If Msg <> "" Then %>
MESAJ GÖNDERME FORMU

<%=Msg%>

<% End If Sub MesajYaz() Isl = Temizle(QueryFilter(Request.QueryString("act"))) If Isl = "cevapla" Then Set Mesaj = Bag.Execute("SELECT * FROM tblMesajKutusu WHERE fldOnay=1 AND fldID=" & MsgID & " AND fldAliciID=" & ID) If Mesaj.EOF Then %>


Bu Mesaj Silinmiş veya Size Ait Değildir!


<%=Temizle(QueryFilter(Request.QueryString("a")))%> hakkında istihbarat raporu:

  • Cinsiyeti: <%=Rs("fldCinsiyet")%> <% If Year(Rs("fldDogumTarihi")) > 1900 Then %>
  • Yaşı: <%=Year(Date) - Year(Rs("fldDogumTarihi"))%> <% End If %>
  • Şehir: <%=Rs("fldSehir")%>
  • Siteye Giriş Sayısı: <%=Rs("fldLoginSayisi")+1%>
  • Foruma Gönderdiği Mesaj: <%=Rs("fldForumMesaj")%>
  • Kendince: <%=Rs("fldKisaBilgi")%>

  • Kime:  " readonly>
    Başlık:  ">
    Mesaj İçeriği:

    <%=Temizle(QueryFilter(Request.QueryString("a")))%> hakkında istihbarat raporu:

  • Cinsiyeti: <%=Rs("fldCinsiyet")%>
  • Yaşı: <%=Year(Date) - Year(Rs("fldDogumTarihi"))%>
  • Şehir: <%=Rs("fldSehir")%>
  • Siteye Giriş Sayısı: <%=Rs("fldLoginSayisi")+1%>
  • Foruma Gönderdiği Mesaj: <%=Rs("fldForumMesaj")%>
  • Kendince: <%=Rs("fldKisaBilgi")%>

  • Kime:  ">
    Başlık:  
    Mesaj İçeriği:

    Geri Dön

    <% End Sub %> <%=DikeyBol%>
    ŞİFREMİ UNUTTUM

    Şifrenizi unuttuysanız hatırlatma işlemine başlamak için tıklayınız.

    <%=YatayBol%>
    R E K L A M
    <%=YatayBol%>
    ÜYE BİLGİLERİNİZİ GÜNCELLEYİN

    <%=YatayBol%>
    GÜVENLİ ÇIKIŞ

    Siteden güvenli bir şekilde çıkmak için tıklayınız.

    <%=Hr%>