<%
Option Explicit
Dim sql, username, rsMessages, rsAdminMessages, rsMessageRead, newcount, rsUser, rsMessagesBrief
username = Session("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
sql = "SELECT * FROM messages WHERE sentfrom = 'site admin' AND sendto = '" & username & "' ORDER BY datesent DESC"
Set rsAdminMessages = Server.CreateObject("ADODB.Recordset")
rsAdminMessages.Open sql, conn, 3, 3
if not rsAdminMessages.EOF then
rsAdminMessages.Movefirst
do until rsAdminMessages.EOF
if rsAdminMessages("messageread") = False then
newcount = newcount + 1
end if
rsAdminMessages.Movenext
loop
rsAdminMessages.Movefirst
end if
%>
<%
sql = "SELECT icon FROM Users WHERE username = '" & username & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3
%>
Inbox
<%'If they're not logged in, then display a login box
if username = "" then%>
| Sign In <%=Request.Cookies("remember")%> |
<%'If they are, show a mini profile box plus a sign out link
else%>
| Welcome Back! |
 .gif" width=50 height=50 align="right">
Welcome <%=username%>.
View/Edit Profile
My Inbox (<%=newcount%> new)
View Userlist
Sign Out
|
<%
rsUser.close
set rsUser = nothing
end if
%>
|
<%=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
'Display messages from Admin
if not rsAdminMessages.EOF then
do until rsAdminMessages.EOF%>
| From : <%=rsAdminMessages("sentfrom")%>
|
| Sent on : <%=rsAdminMessages("datesent")%> |
|
| Subject : <%=rsAdminMessages("subject")%> |
| Message: <%=rsAdminMessages("message")%> |
">delete this message
<%rsAdminMessages.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
rsAdminMessages.close
set rsAdminMessages = nothing
conn.close
set conn = nothing
%>