Avatar billede realone Nybegynder
29. oktober 2001 - 10:32 Der er 4 kommentarer og
1 løsning

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\">&nbsp;&nbsp;Brugernavn:</font></td>
                            </tr>
                            <tr valign=\"top\">
                               
                                <td>&nbsp;&nbsp;<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\">&nbsp;&nbsp;Login:</font></td>
                            </tr>
                            <tr valign=\"top\">
                               
                                <td>&nbsp;&nbsp;<input type=\"password\" name=\"adgangskode\" size=\"10\" style=\"background-image:url(\'images/back.jpg\')\"></td>
                            </tr>
                            <tr>
                               
                                <td>&nbsp;&nbsp;<input type=\"submit\" value=\"Login\" class=\"Submitknap\">
</td>

                            </tr>
                       
                            <tr>
                                <td><font face=\"verdana\" size=\"1\">&nbsp;&nbsp;<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 %>
&nbsp;
&nbsp;<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\">&nbsp;</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\">&nbsp;</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>:&nbsp;<%= Session(\"brugernavn\") %>\'s mailbox</b>&nbsp;&nbsp;</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\">&nbsp;</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>
Avatar billede realone Nybegynder
29. oktober 2001 - 10:41 #1
.. Her er det stykke med profilen, hvis det hjælper i rodet:












<% 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 %> 
Avatar billede keysersoze Ekspert
29. oktober 2001 - 10:46 #2
hvis jeg forstår dig ret og du vil oprette en mappe til hver bruger; jo, du kan godt lave - der skal du over og kigge på FSO (file scripting object) for med det kan du bl.a. oprette og slette mapper...

Avatar billede somaliomar Praktikant
29. oktober 2001 - 10:56 #3
keysersoze >> Jeg tror, at realone vil have fiktive mapper ligesom her i eksperten:

http://www.eksperten.dk/spm/126928

istedet for

http://www.eksperten.dk/spm.asp?id=126928


Har jeg ret?
Avatar billede realone Nybegynder
29. oktober 2001 - 14:45 #4
somaliomar --- Du har HELT ret ;o)
Avatar billede realone Nybegynder
31. oktober 2001 - 17:03 #5
LUKKER
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester