<% Option Explicit Dim sql, username, rsMessages, rsMessageRead, newcount username = Request.Cookies("username") if username = "" then Response.Redirect("nologin.asp?page=inbox.asp") end if %> <% sql = "SELECT Messages.*, icon FROM Users INNER JOIN Messages ON Users.username = Messages.sentfrom WHERE sendto = '" & username & "' ORDER BY datesent DESC" Set rsMessages = Server.CreateObject("ADODB.Recordset") rsMessages.Open sql, conn, 3, 3 'Count the amount of new messages 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 %> Inbox

 

 

Welcome
Articles
Downloads
Favorites
Feedback
Friends
Interests
Multimedia
Photos

<%=username%>'s inbox - new messages: <%=newcount%>

compose a message

<%if rsMessages.EOF then%> Sorry, you have no messages <%else 'Display messages do until rsMessages.EOF%>
From : <%=rsMessages("sentfrom")%>
Sent on : <%=rsMessages("datesent")%> .gif">
Subject : <%=rsMessages("subject")%>
Message: <%=rsMessages("message")%>
&subject=<%=Server.URLEncode(rsMessages("subject"))%>">reply to this message | ">delete this message
<%rsMessages.Movenext loop end if%>

check again for new messages | compose a message


Back to home page

<% set rsMessageRead = conn.Execute("UPDATE Messages SET messageread = True WHERE sendto = '" & username & "'") rsMessages.close set rsMessages = nothing conn.close set conn = nothing %>