Session = Brugernick
Hey nogen der gider at skrive hele koden om så den finder session("brugernick") istedet for session("brugernavn")!!!// Håber det er til at forstå :D
<% if mode = "inbox" then
'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("iframe.asp?vis=login")
end if
'Opbygger recordset
set rs = Conn.Execute("select * From mail where mailModtager = '" & Session("brugernavn") & "' order by mailDato desc")
%>
Klik på emnet for at læse en email:<br><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="iframe.asp?vis=read_mail&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="img/mail_unread.gif">
<% else %>
<img src="img/mail_read.gif">
<% end if %>
</td>
</tr>
<% rs.movenext
loop
end if %>
</table>
<br>
<br>
<%
rs.close
end if %>
<% if mode = "read_mail" then
'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("iframe.asp?vis=login")
end if
'Hiver info om emailen frem:
Set rs = Conn.Execute("select * from mail where mailid = " & Request.QueryString("mailid"))
Conn.Execute("update mail set mailread = True")
'Tjecker om emailen tilhører brugeren der vil læse den
if rs("mailmodtager") <> Session("brugernavn") then
Response.Redirect("inbox.asp")
end if
%>
<table border="1" bordercolor="#000000">
<tr>
<td bordercolor="#ffffff"><b><font class="small">Afsender</b></font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("mailAfsender")%></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><b><font class="small">Emne</b></font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("mailEmne")%></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><b><font class="small">Dato</b></font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("mailDato")%></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><b><font class="small">Besked</b></font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("mailBesked")%></font></td>
</tr>
</table>
<br>
l <a href="iframe.asp?vis=inbox">Indbakke</a>
l <a href="iframe.asp?vis=delete_email&mailid=<%=rs("mailid")%>">Slet</a>
l
<% end if %>
<% if mode = "delete_email" then
'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("iframe.asp?vis=login")
end if
'Sletter email
Set rs = Conn.Execute("select * from mail where mailid = " & Request.QueryString("mailid"))
'Tjecker om mailen tilhører brugeren
if rs("mailModtager") = Session("brugernavn") then
conn.Execute("delete from mail where mailid = " & Request.QueryString("mailid") & "")
end if
Response.Redirect("iframe.asp?vis=inbox")
end if %>
<% if mode = "ny_email" then
'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("iframe.asp?vis=login")
end if
'Hvis brugeren har valgt og sende en email:
if Request("modtager") <> "" AND Request("emne") <> "" AND Request("besked") <> "" then
'Lægger værdierne ned i variabler
modtager = Request.Form("modtager")
emne = Server.HTMLEncode(Request.Form("emne"))
besked = Server.HTMLEncode(Request.Form("besked"))
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from mail"
rs.open sql, conn, 1, 3
rs.addnew
rs("mailmodtager") = modtager
rs("mailafsender") = Session("brugernick")
rs("mailEmne") = emne
rs("mailbesked") = besked
rs("mailDato") = Now()
rs.update
rs.close
set rs = Nothing
Response.Redirect("iframe.asp?vis=inbox")
end if
%>
Skriv ny email:<br>
<form method="post" action="iframe.asp?vis=ny_email">
<table border="1" bordercolor="#000000">
<tr>
<td bordercolor="#ffffff"><b><font class="small">Modtager</font></b></td>
<td bordercolor="#ffffff"><select name="modtager">
<%
'Hiver alle brugerne ud i en select boks
set rs = Conn.Execute("select * from bruger")
Do until rs.eof
navn = rs("brugernick")
%><option value="<%=navn%>"><%=navn%></option>
<% rs.movenext
loop
rs.close
set rs = nothing
%>
</select>
</td>
</tr>
<tr>
<td bordercolor="#ffffff"><b><font class="small">Emne</font></b></td>
<td bordercolor="#ffffff"><input type="text" name="emne"></td>
</tr>
<tr>
<td bordercolor="#ffffff"><b><font class="small">Besked</font></b></td>
<td bordercolor="#ffffff"><textarea name="besked" cols="25" rows="10"></textarea></td>
</tr>
<tr>
<td bordercolor="#ffffff"> </td>
<td bordercolor="#ffffff"><input type="submit" value="Send"></td>
</tr>
</table>
</form>
<% end if %>
