Brugernavn..??

Må vi se noget kode ?

jeg kunne forestille mig at du bruger sessions... prøv så med Logget ind som: <%= Session(\"brugernavn\") %> eller hvad din session hedder...

Gerne:

Default.asp :
<!--#include file=\"taeller.asp\"-->
<!--#include file=\"online_taeller.asp\"-->

<%
mode = Request(\"mode\")
Response.Buffer = True
%>

<html>
<head>
<title>Ungstedet.cjb.net</title>

<style type=\"text/css\">

input{
background:ffffff;
font-family:verdana;
border:1px inset rgb(0,0,0);
align: center;
}

.button { background-color: white; }
</style>

<link rel=\"stylesheet\" type=\"text/css\" href=\"ung.css\">
</head>
<body background=\"image/bagg.jpg\">
<center>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"732\" height=\"70\">
<tr valign=\"top\">
<td background=\"image/baggtop.jpg\"></td>
</tr>
</table>
<table cellpadding=\"1\" cellspacing=\"1\" bgcolor=#000000\" width=\"730\" height=\"300\">
<tr valign=\"top\">
<td background=\"image/baggblue.jpg\" width=\"126\"></td>

<!-- -------------------------------------------------- -->
<!-- ------------------MainTable----------------------- -->
<!-- -------------------------------------------------- -->
<td bgcolor=\"#ffffff\" width=\"480\">

<% if mode = \"\" then %>
<font face=\"verdana\" size=3><b>.<u>:&nbsp;Login&nbsp;&nbsp;</u></font></b>
<p><br><br><br><font face=\"verdana\" size=2 color=red><b><%=Request.Querystring(\"error\")%></font></b><br>

<center>
<form method=post action=default.asp?mode=login>


<table border=\"0\">
<tr><td><b><font face=\"verdana\" size=\"2\">Brugernavn:</b></font> <td><input type=text name=Brugernavn><br>
<tr><td><b><font face=\"verdana\" size=\"2\">Kodeord: </b></font><td><input type=password name=kodeord><br>
<tr><td><input type=submit value=Login class=\"button\"><br><br>
</table>


</form>
</center>
<% end if %>

<% if mode = \"login\" then
    \'//Connection til databasen!
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"community.mdb\")
    strSQL = \"SELECT * FROM bruger where brugernavn = \'\" & Request.form(\"brugernavn\") & \"\'\"
    Set rs = myConn.Execute(strSQL)
        \'//Hvis der ingen bruger findes med det ønskede navn
        If rs.BOF Or rs.EOF Then
        Response.Redirect(\"default.asp?error=Ingen bruger med det navn!\")
        end if
           
            \'//Hvis kodeordet matcher kodeordet i databasen
            if rs(\"brugerKodeord\") = Request.form(\"kodeord\") then
            \'Laver session, med brugernavn og id
            session(\"brugernavn\") = rs(\"brugernavn\")
            session(\"id\") = rs(\"brugerid\")
            session(\"login\") = yes
            Response.Redirect(\"logged_in.asp\")
                       
            else
            \'//Hvis kodeordet var forkert!
            Response.Redirect(\"default.asp?error=Du har indtastet forkert password!\")
            end if

    \'//Lukker connection
    myConn.Close
    Set myConn = Nothing
end if %>

</td>
<!-- -------------------------------------------------- -->
<!-- -----------------MainTable Slut------------------- -->
<!-- -------------------------------------------------- -->

<td background=\"image/baggblue.jpg\" width=\"102\">


<table border=\"0\" width=\"116\" height=\"134\" cellspacing=\"0\" cellpadding=\"2\">
<tr valign=\"top\">
<td background=\"image/baggstats.jpg\"><br><font face=\"verdana\" size=\"1\"><b>
Online:

<%
For Each appvar in Application.Contents
    if left(appvar, 7) = \"online_\" then
        if IsDate(application.contents(appvar)) then
            if Datediff(\"n\", application.contents(appvar), now) < 2 then
                antal_online = antal_online +1
            end if
        end if
    end if
Next
response.write antal_online
%>

<br>
Chatten: 587<p>
Klokken: <% Response.write Left(time,4) %><br>
Dato:

<%
myDay = Day(Date)
If Len(myDay) = 1 Then myDay = \"0\" & myDay

myMonth = Month(Date)
If Len(myMonth) = 1 Then myMonth = \"0\" & myMonth

Response.Write myDay & \"-\" & myMonth & \"-\" & Year(Date)
%>
<p>Besøg i dag:

<%
strDay = Day(Date)
strMonth = Month(Date)
strYear = Year(Date)

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"db1.mdb\")
SQLstmt = \"SELECT COUNT(ID) AS Count FROM Taeller WHERE Day = \'\" & strDay & \"\';\"
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)

Response.Write(rs(\"count\"))
%>

<br>Besøg i alt:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"db1.mdb\")
SQLstmt = \"SELECT COUNT(ID) AS Count FROM Taeller;\"
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)

Response.Write(rs(\"count\"))
%>

</font></b></td>
</tr>
<tr valign=\"top\">
<td background=\"image/baggrightbund.jpg\" height=\"5\"></td>
</tr>
</table>
<br>
<table border=\"0\" width=\"116\" height=\"113\" cellspacing=\"0\" cellpadding=\"2\">
<tr valign=\"top\">
<td background=\"image/baggprofil.jpg\"><br><font face=\"verdana\" size=\"1\"><b>Logget på som:</font><font face=\"verdana\" color=\"red\" size=\"1\"><br>Du er ikke logget ind!</font><font face=\"verdana\" size=\"1\"><p>
» Log ind<br>
» <a href=\"opret.asp\" class=\"Main\">Opret bruger</a>
</font></b></td>
</tr>
<tr valign=\"top\">
<td background=\"image/baggrightbund.jpg\" height=\"5\"></td>
</tr>
</table>

</td>
</tr>
</table>
</body>
</html>

Og det kode, der som omfatter communitiet:

<%
mode = Request(\"mode\")
Response.Buffer = True
%>

og

<% if mode = \"\" then %>
<font face=\"verdana\" size=3><b>.<u>:&nbsp;Login&nbsp;&nbsp;</u></font></b>
<p><br><br><br><font face=\"verdana\" size=2 color=red><b><%=Request.Querystring(\"error\")%></font></b><br>

<center>
<form method=post action=default.asp?mode=login>


<table border=\"0\">
<tr><td><b><font face=\"verdana\" size=\"2\">Brugernavn:</b></font> <td><input type=text name=Brugernavn><br>
<tr><td><b><font face=\"verdana\" size=\"2\">Kodeord: </b></font><td><input type=password name=kodeord><br>
<tr><td><input type=submit value=Login class=\"button\"><br><br>
</table>


</form>
</center>
<% end if %>

<% if mode = \"login\" then
    \'//Connection til databasen!
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"community.mdb\")
    strSQL = \"SELECT * FROM bruger where brugernavn = \'\" & Request.form(\"brugernavn\") & \"\'\"
    Set rs = myConn.Execute(strSQL)
        \'//Hvis der ingen bruger findes med det ønskede navn
        If rs.BOF Or rs.EOF Then
        Response.Redirect(\"default.asp?error=Ingen bruger med det navn!\")
        end if
           
            \'//Hvis kodeordet matcher kodeordet i databasen
            if rs(\"brugerKodeord\") = Request.form(\"kodeord\") then
            \'Laver session, med brugernavn og id
            session(\"brugernavn\") = rs(\"brugernavn\")
            session(\"id\") = rs(\"brugerid\")
            session(\"login\") = yes
            Response.Redirect(\"logged_in.asp\")
                       
            else
            \'//Hvis kodeordet var forkert!
            Response.Redirect(\"default.asp?error=Du har indtastet forkert password!\")
            end if

    \'//Lukker connection
    myConn.Close
    Set myConn = Nothing
end if %>
--------------------------------------------------
Logged_in.asp:

<%
mode = Request(\"mode\")
Response.Buffer = True
\'//Tjecker om brugeren er logget ind!
if session(\"brugernavn\") = \"\" then Response.Redirect(\"default.asp?error=Hovsa, du er jo ikke logget ind!\") end if
%>
<!--#include file=\"taeller.asp\"-->
<!--#include file=\"online_taeller.asp\"-->
<html>
<head>
<title>Ungstedet.cjb.net</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"ung.css\">
</head>
<body background=\"image/bagg.jpg\">



<center>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"732\" height=\"70\">
<tr valign=\"top\">
<td background=\"image/baggtop.jpg\"></td>
</tr>
</table>
<table cellpadding=\"1\" cellspacing=\"1\" bgcolor=#000000\" width=\"730\" height=\"300\">
<tr valign=\"top\">
<td background=\"image/baggblue.jpg\" width=\"126\"></td>

<!-- ------------------------------------------- -->
<!-- --------------MainTable-------------------- -->
<!-- ------------------------------------------- -->
<td bgcolor=\"#ffffff\" width=\"480\">



</td>
<!-- ------------------------------------------- -->
<!-- --------------MainTable Slut--------------- -->
<!-- ------------------------------------------- -->

<td background=\"image/baggblue.jpg\" width=\"102\">


<table border=\"0\" width=\"116\" height=\"134\" cellspacing=\"0\" cellpadding=\"2\">
<tr valign=\"top\">
<td background=\"image/baggstats.jpg\"><br><font face=\"verdana\" size=\"1\"><b>
Online:

<%
For Each appvar in Application.Contents
    if left(appvar, 7) = \"online_\" then
        if IsDate(application.contents(appvar)) then
            if Datediff(\"n\", application.contents(appvar), now) < 2 then
                antal_online = antal_online +1
            end if
        end if
    end if
Next
response.write antal_online
%>

<br>
Chatten: 587<p>
Klokken: <% Response.write Left(time,4) %><br>
Dato:

<%
myDay = Day(Date)
If Len(myDay) = 1 Then myDay = \"0\" & myDay

myMonth = Month(Date)
If Len(myMonth) = 1 Then myMonth = \"0\" & myMonth

Response.Write myDay & \"-\" & myMonth & \"-\" & Year(Date)
%>
<p>Besøg i dag:

<%
strDay = Day(Date)
strMonth = Month(Date)
strYear = Year(Date)

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"db1.mdb\")
SQLstmt = \"SELECT COUNT(ID) AS Count FROM Taeller WHERE Day = \'\" & strDay & \"\';\"
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)

Response.Write(rs(\"count\"))
%>

<br>Besøg i alt:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"db1.mdb\")
SQLstmt = \"SELECT COUNT(ID) AS Count FROM Taeller;\"
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)

Response.Write(rs(\"count\"))
%>

</font></b></td>
</tr>
<tr valign=\"top\">
<td background=\"image/baggrightbund.jpg\" height=\"5\"></td>
</tr>
</table>
<br>
<table border=\"0\" width=\"116\" height=\"113\" cellspacing=\"0\" cellpadding=\"2\">
<tr valign=\"top\">
<td background=\"image/baggprofil.jpg\"><br><font face=\"verdana\" size=\"1\"><b>Logget på som:</font><font face=\"verdana\" size=\"1\"><p>
» <a href=\"mail.asp\" class=\"Main\">Mailbox</a><br>
» <a href=\"list.asp\" class=\"Main\">Brugerliste</a><br>
» <a href=\"chat_frame.html\" class=\"Main\">Chat</a>
</font></b></td>
</tr>
<tr valign=\"top\">
<td background=\"image/baggrightbund.jpg\" height=\"5\"></td>
</tr>
</table>

</td>
</tr>
</table>
</body>
</html>

Det kode, der omfatter communitiet:

<%
mode = Request(\"mode\")
Response.Buffer = True
\'//Tjecker om brugeren er logget ind!
if session(\"brugernavn\") = \"\" then Response.Redirect(\"default.asp?error=Hovsa, du er jo ikke logget ind!\") end if
%>

--------------------------------------------------
Var det kode nok..??

Jaja fint nok! Så på din logged_in.asp skal du bare skrive:

Du er logget ind som: <%= Session(\"brugernavn\") %>

Zeth --- Det havde du sQ ret i... 1000 tak!!
</RealOne>

sådan udskriver du brugernavnet ud fra din kode:
<%=session(\"brugernavn\")%>

Der:
<font face=\"verdana\" size=\"1\"><b>Logget på som: <% = Session(\"Brugernavn\") %></font>

tpiil --- Lidt for sent... Desværre.. Bedre held næste gang..  ;o)
</RealOne>

ups...

Det er ordnet nu, tak for hjælpen...

næste gang er kun 1 gang om måneden, jeg vil hellere lave ting for cash, så jeg er normalt ikke på eksperten, men jeg kom lige forbi :)