% 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 %>
|
WELCOME FRIENDS!
If you're not already logged in, please do so. If you're not a member, why not? Sign up, it's free, and I have a lot of things on the horizon for the friends section. Feel free to join and get to know present and future friends. Checking the "Remember Me" checkbox ensures you are kept logged in even when the browser is closed. Leaving this unchecked keeps you logged in only for the duration of the browser session.
|