%
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
%>
..<<www.mileyhi.com KARŞIGEÇİT KÖYÜ BAYBURT MİLEYHİ >>..