Ulæst mail
Hey alle..Har lige et spørgsmål ang mit mailsystem på http://intercore.dk/fcpatrick/
Vil gerne have sådan at der ovre i min højre menu skal være et ulæst post ikon, hvis der altså er ulæst post i mailsystemet.
Ved ik hvor mange oplysninger i skal have om kodningen bagved? giver lige lidt her:
Fra mail.asp
I header
<%
Response.Buffer = True
mode = Request.QueryString("mode")
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
%>
I Body
<%
'Opbygger recordset
set rs = Conn.Execute("select * From mail where mailModtager = '" & Session("brugernavn") & "' order by mailDato desc")
%>
<br>
<table border="0">
<tr>
<td bgcolor="#D2D0D0"><font class="small"><b>Afsender</b></font></td>
<td bgcolor="#D2D0D0"><font class="small"><b>Emne</b></font></td>
<td bgcolor="#D2D0D0"><font class="small"><b>Dato</b></font></td>
<td bgcolor="#D2D0D0"></td>
</tr>
<% if rs.eof or rs.bof then %>
<tr>
<td colspan="3" align="center"><font class="small">Ingen meddelser</font></td>
</tr>
<% else
Do until rs.eof %>
<tr>
<td><font class="small"><%=rs("mailAfsender")%></font></td>
<td><font class="small"><a href="readmail.asp?mailid=<%=rs("mailid")%>"><%=rs("mailEmne")%></a></font></td>
<td><font class="small"><%=rs("mailDato")%></font></td>
<td>
<%
'Forskelligt billede alt efter om emailen er læst/ulæst
if rs("mailread") <> True then %>
<img src="mail_unread.gif">
<% else %>
<img src="mail_read.gif">
<% end if %>
</td>
</tr>
<% rs.movenext
loop
end if %>
</table>
Muligt evt at lave en connection der henter oplysning om ulæste mails ind?
