www.profile.it4real.com/show.asp?id=48 = www.profile.it4real.com/PH !?
Hej eksperter ..Jeg er i gang med, nærmest for sjov, at lave en side hvor man kan oprette en profil!
Nu er det bare sådan, at når man så har oprettet en profil, får man tildelt adressen fx www.profile.it4real.com/show.asp?id=48 ! Kan man ikke lave et eller andet smart, så man fx får adressen www.profile.it4real.com/PH ? Altså lave en \"fiktiv mappe\"?
Her er koden til show.asp så I evt. kan se hvordan den er bygget op:
<%
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(\"db/community.mdb\")
%>
<HTML>
<HEAD>
<!-- Minus AutoDato -->
<TITLE>PROFILE.it4real.com .. Din profil på nettet!</TITLE>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
<SCRIPT>
if (window != top) top.location.href = location.href;
</SCRIPT>
<link rel=\"stylesheet\" type=\"text/css\" href=\"1v.css\">
<style type=\"text/css\">
input{
background:ffffff;
font-family:tahoma, verdana;
height: 20px;
width:100px;
}
textarea{
background:ffffff;
font-family: tahoma, verdana;
height: 100px;
width:110px;
}
.Submitknap {
background-color : #e9e9e9;
border : 1px solid;
border-bottom : 1px solid Gray;
border-top : 1px solid Silver;
border-left : 1px solid Silver;
border-right : 1px solid Gray;
font-size: 11px;
font-weight: plain;
height: 18 px;
width: 30 px;
}
</style>
</HEAD>
<BODY bgcolor=\"#3A6794\">
<table width=\"750\" height=\"400\" align=\"center\" cellpadding=\"0\" cellspacing=\"1\" bgcolor=\"#000000\">
<tr valign=\"top\">
<td width=\"750\" height=\"400\">
<table width=\"750\" height=\"400\" align=\"center\" cellpadding=\"0\" cellspacing=\"1\" bgcolor=\"#000000\">
<tr valign=\"top\">
<td width=\"750\" height=\"60\" background=\"images/logo.jpg\"></td>
<tr valign=\"top\">
<td width=\"750\" height=\"340\" bgcolor=\"#ffffff\">
<table width=\"750\" height=\"340\" align=\"center\" cellpadding=\"0\" cellspacing=\"0\" bgcolor=\"#000000\">
<tr valign=\"top\">
<td width=\"155\" height=\"340\" bgcolor=\"#ffffff\">
<BR>
<table border=\"0\" cellpadding=\"1\" cellspacing=\"1\" align=\"center\" width=\"130\" bgcolor=\"#000000\">
<tr bgcolor=\"#3A6794\">
<td height=\"14\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Menu</font></td>
</tr>
<tr valign=\"top\">
<td width=\"130\" height=\"60\" bgcolor=\"#EDF2FA\">
<font face=\"verdana\" size=\"1\">Bla bla</font>
</td>
</tr>
</table>
<BR>
<table border=\"0\" cellpadding=\"1\" cellspacing=\"1\" align=\"center\" width=\"130\" bgcolor=\"#000000\">
<tr bgcolor=\"#3A6794\">
<td height=\"14\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">
<%
if session(\"brugernavn\") <> \"\" then
%>
<font face=\"verdana\" color=\"#ffffff\" size=\"1\">
<b><%= Session(\"brugernavn\") %></b>
</font>
<% else %>
<font face=\"verdana\" color=\"#ffffff\" size=\"1\">
Quicklogin
<% end if %>
</font></td>
</tr>
<tr valign=\"top\">
<td width=\"130\" height=\"60\" bgcolor=\"#EDF2FA\">
<font face=\"verdana\" size=\"1\">
</b></font>
<%
\'Forskellig menu alt efter om man er logget ind eller ej
if session(\"brugernavn\") <> \"\" then
%>
<a href=\"show.asp?mode=own_profile\" class=\"Menu\">
<font face=\"verdana\" size=\"1\">Din profil</font></a><br>
<a href=\"show.asp?mode=inbox\" class=\"Menu\">
<font face=\"verdana\" size=\"1\">Mailboks</font></a><br>
<a href=\"show.asp?mode=logud\" class=\"Menu\">
<font face=\"verdana\" size=\"1\">Logud</font></a><br>
</font>
<% else %>
<%
\'Hvis brugeren har submittet login formen
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
\'Tjecker om felterner er udfydlt
if Request.Form(\"brugernavn\") <> \"\" AND Request.Form(\"adgangskode\") <> \"\" then
Sql = \"select * from bruger where brugernavn = \'\" & Request.Form(\"brugernavn\") & \"\'\"
Set rs = Conn.Execute(sql)
\'Tjecker om brugeren eksisterer
if rs.EOF or rs.BOF then
Response.Write(\"<font face=\'verdana\' size=\'1\' color=\'red\'><b>Brugernavnet eksisterer ikke</font></b><br>\")
else
\'tjecker om passwordsne matcher hinanden
if rs(\"brugerkode\") = Request.Form(\"adgangskode\") then
Session(\"brugernavn\") = Rs(\"brugernavn\")
Response.Redirect(\"show.asp\")
else
Response.Write(\"<font face=\'verdana\' size=\'1\' color=\'red\'><b>Adgangskoden er forkert<br></b></font>\")
end if
end if
rs.Close
set rs = nothing
else
Response.Write(\"<font face=\'verdana\' size=\'1\' color=\'red\'><b>Du har ikke udfyldt felterne</b></font><br>\")
end if
end if
%>
<form method=\"post\" action=\"show.asp?mode=login\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"1\">
<tr valign=\"top\">
<td><font face=\"verdana\" size=\"1\"> Brugernavn:</font></td>
</tr>
<tr valign=\"top\">
<td> <input type=\"text\" name=\"brugernavn\" size=\"10\" style=\"background-image:url(\'images/back.jpg\')\"></td>
</tr>
<tr valign=\"top\">
<td><font face=\"verdana\" size=\"1\"> Login:</font></td>
</tr>
<tr valign=\"top\">
<td> <input type=\"password\" name=\"adgangskode\" size=\"10\" style=\"background-image:url(\'images/back.jpg\')\"></td>
</tr>
<tr>
<td> <input type=\"submit\" value=\"Login\" class=\"Submitknap\">
</td>
</tr>
<tr>
<td><font face=\"verdana\" size=\"1\"> <a href=\"show.asp?mode=opret\" class=\"Menu\">Ny bruger?</a></font></td></tr>
</table>
</form>
<% end if %>
</font>
</td>
</tr>
</table>
<BR>
<table border=\"0\" cellpadding=\"1\" cellspacing=\"1\" width=\"130\" bgcolor=\"#000000\" align=\"center\">
<tr bgcolor=\"#3A6794\" align=\"top\">
<td height=\"14\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">10 nyeste</font></td>
</tr>
<tr valign=\"top\">
<td width=\"130\" height=\"100\" bgcolor=\"#EDF2FA\">
<font face=\"verdana\" size=\"1\">
<% Set rs = Conn.Execute(\"select top 10 * from bruger order by brugerid desc \")
%>
<% Do until rs.eof %>
<% sex = rs(\"sex\") %>
<% if sex = \"female\" then %>
<%
response.write(\"<img src=\'images/girl.jpg\'\")
%>
<% else %>
<%
response.write(\"<img src=\'images/boy.jpg\'\")
%>
<% end if %>
<a href=\"show.asp?mode=profil&id=<%=rs(\"brugerid\")%>\" class=\"Main\"><%=rs(\"brugernavn\")%></a><br>
<%
rs.movenext
loop
rs.close
set rs = nothing
%>
</font>
</td>
</tr>
</table>
<BR>
<table border=\"0\" cellpadding=\"1\" cellspacing=\"1\" align=\"center\" width=\"130\" bgcolor=\"#000000\">
<tr bgcolor=\"#3A6794\">
<td height=\"14\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Stats</font></td>
</tr>
<tr valign=\"top\">
<td width=\"130\" height=\"60\" bgcolor=\"#EDF2FA\">
<font face=\"verdana\" size=\"1\">Bla bla</font>
</td>
</tr>
</table>
<BR>
<table border=\"0\" cellpadding=\"1\" cellspacing=\"1\" align=\"center\" width=\"130\" bgcolor=\"#000000\">
<tr bgcolor=\"#3A6794\">
<td height=\"14\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Partnersites</font></td>
</tr>
<tr valign=\"top\">
<td width=\"130\" height=\"60\" bgcolor=\"#EDF2FA\">
<font face=\"verdana\" size=\"1\">Bla bla</font>
</td>
</tr>
</table>
<BR>
</td>
<td width=\"595\" height=\"340\" bgcolor=\"#ffffff\">
<BR>
<table border=\"0\" cellpadding=\"1\" cellspacing=\"1\" align=\"center\" width=\"590\" bgcolor=\"#000000\">
<tr bgcolor=\"#3A6794\">
<td height=\"14\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Main</font></td>
</tr>
<tr valign=\"top\">
<td width=\"590\" height=\"306\" bgcolor=\"#EDF2FA\">
<font face=\"verdana\" size=\"1\">
<!-- -------------------------------------------------------------------------------------------------- -->
<!-- -------------------------------------------------------------------------------------------------- -->
<!-- -------------------------------------------------------------------------------------------------- -->
<!-- -------------------------------------------------------------------------------------------------- -->
<!-- -------------------------------------------------------------------------------------------------- -->
<table style=\"border-color : #000000\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr>
<td bordercolor=\"#ffffff\">
<% if mode = \"main\" then %>
<font face=\"Verdana\" size=\"2\"><u><b>Velkommen</b></u><br><font size=\"1\">
Bla bla</font>
<% end if %>
<% if mode = \"\" then
Set rs = Conn.Execute(\"select * from bruger where brugerid = \" & Request.QueryString(\"id\"))
%>
<table border=\"0\" bordercolor=\"#000000\">
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><b>Brugernavn</b></font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"2\"><b><%=rs(\"brugernavn\")%></b></font></font></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Email</font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=rs(\"brugeremail\")%></font></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Adresse</font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=rs(\"brugerhjemmeside\")%></font></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Alder</font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=rs(\"brugeralder\")%></font></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Tlf-nummer</font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=Rs(\"brugericq\")%></font></td>
</tr>
<tr valign=\"top\">
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Fri tekst</font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=Rs(\"brugertekst\")%></font></td>
</tr>
</table>
</form>
<%
rs.close
set rs = nothing
end if %>
<% if mode = \"opret\" then
\'Hvis brugeren har submittet formularen
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
\'Tjecker om felterne er udfyld
if (Request.Form(\"brugernavn\") <> \"\" AND Request.Form(\"adgangskode\") <> \"\" AND Request.Form(\"email\") <> \"\") then
\'Tilføjer brugeren til databasen
Set rs = Server.CreateObject(\"ADODB.Recordset\")
strSQL = \"select * from bruger where brugernavn = \'\" & Request(\"brugernavn\") & \"\'\"
rs.Open strsql, conn, 1, 3
\'Tjecker om brugernavnet er optaget
if rs.eof or rs.BOF then
\'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs(\"brugernavn\") = Server.HTMLEncode(Request(\"brugernavn\"))
rs(\"brugerkode\") = Server.HTMLEncode(Request(\"adgangskode\"))
rs(\"brugeralder\") = Server.HTMLEncode(Request(\"alder\"))
rs(\"brugeremail\") = Server.HTMLEncode(Request(\"email\"))
rs(\"brugerHjemmeside\") = Server.HTMLEncode(Request(\"hjemmeside\"))
rs(\"brugerIcq\") = Server.HTMLEncode(Request(\"icq\"))
rs(\"brugerTekst\") = Server.HTMLEncode(Request(\"fri_tekst\"))
rs.update
Response.Redirect(\"show.asp?mode=login\")
else
\'Skriver at brugernavnet er optaget
Response.Write(\"<b><font color=\'red\'>Brugernavnet er optaget</font></b><br>\")
end if
rs.Close
set rs = nothing
else
Response.Write(\"<b><font color=\'red\'>Der var fejl i dine indtastninger</font></b><br>\")
end if
end if
%>
<font face=\"verdana\" size=\"1\">Alle felter med <b>fed</b> skrift skal udfyldes for at oprette brugeren:</font><br>
<form method=\"post\" action=\"show.asp?mode=opret\">
<table border=\"0\" bordercolor=\"#000000\">
<tr>
<td bordercolor=\"#ffffff\" onMouseover=\"show(\'layer1\');\" onMouseout=\"hide(\'layer1\');\"><b><font face=\"verdana\" size=\"1\">Navn og efternavn</font></b></td>
<td bordercolor=\"#ffffff\"><input type=\"text\" name=\"brugernavn\" value=\"<%=Request(\"brugernavn\")%>\"></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><b><font face=\"verdana\" size=\"1\">Adgangskode</font></b></td>
<td bordercolor=\"#ffffff\"><input type=\"password\" name=\"adgangskode\"></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><b><font face=\"verdana\" size=\"1\">Email</font></b></td>
<td bordercolor=\"#ffffff\"><input type=\"text\" name=\"email\" value=\"<%=Request(\"email\")%>\"></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><b>Adresse</b></font></td>
<td bordercolor=\"#ffffff\"><input type=\"text\" name=\"hjemmeside\" value=\"<%=Request(\"hjemmeside\")%>\"></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><b>Alder</b></font></td>
<td bordercolor=\"#ffffff\"><input type=\"text\" name=\"alder\" value=\"<%=Request(\"alder\")%>\"></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><b>Tlf-nummer</b></font></td>
<td bordercolor=\"#ffffff\"><input type=\"text\" name=\"icq\" value=\"<%=Request(\"icq\")%>\"></td>
</tr>
<tr valign=\"top\">
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Fri tekst</font></td>
<td bordercolor=\"#ffffff\"><textarea cols=\"20\" rows=\"6\" name=\"fri_tekst\"><%=Request(\"fri_tekst\")%></textarea></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"> </td>
<td bordercolor=\"#ffffff\"><input type=\"submit\" value=\"Opret\" class=\"Submitknap\"></td>
</tr>
</table>
</form>
<% end if %>
<% if mode = \"logud\" then
Session.Abandon
Response.Redirect(\"show.asp?mode=main\")
end if %>
<% if mode = \"own_profile\" then
\'Tjecker om brugeren er logget ind
if session(\"brugernavn\") = \"\" then
Response.Redirect(\"show.asp?mode=login\")
end if
\'Henter brugerens profil
Set rs = Server.CreateObject(\"ADODB.Recordset\")
sql = \"select * from bruger where brugernavn = \'\" & Session(\"brugernavn\") & \"\'\"
rs.open sql, conn, 1, 3
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
\'Opdaterer felterner
rs.update
rs(\"brugerkode\") = Server.HTMLEncode(Request(\"adgangskode\"))
rs(\"brugeralder\") = Server.HTMLEncode(Request(\"alder\"))
rs(\"brugeremail\") = Server.HTMLEncode(Request(\"email\"))
rs(\"brugerHjemmeside\") = Server.HTMLEncode(Request(\"hjemmeside\"))
rs(\"brugerIcq\") = Server.HTMLEncode(Request(\"icq\"))
rs(\"brugerTekst\") = Server.HTMLEncode(Request(\"fri_tekst\"))
rs.update
end if
%>
<form method=\"post\" action=\"show.asp?mode=own_profile\">
<table border=\"0\" bordercolor=\"#000000\">
<tr>
<td bordercolor=\"#ffffff\"><b><font face=\"verdana\" size=\"1\">Brugernavn</b></font></td>
<td bordercolor=\"#ffffff\"><b><font face=\"verdana\" size=\"2\"><%=rs(\"brugernavn\")%></b></font></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Adgangskode</font></td>
<td bordercolor=\"#ffffff\"><input type=\"text\" name=\"adgangskode\" value=\"<%=rs(\"brugerKode\")%>\"></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Email</font></td>
<td bordercolor=\"#ffffff\"><input type=\"text\" name=\"email\" value=\"<%=rs(\"brugeremail\")%>\"></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Hjemmeside</font></td>
<td bordercolor=\"#ffffff\"><input type=\"text\" name=\"hjemmeside\" value=\"<%=rs(\"brugerhjemmeside\")%>\"></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Alder</font></td>
<td bordercolor=\"#ffffff\"><input type=\"text\" name=\"alder\" value=\"<%=rs(\"brugeralder\")%>\"></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Tlf-nummer</font></td>
<td bordercolor=\"#ffffff\"><input type=\"text\" name=\"icq\" value=\"<%=Rs(\"brugericq\")%>\"></td>
</tr>
<tr valign=\"top\">
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Fri tekst<br><a href=\"friteksthjælp.asp\" target=\"_blank\" class=\"Main\">hjælp</a></font></td>
<td bordercolor=\"#ffffff\"><textarea cols=\"20\" rows=\"6\" name=\"fri_tekst\" ><%=Rs(\"brugertekst\")%></textarea></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"> </td>
<td bordercolor=\"#ffffff\"><input type=\"submit\" value=\"Opdater\" class=\"Submitknap\" id=submit1 name=submit1></td>
</tr>
</table>
</form>
<%
rs.close
set rs = nothing
end if %>
<% if mode = \"inbox\" then
\'Tjecker om brugeren er logget ind
if session(\"brugernavn\") = \"\" then
Response.Redirect(\"show.asp?mode=login\")
end if
\'Opbygger recordset
set rs = Conn.Execute(\"select * From mail where mailModtager = \'\" & Session(\"brugernavn\") & \"\' order by mailDato desc\")
%>
<font face=\"verdana\" size=\"2\"><b>.<u>: <%= Session(\"brugernavn\") %>\'s mailbox</b> </u></font><br>
<table border=\"0\">
<tr>
<td bgcolor=\"#3683B1\" height=\"2\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Afsender</font></td>
<td bgcolor=\"#3683B1\" height=\"2\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Emne</font></td>
<td bgcolor=\"#3683B1\" height=\"2\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Dato</font></td>
<td bgcolor=\"#3683B1\" height=\"2\"></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 face=\"verdana\" size=\"1\"><%=rs(\"mailAfsender\")%></font></td>
<td><font face=\"verdana\" size=\"1\"><b><a href=\"show.asp?mode=read_mail&mailid=<%=rs(\"mailid\")%>\" class=\"Main\"><%=rs(\"mailEmne\")%></a></b></font></td>
<td><font face=\"verdana\" size=\"1\"><%=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>
<br>
<table>
<tr>
<td bgcolor=\"#3683B1\" height=\"2\"><a href=\"show.asp?mode=ny_email\" class=\"Mail\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Ny email</a></font></td></tr></table>
<%
rs.close
end if %>
<% if mode = \"read_mail\" then
\'Tjecker om brugeren er logget ind
if session(\"brugernavn\") = \"\" then
Response.Redirect(\"show.asp?mode=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=\"0\" bordercolor=\"#000000\">
<tr>
<td bordercolor=\"#ffffff\"><b><font face=\"verdana\" size=\"1\">Afsender</b></font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"2\"><%=rs(\"mailAfsender\")%></font></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><b><font face=\"verdana\" size=\"1\">Emne</b></font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=rs(\"mailEmne\")%></font></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><b><font face=\"verdana\" size=\"1\">Dato</b></font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=rs(\"mailDato\")%></font></td>
</tr>
<tr valign=\"top\">
<td bordercolor=\"#ffffff\"><b><font face=\"verdana\" size=\"1\">Besked</b></font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=rs(\"mailBesked\")%></font></td>
</tr>
</table>
<br>
<table>
<tr>
<td bgcolor=\"#3683B1\" height=\"2\"><a href=\"show.asp?mode=inbox\" class=\"Mail\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Indbakke</a></font></td>
<td bgcolor=\"#3683B1\" height=\"2\"><a href=\"show.asp?mode=delete_email&mailid=<%=rs(\"mailid\")%>\" class=\"Mail\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Slet email</a></font></td>
<td bgcolor=\"#3683B1\" height=\"2\"><a href=\"show.asp?mode=ny_email\" class=\"Mail\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Ny email</a></font></td></tr></table>
<% end if %>
<% if mode = \"delete_email\" then
\'Tjecker om brugeren er logget ind
if session(\"brugernavn\") = \"\" then
Response.Redirect(\"show.asp?mode=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(\"show.asp?mode=inbox\")
end if %>
<% if mode = \"ny_email\" then
\'Tjecker om brugeren er logget ind
if session(\"brugernavn\") = \"\" then
Response.Redirect(\"show.asp?mode=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(\"brugernavn\")
rs(\"mailEmne\") = emne
rs(\"mailbesked\") = besked
rs(\"mailDato\") = Now()
rs.update
rs.close
set rs = Nothing
Response.Redirect(\"show.asp?mode=inbox\")
end if
%>
<form method=\"post\" action=\"show.asp?mode=ny_email\">
<table border=\"0\" bordercolor=\"#000000\">
<tr>
<td bordercolor=\"#ffffff\"><b><font face=\"verdana\" size=\"1\">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(\"brugernavn\")
%><option value=\"<%=navn%>\"><%=navn%></option>
<% rs.movenext
loop
rs.close
set rs = nothing
%>
</select>
</td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><b><font face=\"verdana\" size=\"1\">Emne</font></b></td>
<td bordercolor=\"#ffffff\"><input type=\"text\" name=\"emne\"></td>
</tr>
<tr valign=\"top\">
<td bordercolor=\"#ffffff\"><b><font face=\"verdana\" size=\"1\">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\" class=\"Submitknap\" value=\"Send\"></td>
</tr>
</table>
<% end if %>
<% if mode = \"bruger_list\" then
\'Hiver alle brugeren ud:
Set rs = Conn.Execute(\"select * from bruger order by brugernavn desc\")
%>
<table border=\"0\" bordercolor=\"#000000\">
<tr>
<td bgcolor=\"#3683B1\" height=\"2\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Brugernavn</font></td>
<td bgcolor=\"#3683B1\" height=\"2\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Alder</font></td>
</tr>
<% Do until rs.eof %>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><a href=\"show.asp?mode=profil&id=<%=rs(\"brugerid\")%>\" class=\"Main\"><%=rs(\"brugernavn\")%></a></font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=rs(\"brugeralder\")%></font></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs = nothing
%>
</table>
<% end if %>
<% if mode = \"lektieplan\" then
\'Tjecker om brugeren er logget ind
if session(\"brugernavn\") = \"Paul Sauer\" OR session(\"brugernavn\") = \"GP\" OR session(\"brugernavn\") = \"PT\" OR session(\"brugernavn\") = \"TR\" OR session(\"brugernavn\") = \"KL\" OR session(\"brugernavn\") = \"JI\" OR session(\"brugernavn\") = \"MA\" OR session(\"brugernavn\") = \"VT\" OR session(\"brugernavn\") = \"LT\" OR session(\"brugernavn\") = \"ML\" OR session(\"brugernavn\") = \"ØA\" then
Response.Redirect(\"show.asp?mode=reglektieplan\")
else
Response.Redirect(\"show.asp?mode=ikkelaerer\")
end if
\'Opbygger recordset
set rs = Conn.Execute(\"select * From mail where mailModtager = \'\" & Session(\"brugernavn\") & \"\' order by mailDato desc\")
%>
<table border=\"0\">
<tr>
<td bgcolor=\"#3683B1\" height=\"2\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Afsender</font></td>
<td bgcolor=\"#3683B1\" height=\"2\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Emne</font></td>
<td bgcolor=\"#3683B1\" height=\"2\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Dato</font></td>
<td bgcolor=\"#3683B1\" height=\"2\"></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 face=\"verdana\" size=\"1\"><%=rs(\"mailAfsender\")%></font></td>
<td><font face=\"verdana\" size=\"1\"><a href=\"show.asp?mode=read_mail&mailid=<%=rs(\"mailid\")%>\" class=\"Main\"><%=rs(\"mailEmne\")%></a></font></td>
<td><font face=\"verdana\" size=\"1\"><%=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>
<br>
<table>
<tr>
<td bgcolor=\"#3683B1\" height=\"2\"><a href=\"show.asp?mode=ny_email\" class=\"Mail\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Ny email</a></font></td></tr></table>
<%
rs.close
end if %>
<% if mode = \"profil\" then
Set rs = Conn.Execute(\"select * from bruger where brugerid = \" & Request.QueryString(\"id\"))
sex = rs(\"sex\")
%>
<table border=\"0\" bordercolor=\"#000000\">
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><b>Brugernavn</b></font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"2\"><b><%=rs(\"brugernavn\")%></b></font></font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><b><%=sex%></b></font></font></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Email</font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=rs(\"brugeremail\")%></font></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Adresse</font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=rs(\"brugerhjemmeside\")%></font></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Alder</font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=rs(\"brugeralder\")%></font></td>
</tr>
<tr>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Tlf-nummer</font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=Rs(\"brugericq\")%></font></td>
</tr>
<tr valign=\"top\">
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\">Fri tekst</font></td>
<td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><%=Rs(\"brugertekst\")%></font></td>
</tr>
<tr>
<td><font face=\"verdana\" size=\"2\">
<% if sex = \"female\" then %>
<%
response.write(\"<img src=\'images/girl.jpg\'\")
%>
<% else %>
<%
response.write(\"<img src=\'images/boy.jpg\'\")
%>
<% end if %>
</table>
</form>
<%
rs.close
set rs = nothing
end if %>
<br><br></font>
</td>
</tr>
</table>
<!-- -------------------------------------------------------------------------------------------------- -->
<!-- -------------------------------------------------------------------------------------------------- -->
<!-- -------------------------------------------------------------------------------------------------- -->
<!-- -------------------------------------------------------------------------------------------------- -->
<!-- -------------------------------------------------------------------------------------------------- -->
</font>
</td>
</tr>
</table>
<p>
<table border=\"0\" cellpadding=\"1\" cellspacing=\"1\" align=\"center\" width=\"590\" bgcolor=\"#000000\">
<tr valign=\"top\">
<td width=\"590\" height=\"60\" bgcolor=\"#EDF2FA\">
<font face=\"verdana\" size=\"5\"><b><center>BANNER</center></b></font>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</BODY>
</html>
