% 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 %>
| 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İ | |||||||||||||||||||
|
|||||||||||||||||||
| BAYBURT LİNK | |||||||||||||||||||
|
|||||||||||||||||||
KARSIGEÇIT KÖYÜ VIDEOLARI
|
|||||||||||||||||||
| Copyright 2007 Muhammet BAYRAKTAR E-posta mileyhi@gmail.com / karsigecit@hotmail.com BASA DÖN |
|||||||||||||||||||