Gider ikke alt vise !!

hejza jeg kan ikke få mit ti lat vis det jeg skal bruge men nu vil jeg lige høre en om havd jeg skal gøre !!! her er min kode !!!

<html>

<head>
<%

Mode = Request("mode")

If Mode = "login" Then
%>
<script language="JavaScript">
<!--
window.open('chat.asp?mode=login&chatname=<%= Request("chatname") %>','','width=800,height=600');
location.href=".";
// -->
</script>
<%
Else
%>
<style type="text/css">
body {
font-family: Verdana;
font-size: 8 pt
}
td {
font-family: Verdana;
font-size: 8 pt
}
a {
text-decoration: none
}
</style>
<script language="JavaScript">
<!--

function CheckLogin() {
if (document.loginFrm.chatname.value == "") {document.loginFrm.chatname.focus();return false;}
}

// -->
</script>
</head>
<!-- #include file="faver.inc" -->

<body bgcolor="black" text="<%= TextColor2 %>" link="<%= LinkColor2 %>" alink="<%= LinkColor2 %>" vlink="<%= LinkColor2 %>">

<center>
            <table border="0" cellspacing="0" cellpadding="5">
                    <tr>
                      <form method="POST" action="login2.asp" name="loginFrm" onsubmit="java script:return CheckLogin();">
                      <input type="hidden" name="mode" value="login">
                      <td valign="middle" align="left"><input type="text" name="chatname" size="20" maxlength="15" style="font-family: Verdana; font-size: 8 pt"></td>
                      <td valign="middle" align="left"><input type="submit" value="Login" style="font-family: Verdana; font-size: 8 pt"></td>
                      </form>
                    </tr>
                    <td>Ret Profil:</td>
                    <td><a href="ret.asp">Klik Her</a></td>
                  </table>

<%
End if
%>
</center>
</body>
</html>

jeg skal have et bruger navn til at stå i min <input type=text name=chatname>

alså når man logger ind mig denne her kode !!!

<%@ Language=VBScript %>
<% mode = request("mode") %>
<% if mode = "" then %>
<%
Session("brugernavn") = request.form("brugernavn")
Session("password") = request.form("password")
%>
<%
set Conn = Server.createobject("adodb.connection")
conn.Open "DBQ="& Server.MapPath(".") &"/database.mdb; DefaultDir=DBQ="& Server.MapPath("/") &";Driver={Microsoft Access Driver (*.mdb)};"

Response.Buffer = True

Function checklogin(brugernavn,password)
    set tjek = Conn.Execute("SELECT * FROM bruger WHERE brugernavn = '"& brugernavn &"' AND password = '"& password &"'")
    If tjek.EOF THEN
        Response.Write "<center><FONT FACE=Verdana SIZE=4 COLOR=#FF0000><B>Brugernavn ellers password er forkert</B></FONT></center>"
    Else
        Session("login") = tjek("id")
        Response.Redirect("login2.asp")
    End If
End Function

Function sqlreplace(streng)
    sqlreplace = Replace(streng,"'","''")
End Function
REM Diverse funktioner slut
%>

<html>

<head>
<style type="text/css">
body {
font-family: Verdana;
font-size: 8 pt
}
td {
font-family: Verdana;
font-size: 8 pt
}
a {
text-decoration: none
}
</style>

</head>
<!-- #include file="faver.inc" -->
<body bgcolor="black" text="<%= TextColor2 %>" link="<%= LinkColor2 %>" alink="<%= LinkColor2 %>" vlink="<%= LinkColor2 %>">


            <% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then checklogin sqlreplace(Request.Form("brugernavn")),sqlreplace(Request.Form("password")) %>
            <TABLE>
              <TR> <FORM ACTION="login.asp" METHOD="POST">
                <TD class="skrift">Brugernavn: </TD>
                <TD>
                  <INPUT TYPE="text" SIZE="20" NAME="brugernavn" CLASS="bottom">
                </TD>
              </TR>
              <TR>
                <TD class="skrift">Password: </TD>
                <TD>
                  <INPUT TYPE="password" SIZE="20" NAME="password" CLASS="bottom">
                </TD>
              </TR>
              <TR>
              <TR>
                <TD COLSPAN="2" ALIGN="RIGHT">
                  <INPUT TYPE="submit" VALUE="    Login    " CLASS="bottom">
                </TD></FORM>
              </TR>
            </TABLE>
</body>
</html>
<% end if %>

vis i vil have fleger koder siger i bare lige til oki ses