Avatar billede plato Juniormester
27. august 2002 - 00:49 Der er 8 kommentarer og
1 løsning

Hvordan gør man det??

Der kommer lige en laaaang kode.

Det er et community som kan ses her http://www.trailersiden.dk.

Mit spørgsmål lyder:

Kan man ikke lave en kode der gør så at den bruger der er logget ind vises?

Eks: Bruger 'Tester' logger ind. Og så står der i toppen at bruger 'Tester' er logget ind. Og det skal selvfølgelig forsvinde når brugeren logger af.

Var det forståeligt nok?

<html>
<head>
<title>Trailersidens Community</title>
<link rel="stylesheet" type="text/css" href="../style.css">
<script language="JavaScript">
  function co(element,mode) {
    if (mode=="in") {
      cursortype = 'hand'
      colorval = '#B7C6D6'
    } else if (mode=="out") {
      cursortype = ''
      colorval = '#e9e9e9'
    }
  element.style.background=colorval;
  element.style.cursor=cursortype;
}
</script>
<script language="JavaScript">
  function vo(element,mode) {
    if (mode=="in") {
      cursortype = 'hand'
      colorval = '#e9e9e9'
    } else if (mode=="out") {
      cursortype = ''
      colorval = '#FFFFFF'
    }
  element.style.background=colorval;
  element.style.cursor=cursortype;
}
</script>

<style type="text/css">
    input { font-family: verdana; font-size: 8pt; }
    select { font-family: verdana; font-size: 8pt; }
    textarea { font-family: verdana; font-size: 8pt; }
    .head { font-family: verdana; font-size: 20pt; font-weight: bold;}
    .small { font-family: verdana; font-size: 10pt;}

</style>
</head>
<body bgcolor="#e9e9e9">
<center>       


        <table style="BORDER-BOTTOM: rgb(0,0,0) 1px solid; BORDER-LEFT: rgb(0,0,0) 1px solid; BORDER-RIGHT: rgb(0,0,0) 1px solid; BORDER-TOP: rgb(0,0,0) 1px solid"  width="450" height="20" cellpadding="0" cellspacing="0">
<%
                'Forskellig menu alt efter om man er logget ind eller ej
                if session("brugernavn") <> "" then
                %>

            <tr align="middle">
                <td height="20"  align="middle" width="150" onmouseover="co(this,'in');" onmouseout="co(this,'out');"><a href="community.asp">Forsiden</a></td>
                <td height="20"  align="middle" width="150" onmouseover="co(this,'in');" onmouseout="co(this,'out');"><a href="community.asp?mode=own_profile">Din profil</a></td>
                <td height="20"  align="middle" width="150" onmouseover="co(this,'in');" onmouseout="co(this,'out');"><a href="community.asp?mode=inbox">Mailboks</a></td>
                <td height="20"  align="middle" width="150" onmouseover="co(this,'in');" onmouseout="co(this,'out');"><a href="community.asp?mode=bruger_list">Brugerliste</a></td>
                <td height="20"  align="middle" width="150" onmouseover="co(this,'in');" onmouseout="co(this,'out');"><a href="community.asp?mode=logud">Logud</a></td>
            </tr>
            </table>
            <table style="BORDER-BOTTOM: rgb(0,0,0) 1px solid; BORDER-LEFT: rgb(0,0,0) 1px solid; BORDER-RIGHT: rgb(0,0,0) 1px solid; BORDER-TOP: rgb(0,0,0) 1px solid"  width="450" height="20" cellpadding="0" cellspacing="0">
            <tr>
           
           
           
            <% else %>   
                <td height="20"  width="150">&nbsp;</td>
                <td height="20"  align="middle"  width="150" onmouseover="co(this,'in');" onmouseout="co(this,'out');"><a href="community.asp">Forsiden</a></td>
                <td height="20"  align="middle" width="150" onmouseover="co(this,'in');" onmouseout="co(this,'out');"><a href="community.asp?mode=opret">Opret</a></td>
                <td height="20"  align="middle"  width="150" onmouseover="co(this,'in');" onmouseout="co(this,'out');"><a href="community.asp?mode=login">Login</a></td>
                <td height="20"  width="150">&nbsp;</td>
            <% end if %>
            </tr>
            </table>
       
            <br>
            <table style="BORDER-BOTTOM: rgb(0,0,0) 1px solid; BORDER-LEFT: rgb(0,0,0) 1px solid; BORDER-RIGHT: rgb(0,0,0) 1px solid; BORDER-TOP: rgb(0,0,0) 1px solid" width="450" height="500" cellpadding="0" cellspacing="0">

            <tr>
                <td colspan="5" align="middle" valign="top">
                                    <% if mode = "" then
                       
                        'Tæller antallet af profiler
                        set rs = Conn.Execute("select count(*) as antal from bruger")
                        antal_profiler = rs("antal")
                        rs.close
                        set rs = nothing               
                        %>
                    <span id="font2">Velkommen til Trailersidens community, der er i øjeblikket <%=antal_profiler%> profiler oprettet.
                    Community's formål er at jer film-freaks kan diskutere jeres ynglingsfilm m.m.
                    <br>
                    Community´et har følgende funktioner:
                    <table  border="0" bordercolor="#000000"  cellpadding="0" cellspacing="0">
                    <tr height="20">
                    <td align="left" width="130" height="100">
                    <span id="font2">
                    <li>Opret profil
                    <li>Rediger profil
                    <li>Internt post system
                    <li>Bruger liste
                    <li>Oprette Links
                    </span>
                    <br>
                    </td>
                    </tr>
                    </table>
               
                    <% 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("community.asp?mode=login")
                                        else
                                                'Skriver at brugernavnet er optaget
                                                Response.Write("<b><font color='red'>Brugernavnet er optaget</span</b><br>")
                                       
                                        end if
                                   
                                    rs.Close
                                    set rs = nothing
                                   
                                else
                                    Response.Write("<b><font color='red'>Der var fejl i dine indtastninger</span</b><br>")
                                end if
                               
                            end if
                        %>
                <span id="font2">Alle felter med <b>fed</b> skrift skal udfyldes for at oprette brugeren:</span><br>
                <form method="post" action="community.asp?mode=opret">
                    <table border="1" bordercolor="#000000">
                        <tr>
                            <td bordercolor="#ffffff"><b><span id="font2">Brugernavn</span</b></td>
                            <td bordercolor="#ffffff">
                            <input type="text" name="brugernavn" value="<%=Request("brugernavn")%>" size="20"></td>
                        </tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><b><span id="font2">Adgangskode</span</b></td>
                            <td bordercolor="#ffffff">
                            <input type="password" name="adgangskode" size="20"></td>
                        </tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><b><span id="font2">Email</span</b></td>
                            <td bordercolor="#ffffff">
                            <input type="text" name="email" value="<%=Request("email")%>" size="20"></td>
                        </tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Hjemmeside</span</td>
                            <td bordercolor="#ffffff">
                            <input type="text" name="hjemmeside" value="<%=Request("hjemmeside")%>" size="20"></td>
                        </tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Alder</span</td>
                            <td bordercolor="#ffffff">
                            <input type="text" name="alder" value="<%=Request("alder")%>" size="20"></td>
                        </tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">ICQ nummer</span</td>
                            <td bordercolor="#ffffff">
                            <input type="text" name="icq" value="<%=Request("icq")%>" size="20"></td>
                        </tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Fri tekst</span</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"></td>
                        </tr>
                           
                    </table>
                </form>
                <% end if %>
               
                <% if mode = "login" then
                           
                            '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 color='red'><b>Brugernavnet eksisterer ikke</span</b><br>")
                                            else
                                                   
                                                    'tjecker om passwordsne matcher hinanden
                                                    if rs("brugerkode") = Request.Form("adgangskode") then
                                                           
                                                            Session("brugernavn") = Rs("brugernavn")
                                                            Response.Redirect("community.asp")                                                       
                                                           
                                                    else
                                                        Response.Write("<font color='red'><b>Adgangskoden er forkert<br></b></span")
                                                    end if
                                            end if
                                           
                                        rs.Close
                                        set rs = nothing
                                       
                                else   
                                    Response.Write("<font color='red'><b>Du har ikke udfyldt felterne</b></span<br>")
                                end if
                                   
                            end if
                        %>
                   
                    <span id="font2">Login i systemet og få adgang til funktionerne<br>Bemærk, der er ikke forskel på store og små bokstaver!<br>Har du glemt/mistet dit Brugernavn/Password, så skriv til <a href="mailto:admin@trailerisden.dk">Admin</a></span><br>
                    <form method="post" action="community.asp?mode=login">                   
                        <table border="1" bordercolor="#000000">
                           
                            <tr>
                                <td bordercolor="#ffffff"><span id="font2">Brugernavn</span</td>
                                <td bordercolor="#ffffff">
                                <input type="text" name="brugernavn" size="20"></td>
                            </tr>
                           
                            <tr>
                                <td bordercolor="#ffffff"><span id="font2">Password</span</td>
                                <td bordercolor="#ffffff">
                                <input type="password" name="adgangskode" size="20"></td>
                            </tr>
                           
                            <tr>
                                <td bordercolor="#ffffff"></td>
                                <td bordercolor="#ffffff"><input type="submit" value="Login"></td>
                            </tr>
                        </table>
                        </form>
               
                <% end if %>
               
                <% if mode = "logud" then
                   
                    Session.Abandon
                    Response.Redirect("community.asp")
                end if %>
               
                <% if mode = "own_profile" then
                       
                        'Tjecker om brugeren er logget ind
                        if session("brugernavn") = "" then
                            Response.Redirect("community.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
                        %>
                        <span id="font2">Rediger din profil:<br>Ønskes en profil slettet, skriv til admin@trailersiden.dk</span>
                        <form method="post" action="community.asp?mode=own_profile">
                    <table border="1" bordercolor="#000000">
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Brugernavn</span</td>
                            <td bordercolor="#ffffff"><span id="font2"><%=rs("brugernavn")%></span&nbsp;</td>
                        &nbsp;</tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Adgangskode</span</td>
                            <td bordercolor="#ffffff">
                            <input type="text" name="adgangskode" value="<%=rs("brugerKode")%>" size="20"></td>
                        </tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Email</span</td>
                            <td bordercolor="#ffffff">
                            <input type="text" name="email" value="<%=rs("brugeremail")%>" size="20"></td>
                        </tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Hjemmeside</span</td>
                            <td bordercolor="#ffffff">
                            <input type="text" name="hjemmeside" value="<%=rs("brugerhjemmeside")%>" size="20"></td>
                        </tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Alder</span</td>
                            <td bordercolor="#ffffff">
                            <input type="text" name="alder" value="<%=rs("brugeralder")%>" size="20"></td>
                        </tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">ICQ nummer</span</td>
                            <td bordercolor="#ffffff">
                            <input type="text" name="icq" value="<%=Rs("brugericq")%>" size="20"></td>
                        </tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Fri tekst</span</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" 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("community.asp?mode=login")
                        end if
                       
                       
                        'Opbygger recordset
                        set rs = Conn.Execute("select * From mail where mailModtager = '" & Session("brugernavn") & "' order by mailDato desc")
                        %>
                        <span id="font2">Klik på emnet for at læse en email:</span><br><br>
                        <table border="0">
                            <tr>
                                <td bgcolor="#D2D0D0"><span id="font2"><b>Afsender</b></span</td>
                                <td bgcolor="#D2D0D0"><span id="font2"><b>Emne</b></span</td>
                                <td bgcolor="#D2D0D0"><span id="font2"><b>Dato</b></span</td>
                                <td bgcolor="#D2D0D0"></td>
                            </tr>
                            <% if rs.eof or rs.bof then %>
                            <tr>
                                <td colspan="3" align="center"><span id="font2">Ingen meddelser</span</td>
                            </tr>
                            <% else
                                Do until rs.eof %>
                                <tr>
                                    <td><span id="font2"><%=rs("mailAfsender")%></span></td>
                                    <td><span id="font2"><a href="community.asp?mode=read_mail&mailid=<%=rs("mailid")%>"><%=rs("mailEmne")%></a></span></td>
                                    <td><span id="font2"><%=rs("mailDato")%></span</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>
                        <br>
                        <a href="community.asp?mode=ny_email">Ny email</a>
                       
                <%
                rs.close
                end if %>
               
                <% if mode = "read_mail" then
               
                        'Tjecker om brugeren er logget ind
                        if session("brugernavn") = "" then
                            Response.Redirect("community.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="1" bordercolor="#000000">
                            <tr>
                                <td bordercolor="#ffffff"><b><span id="font2">Afsender</b></span</td>
                                <td bordercolor="#ffffff"><span id="font2"><%=rs("mailAfsender")%></span&nbsp;</td>
                            &nbsp;</tr>

                            <tr>
                                <td bordercolor="#ffffff"><b><span id="font2">Emne</b></span</td>
                                <td bordercolor="#ffffff"><span id="font2"><%=rs("mailEmne")%></span&nbsp;</td>
                            &nbsp;</tr>

                            <tr>
                                <td bordercolor="#ffffff"><b><span id="font2">Dato</b></span</td>
                                <td bordercolor="#ffffff"><span id="font2"><%=rs("mailDato")%></span&nbsp;</td>
                            &nbsp;</tr>
                           
                            <tr>
                                <td bordercolor="#ffffff"><b><span id="font2">Besked</b></span</td>
                                <td bordercolor="#ffffff"><span id="font2"><%=rs("mailBesked")%></span&nbsp;</td>
                            &nbsp;</tr>
                        </table>
                        <br>
                        l <a href="community.asp?mode=inbox">Indbakke</a>
                        l <a href="community.asp?mode=delete_email&mailid=<%=rs("mailid")%>">Slet</a>
                        l <a href="Community.asp?mode=ny_email">Ny email</a>
                        l
               
                <% end if %>
               
               
                <% if mode = "delete_email" then
               
                    'Tjecker om brugeren er logget ind
                    if session("brugernavn") = "" then
                    Response.Redirect("community.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("community.asp?mode=inbox")
                end if %>
               
                <% if mode = "ny_email" then
                   
                    'Tjecker om brugeren er logget ind
                    if session("brugernavn") = "" then
                    Response.Redirect("community.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("community.asp?mode=inbox")
                    end if
                    %>
               
                <span id="font2">Skriv ny email:<br>Alle felter skal udfyldes!</span><br>
                <form method="post" action="community.asp?mode=ny_email">
                <table border="1" bordercolor="#000000">
                    <tr>
                        <td bordercolor="#ffffff"><b><span id="font2">Modtager</span</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><span id="font2">Emne</span</b></td>
                        <td bordercolor="#ffffff">
                        <input type="text" name="emne" size="20"></td>
                    </tr>
                   
                    <tr>
                        <td bordercolor="#ffffff"><b><span id="font2">Besked</span</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" 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")
                        %>
                        <span id="font2">Her er en komplet liste over alle brugere:<br></span><br>
                        <table border="1" bordercolor="#000000">
                            <tr>
                                <td bordercolor="#ffffff" bgcolor="#D2D0D0"><span id="font2"><b>Brugernavn</b></span</td>
                                <td bordercolor="#ffffff" bgcolor="#D2D0D0"><span id="font2"><b>Alder</b></span</td>
                            </tr>
                           
                            <% Do until rs.eof %>
                           
                            <tr>
                                <td bordercolor="#ffffff"><span id="font2"><a href="community.asp?mode=profil&id=<%=rs("brugerid")%>"><%=rs("brugernavn")%></a></span&nbsp;</td>
                                &nbsp;<td bordercolor="#ffffff"><span id="font2"><%=rs("brugeralder")%></span&nbsp;</td>
                            &nbsp;</tr>
                            <%
                            rs.movenext
                            loop
                            rs.close
                            set rs = nothing
                            %>
                        </table>
                <% end if %>
               
                <% if mode = "profil" then
                       
                       
                        Set rs = Conn.Execute("select * from bruger where brugerid = " & Request.QueryString("id"))
                        %>
                    <table border="1" bordercolor="#000000">
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Brugernavn</span</td>
                            <td bordercolor="#ffffff"><span id="font2"><%=rs("brugernavn")%></span</span&nbsp;</td>
                        &nbsp;</tr>
                       
                   
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Email</span</td>
                            <td bordercolor="#ffffff"><span id="font2"><%=rs("brugeremail")%></span&nbsp;</td>
                        &nbsp;</tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Hjemmeside</span</td>
                            <td bordercolor="#ffffff"><span id="font2"><%=rs("brugerhjemmeside")%></span&nbsp;</td>
                        &nbsp;</tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Alder</span</td>
                            <td bordercolor="#ffffff"><span id="font2"><%=rs("brugeralder")%></span&nbsp;</td>
                        &nbsp;</tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">ICQ nummer</span</td>
                            <td bordercolor="#ffffff"><span id="font2"><%=Rs("brugericq")%></span&nbsp;</td>
                        &nbsp;</tr>
                       
                        <tr>
                            <td bordercolor="#ffffff"><span id="font2">Fri tekst</span</td>
                            <td bordercolor="#ffffff"><span id="font2"><%=Rs("brugertekst")%></span&nbsp;</td>
                        &nbsp;</tr>
   
                           
                    </table>
                <%
                rs.close
                set rs = nothing
               
                end if %>




                                    </td>
            </tr>

        </table>

Mvh Plato
Avatar billede keysersoze Ekspert
27. august 2002 - 01:24 #1
nu er det lidt svæart at se i din kode hvor det skal hen - men jeg kan se hvad du skal sætte ind. der hvor det nu end skal side skal indsætte;

<%=session("brugernavn")%>
Avatar billede plato Juniormester
27. august 2002 - 01:32 #2
keysersoze..

Jaa.... Det er jo også det jeg ikke lige ved ;o)

Men jeg gemmer da lige den tekststreng i hovedet. :o)

Mvh Plato
Avatar billede keysersoze Ekspert
27. august 2002 - 01:42 #3
erhm - det er altså ikke dig selv der har lavet den nuværende kode eller hvad?
Avatar billede plato Juniormester
27. august 2002 - 01:46 #4
Nej det er det nemlig ikke...
Har ikke så meget forstand på ASP.
Avatar billede keysersoze Ekspert
27. august 2002 - 01:52 #5
nu er det jo heller ikke ligefrem asp der bestemmer HVOR det skal indsættes - det er jo html!

men fortæl hvor det skal indsættes så kan det være jeg kan hjælpe
Avatar billede plato Juniormester
27. august 2002 - 01:55 #6
Oki...

Jeg vil gerne have i den bar hvor der står hvormange der er online. Ved ikke om det kan lade sig gøre, da det er udenfor Iframen.

Ellers er løsning at det står på samme side som community'et, lige mellem tabellerne (Menuen, den lille table, og den store table.
Avatar billede keysersoze Ekspert
27. august 2002 - 02:12 #7
du kan godt sætte den derop - men dertil har du ikke givet noget kode og desuden skal siden reloades hvis det skal bruges...

hvad angår dit andet forslag ved jeg ikke liiige hvor det er
Avatar billede plato Juniormester
27. august 2002 - 02:15 #8
Arrrrkkk...Jeg fjols...!!!!!

Jeg tog en markering af det du skrev og satte ind.

Og hvad for jeg så...EN forkert kode...Så jeg skrev det af i stedet.
Og det virker.. TAK!

*Griner lidt af mig selv.*
Avatar billede plato Juniormester
27. august 2002 - 02:16 #9
Du får de 100 point for hjælpen.

Jeg var bare lidt en tanke torsk...

Plato
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