<% 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


<%=username%>'s inbox - novas mensagens: <%=newcount%> compor uma mensagem
<%if rsMessages.EOF then%> Desculpe, você não tem mensagens <%else 'Display messages do until rsMessages.EOF%>
De : <%=rsMessages("sentfrom")%>
Enviar para: <%=rsMessages("datesent")%> .gif">
Assunto : <%=rsMessages("subject")%>
Mensagem: "><%=rsMessages("message")%>
">responder esta mensagem | ">apagar esta mensagem
<%rsMessages.Movenext loop end if%>

checar novamente as mensagens | compor uma mensagem


Voltar à página inicial

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