<%
Option Explicit
Dim sql, username, rsMessages, rsMessageRead, newcount
username = Request.Cookies("username")
if username = "" then
Response.Redirect("nologin.asp?page=inbox.asp")
end if
%>
<!--#include file="conn.asp"-->
<%
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
%>
<html>
<head>
<title>Inbox</title>
<!--mstheme--><link rel="stylesheet" type="text/css" href="../_themes/zorro2/zorr1110.css"><meta name="Microsoft Theme" content="zorro2 1110, default">
<meta name="Microsoft Border" content="tl, default">
</head>
<body><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="650">
<tr>
<td width="863" valign="middle">
<p align="left"><img border="0" src="../_borders/name_ring_s1.gif" align="left" width="112" height="113"><img border="0" src="../_borders/site_t.gif" align="left" width="550" height="113"></p>
<p align="left"> </p>
<p align="left"> </p>
<p align="left"><img border="0" src="../_borders/spacer.gif" width="40" height="40"></p>
</td>
</tr>
</table>
</div>
</td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td valign="top" width="1%">
<div align="left">
<table border="0" width="125" cellspacing="0" cellpadding="0" background="../_borders/bar_m.gif">
<tr>
<td width="100%"><img border="0" src="../_borders/bart.gif" width="125" height="45">
<p><script language="JavaScript"><!--
MSFPhover =
(((navigator.appName == "Netscape") &&
(parseInt(navigator.appVersion) >= 3 )) ||
((navigator.appName == "Microsoft Internet Explorer") &&
(parseInt(navigator.appVersion) >= 4 )));
function MSFPpreload(img)
{
var a=new Image(); a.src=img; return a;
}
// --></script><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav1n=MSFPpreload("../_derived/hindex.htm_cmp_zorro2110_vbtn.gif"); MSFPnav1h=MSFPpreload("../_derived/hindex.htm_cmp_zorro2110_vbtn_a.gif"); }
// --></script><a href="../hindex.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav1'].src=MSFPnav1h.src" onmouseout="if(MSFPhover) document['MSFPnav1'].src=MSFPnav1n.src"><img src="../_derived/hindex.htm_cmp_zorro2110_vbtn.gif" width="125" height="25" border="0" alt="Welcome" name="MSFPnav1"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav2n=MSFPpreload("../news/_derived/citizen.htm_cmp_zorro2110_vbtn.gif"); MSFPnav2h=MSFPpreload("../news/_derived/citizen.htm_cmp_zorro2110_vbtn_a.gif"); }
// --></script><a href="../news/citizen.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav2'].src=MSFPnav2h.src" onmouseout="if(MSFPhover) document['MSFPnav2'].src=MSFPnav2n.src"><img src="../news/_derived/citizen.htm_cmp_zorro2110_vbtn.gif" width="125" height="25" border="0" alt="Articles" name="MSFPnav2"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav3n=MSFPpreload("../_derived/downloads.htm_cmp_zorro2110_vbtn.gif"); MSFPnav3h=MSFPpreload("../_derived/downloads.htm_cmp_zorro2110_vbtn_a.gif"); }
// --></script><a href="../downloads.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav3'].src=MSFPnav3h.src" onmouseout="if(MSFPhover) document['MSFPnav3'].src=MSFPnav3n.src"><img src="../_derived/downloads.htm_cmp_zorro2110_vbtn.gif" width="125" height="25" border="0" alt="Downloads" name="MSFPnav3"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav4n=MSFPpreload("../_derived/favorite.htm_cmp_zorro2110_vbtn.gif"); MSFPnav4h=MSFPpreload("../_derived/favorite.htm_cmp_zorro2110_vbtn_a.gif"); }
// --></script><a href="../favorite.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav4'].src=MSFPnav4h.src" onmouseout="if(MSFPhover) document['MSFPnav4'].src=MSFPnav4n.src"><img src="../_derived/favorite.htm_cmp_zorro2110_vbtn.gif" width="125" height="25" border="0" alt="Favorites" name="MSFPnav4"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav5n=MSFPpreload("../_derived/feedback.htm_cmp_zorro2110_vbtn.gif"); MSFPnav5h=MSFPpreload("../_derived/feedback.htm_cmp_zorro2110_vbtn_a.gif"); }
// --></script><a href="../feedback.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav5'].src=MSFPnav5h.src" onmouseout="if(MSFPhover) document['MSFPnav5'].src=MSFPnav5n.src"><img src="../_derived/feedback.htm_cmp_zorro2110_vbtn.gif" width="125" height="25" border="0" alt="Feedback" name="MSFPnav5"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav6n=MSFPpreload("_derived/index.asp_cmp_zorro2110_vbtn.gif"); MSFPnav6h=MSFPpreload("_derived/index.asp_cmp_zorro2110_vbtn_a.gif"); }
// --></script><a href="index.asp" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav6'].src=MSFPnav6h.src" onmouseout="if(MSFPhover) document['MSFPnav6'].src=MSFPnav6n.src"><img src="_derived/index.asp_cmp_zorro2110_vbtn.gif" width="125" height="25" border="0" alt="Friends" name="MSFPnav6"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav7n=MSFPpreload("../_derived/interest.htm_cmp_zorro2110_vbtn.gif"); MSFPnav7h=MSFPpreload("../_derived/interest.htm_cmp_zorro2110_vbtn_a.gif"); }
// --></script><a href="../interest.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav7'].src=MSFPnav7h.src" onmouseout="if(MSFPhover) document['MSFPnav7'].src=MSFPnav7n.src"><img src="../_derived/interest.htm_cmp_zorro2110_vbtn.gif" width="125" height="25" border="0" alt="Interests" name="MSFPnav7"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav8n=MSFPpreload("../_derived/multimedia.htm_cmp_zorro2110_vbtn.gif"); MSFPnav8h=MSFPpreload("../_derived/multimedia.htm_cmp_zorro2110_vbtn_a.gif"); }
// --></script><a href="../multimedia.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav8'].src=MSFPnav8h.src" onmouseout="if(MSFPhover) document['MSFPnav8'].src=MSFPnav8n.src"><img src="../_derived/multimedia.htm_cmp_zorro2110_vbtn.gif" width="125" height="25" border="0" alt="Multimedia" name="MSFPnav8"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav9n=MSFPpreload("../_derived/photo.htm_cmp_zorro2110_vbtn.gif"); MSFPnav9h=MSFPpreload("../_derived/photo.htm_cmp_zorro2110_vbtn_a.gif"); }
// --></script><a href="../photo.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav9'].src=MSFPnav9h.src" onmouseout="if(MSFPhover) document['MSFPnav9'].src=MSFPnav9n.src"><img src="../_derived/photo.htm_cmp_zorro2110_vbtn.gif" width="125" height="25" border="0" alt="Photos" name="MSFPnav9"></a>
</p>
<p><img border="0" src="../_borders/bar_b.gif" width="125" height="55"></td>
</tr>
<tr>
<td width="100%"><img border="0" src="../_borders/Douglass5a.jpg" width="125" height="182"></td>
</tr>
</table>
</div>
</td><td valign="top" width="24"></td><!--msnavigation--><td valign="top">
<font face="arial,helvetica" size=2>
<table width="600" cellspacing=0 cellpadding=3 border=0>
<tr bgcolor="#000000">
<th align="left">
<p align="center"><font face="arial,helvetica" size=2 color="#FFFFFF">
<%=username%>'s inbox - new messages: <%=newcount%>
</font></p>
</th>
<th align="right">
<p align="center"><font face="arial,helvetica" size=2 color="#FFFFFF">
<a href="messagecompose.asp" style="color: #FFFFFF;">compose a message</a>
</font></p>
</th>
</tr>
<tr>
<td align="center" colspan=2>
<%if rsMessages.EOF then%>
<font face="arial,helvetica" size=2><b>Sorry, you have no messages</b></font>
<%else
'Display messages
do until rsMessages.EOF%>
<table width="90%" cellspacing=0 cellpadding=2 align="center" border=0 bgcolor="#FFFFFF">
<tr>
<td><font face="arial,helvetica" size=2 color="#000000"><b>From :</b> <%=rsMessages("sentfrom")%>
</font></td>
</tr>
<tr>
<td><font face="arial,helvetica" size=2 color="#000000"><b>Sent on : <%=rsMessages("datesent")%></b></font></td>
<td align="right" valign="top" width=125 rowspan=3>
<font color="#000000">
<img src="icons/<%=rsMessages("icon")%>.gif"><br>
</font>
</td>
</tr>
<tr>
<td><font face="arial,helvetica" size=2 color="#000000"><b>Subject :</b> <%=rsMessages("subject")%></font></td>
</tr>
<tr>
<td><font face="arial,helvetica" size=2 color="#000000"><b>Message:</b> <%=rsMessages("message")%></font></td>
</tr>
</table>
<font face="arial,helvetica" size=1><b><a href="messagecompose.asp?senduser=<%=rsMessages("sentfrom")%>&subject=<%=Server.URLEncode(rsMessages("subject"))%>">reply to this message</a> | <a href="messagedelete.asp?messageid=<%=rsMessages("id")%>">delete this message</a></b></font>
<hr color="#000000">
<%rsMessages.Movenext
loop
end if%>
</td>
</tr>
</table>
<p align="center"><b><a href="inbox.asp">check again for new messages</a> | <a href="messagecompose.asp">compose a message</a></b></p>
<br>
<p><a href="index.asp">Back to home page</a></p>
</font>
<!--msnavigation--></td></tr><!--msnavigation--></table></body>
</html>
<%
set rsMessageRead = conn.Execute("UPDATE Messages SET messageread = True WHERE sendto = '" & username & "'")
rsMessages.close
set rsMessages = nothing
conn.close
set conn = nothing
%>