Gæt automatisk brugernavn ind på tagwall

ok.. jeg skal have det her script til selv at skrive brugerens navn som den der skriver beskeden i tagwallen.. ?? hvordan gør man.. er der nogen der er flinke lige at lave det for mig?? har bøvlet i 4 timer nu!! altså i den box der hedder "navn"(den skal være skjult) skal den selv skrive det navn som brugeren er logget ind som..!!

her er koden.. og den skal bruges på http://plentyforce.dk/id13/?site=login/wall


<%
If Request.Querystring("mode") = "write" then

Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = dsn & "DBQ=" & server.mappath("../../db/street.mdb")
DataConn.Open DSN

Set tagwall = Server.CreateObject("ADODB.RecordSet")
tagwall.open "Select * From [wall] Order by id", DataConn, 1, 3 

tagwall.addnew
tagwall.Fields("navn") = trim(request.form("navn"))
tagwall.Fields("dato") = date()
tagwall.Fields("text") = Request("text")
tagwall.update
response.redirect "index.asp?id=tagwall"

Elseif Request.Querystring("mode") = "del" then
id = Request.Querystring("id")

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../db/street.mdb") 

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * FROM member_wall WHERE ID=" & id
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
Rs.delete
response.redirect "index.asp"
Else
%>

<%
Response.Expires = 0

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../db/street.mdb")
Conn.Open DSN
SQL = "Select TOP 50 * from wall order by id DESC"
Set rs = Conn.Execute(SQL)

%>

  <div align="center">
  <center>

<table border="0" cellspacing="0" width="95%" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
    <tr>
      <td class="headline" height="21" width="843">
      <p align="left" style="margin-top: 0; margin-bottom: 0"><i><b>
      <font face="Times New Roman" size="4">//Gæstebog//</font></b></i></td>
    </tr>
    <tr>
      <td class="main" width="843">
<p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
<p style="margin-top: 0; margin-bottom: 0"><font face="Verdana" size="2">Dette
er så min ydmyge gæstebog.. (egen produktion :) ) Tag lige og <i>&quot;Tagge&quot;</i> en
en lille hilsen når du nu alligvel er herinde.. :)</font></p>
<p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" width="95%" cellspacing="0" cellpadding="0" height="158" style="border-collapse: collapse" bordercolor="#111111">
  <tr>
<font face="Verdana" size="2">
    <td width="18%" class="main" valign="top" height="46">
      <p align="right" style="margin-top: 0; margin-bottom: 0"><font face="Verdana" size="1">&nbsp;&nbsp;
      <p align="right" style="margin-top: 0; margin-bottom: 0">&nbsp;<p align="right" style="margin-top: 0; margin-bottom: 0">&nbsp;</font></td>
    <td width="82%" class="main" height="137" rowspan="3">
      <font face="Verdana" size="1">
      <form method="POST" action="tagwall.asp?mode=write">
<input type="hidden" name="navn" size="14" tabindex="1" style="background-color: #FFFFFF; font-family: Verdana; font-size: 10 pt; border: 1px solid #000000" value="<% session(navn) %>"></font><p><font face="Verdana" size="1">
<input type="text" name="text" rows="6" cols="46" name="text" size="56" tabindex="1" style="background-color: #FFFFFF; font-family: Verdana; font-size: 10 pt; border: 1px solid #000000"></font></td>
  </tr>
  <tr>
    <td width="18%" class="main" valign="top" height="46">
      &nbsp;</td>
  </tr>
  <tr>
    <td width="18%" class="main" valign="top" height="45">
      &nbsp;</td>
  </tr>
  <tr>
<font face="Verdana" size="1">
    <td width="18%" class="main" height="12">
    </td>
    <td width="82%" class="main" height="12">
      </td>
    </font>
  </tr>
  <tr>
<font face="Verdana" size="1">
    <td width="18%" class="main" height="11">
      </td>
    <td width="82%" class="main" height="11">
      <font face="Verdana" size="1">
<input type="submit" name="submit" value="Indsæt" tabindex="2" style="background-color: #C0C0C0; font-family: Verdana; font-size: 9 pt; border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 2px solid #000000; border-bottom: 1px solid #000000; padding: 0; float:left"></font><p>
      </p>
      <p></p>
      <p></p>
      <p></p>
      <p></p>
      <p></p>
      <p></p>
      <p></td>
    </font>
    </form>
  </tr>
  </table>
      </center>
</div>
      </td>
    </tr>
  </table>
  </center>
</div>
<!--</div>
<div align="right">

<font face="Verdana" size="1">
<div align="center" style="width: 540; height: 72">-->

  <p style="margin-top: 0; margin-bottom: 0">
      <div align="center">
        <center>
      <table border="0" width="95%" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" height="118">
 
  <tr>
    <td valign="bottom" colspan="2" height="19" width="837">
    </td>
  </tr>
 
  <tr>
    <td valign="bottom" colspan="2" height="19" width="837">
    &nbsp;</td>
  </tr>
  <tr>
    <td valign="bottom" colspan="2" height="21" width="837">
      <p align="center"><b><font color="#FFFFFF">Tjek de 35 seneste Indlæg:</font></b></td>
  </tr>
  <% if rs.EOF then %>
  <tr>
    <td valign="bottom" colspan="2" height="19" width="837">
      <p align="center" style="margin-top: 0; margin-bottom: 0">Der er ikke nogen Tag's i
      Databasen</td>
  </tr>
  <% Else %>
    <% Do While NOT rs.EOF %>
  <tr>
    <td  valign="bottom" style="border-right-width: 1; border-bottom-width: 1; border-top-style:solid; border-top-width:1; border-left-style:solid; border-left-width:1" height="14" width="577" bgcolor="#E6E6E6">
    <p style="margin-top: 0; margin-bottom: 0" align="left"><font face="Verdana" size="2"><i>Navn: <%="<b><font=""#549786"">" & rs("navn") & "</font></b>" %> </i></font></td>
    <td  valign="bottom" style="border-left-width: 1; border-bottom-width: 1; border-top-style:solid; border-top-width:1; border-right-style:solid; border-right-width:1" height="14" width="260" bgcolor="#E6E6E6">
    <p style="margin-top: 0; margin-bottom: 0" align="center"><i>
    <font size="2" face="Verdana">Dato: <%=rs("dato")%>
      </font></i></td>
  </tr>
  <tr>
    <td colspan="2" valign="top" style="border-top-width: 1; border-bottom-width: 1; border-bottom-style:solid; border-left-style:solid; border-left-width:1; border-right-style:solid; border-right-width:1" height="19" width="837" bgcolor="#E6E6E6" ><font size="2" face="Verdana" color="#000000">
    <%response.write rs("text")
    'response.write replace(rs("text"),"<","&lt;")%></font>&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2" valign="top" style="padding-left: 3; padding-right: 3" height="21" width="831">
    <p style="margin-top: 0; margin-bottom: 0" align="center"></td>
  </tr>
  <% RS.MoveNext
    Loop
    %>
<% end if %>
<% end if %>
  <tr>
    <td colspan="2" valign="top" style="padding-left: 3; padding-right: 3" height="21" width="831">
    &nbsp;</td>
  </tr>
  </table>
        </center>
</div>
</div>