Tagwall fejl??

jeg er ved at lave en tagwall for en side... men jeg er ik helt sikker på det område... den melder fejl.. :
http://www.plentyforce.dk/id13/?site=login/wall

og her er scriptet...:
<%
Response.Expires = 0
'tjekker lige om brugeren overhovedet må se indholdet på den her side
if session("login") = true then
%>
<%
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(session("navn"))
tagwall.Fields("dato") = date()
tagwall.Fields("text") = Request("text")
tagwall.update
response.redirect "?site=login/wall
%>
<%
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)
%>

<p align="center"><font color="#000000"><br>
<br>
<div align="center">
<form method="POST" action="?site=login/wall&mode=write">
<p align="center">
&nbsp;
<table border="0" width="90%" cellspacing="0" cellpadding="0" height="50">
  <tr>
    <td class="txt" width="100%" style="border: 1px solid #000000; " valign="middle">
      <p align="center">
<input type="text" name="text" size="56" tabindex="1" style="background-color: #EFF2F9; color: #000000; font-family: Verdana; font-size: 10 pt; border: 1px solid #000000; ">
<input type="submit" name="submit" value="[TaG]" tabindex="2" style="background-color: #EFF2F9; color: #000000; 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">
      </td>
  </tr>
</table>
</form>
<p align="center">
<br>
<font color="#000000">
Her udskrives de 50 seneste Tag's</font></font>
<table border="0" width="90%" cellspacing="0" cellpadding="0">
  <% if rs.EOF then %>
  <tr>
    <td width="100%" class="headline" valign="bottom" colspan="3" style="border: 1px solid #000000; ">
      <p align="center">Der er ikke nogen Tag's i
      Databasen</td>
  </tr>
  <% Else %>

    <% Do While NOT rs.EOF
    sql2 = "Select * from users where navn= '" & rs("navn") & "'"
    set rs2 = conn.Execute(SQL2)%>
<%
nohtmltext = replace(rs("text"),"<","&lt;")

nissetext = replace(nohtmltext, "N:) ", "<img src='smileys/wpenis.gif'> ")
smtext = replace(nissetext, ":)", "<img src='smileys/wpe9.gif'>")
sm2text = replace(smtext, ":-)", "<img src='smileys/wpe9.gif'>")
sm3text = replace(sm2text, ":]", "<img src='smileys/wpe9.gif'>")
sm4text = replace(sm3text, ":o)", "<img src='smileys/wpe9.gif'>")
sm5text = replace(sm4text, ";)", "<img src='smileys/wink2.gif'>")
sm6text = replace(sm5text, ";-)", "<img src='smileys/wink2.gif'>")
sm7text = replace(sm6text, ";o)", "<img src='smileys/wink2.gif'>")
sm8text = replace(sm7text, ":o", "<img src='smileys/wpeB.gif'>")
sm9text = replace(sm8text, ":-o", "<img src='smileys/wpeB.gif'>")
sm10text = replace(sm9text, "8-)", "<img src='smileys/wpecool.gif'>")
sm11text = replace(sm10text, "8]", "<img src='smileys/wpecool.gif'>")
sm12text = replace(sm11text, "8)", "<img src='smileys/wpecool.gif'>")
sm13text = replace(sm12text, "8o)", "<img src='smileys/wpecool.gif'>")
oltext = replace(sm13text, "!øl", "<img src='smileys/beer2.gif'> ")



text = oltext
%>
 
 
  <tr>
    <td width="454" class="headline" valign="bottom" style="border-left: 1px solid #000000; border-top: 1px solid #000000; "><p><i>Nick:
    <% if NOT rs2.EOF then %>
      <a href="?site=members&mode=show&id=<%=rs2("id")%>"><%=rs("navn")%></a>
    <% Else %>
      <%=rs("navn")%>
    <% End If %>
    </i>
    </td>
    <td width="129" class="headline" valign="bottom" style="border-top: 1px solid #000000; "><p align="right"><i>Dato: <%=rs("dato")%>
      </font></i></td>
    <td class="headline" valign="middle" style="border-right: 1px solid #000000; border-top: 1px solid #000000; ">
      <p align="right">&nbsp;<% if session("site_status") = 1 then %><a href="?site=member_wall&mode=del&id=<%= rs("id")%>"><img border="0" src="../../../TB-ZONE.DK/icon_trashcan.gif" width="12" height="12"></a><% end if %></td>
  </tr>
  <tr>
    <td width="678" class="txt" colspan="3" valign="top" style="border: 1px solid #000000; padding-left: 3; padding-right: 3"><p><%response.write text%></td>
  </tr>
  <tr>
    <td width="680" colspan="3" valign="top" style="border-top: 1px solid #000000; padding-left: 3; padding-right: 3" height="7"></td>
  </tr>

  <%
 
  RS.MoveNext
   
    Loop
    %>
<% end if %>
<% end if %>
</table>



hvad er der galt???