<% Option Explicit Dim sql,username,rsUser,rsMessages,newcount username = Request.Cookies("username") 'If the username cookie is set, they must have logged in, so get their details from the database if username <> "" then %> <% sql = "SELECT icon FROM Users WHERE username = '" & username & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, conn, 3, 3 sql = "SELECT messageread FROM messages WHERE sendto = '" & username & "'" Set rsMessages = Server.CreateObject("ADODB.Recordset") rsMessages.Open sql, conn, 3, 3 newcount = 0 if not rsMessages.EOF then rsMessages.Movefirst do until rsMessages.EOF if rsMessages("messageread") = False then newcount = newcount + 1 end if rsMessages.Movenext loop rsMessages.Movefirst end if end if %>

AYRILIK VE MUSiBET MADEMKi ALLAHÜ TEALANIN iRADE VE TAKDiRiDiR. O HALDE O'NDAN GELEN HER SEYE RAZI OLMAK LAZIMDIR.
ANA SAYFA || BAYBURT || KÖYÜMÜZ || RESİMLER || KÖYLÜLER || ULAŞIM~İKLİM || EKONOMİ~TARIM || İLETİŞİM || LİNKLER || BAYBURT KÖYLERİ
Ziyaretci Defteri Mesaj Yaz Mesajları Oku Rahmetli Olanlarımız Çok Eski Resimler Almanyadan
	Copyright 2007 Muhammet BAYRAKTAR   E-posta mileyhi@gmail.com / karsigecit@hotmail.com BASA DÖN...........................................................................BAŞA DÖN....................................................................BASA DÖN