<%
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
%>
<%=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!
<%
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 %>
<%=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")%>
<% End If %>
<%
End If
Else
%>
<% Set Rs = Bag.Execute("SELECT * FROM tblUyeler WHERE fldKullaniciAdi='" & Temizle(QueryFilter(Request.QueryString("a"))) & "'"): If Not Rs.EOF Then %>
<%=Temizle(QueryFilter(Request.QueryString("a")))%> hakkında istihbarat raporu: