Document ???

Hvorfor kan jeg ikke få dette til at virke:
-------------------------------------

<script language="JavaScript">
<!--
  function Send() {
            document.submit_message.tmpmessage.focus();
      document.submit_message.tmpmessage.value = document.submit_message.tmpmessage.value;
      Session("Send") = document.submit_message.tmpmessage.value;
  }
-->
</script>
<script language="JavaScript">
<!--
  function ClearAndFocus() {
    document.submit_message.tmpmessage.focus();
    document.submit_message.tmpmessage.value = document.submit_message.tmpmessage.value;
    document.submit_message.tmpmessage.value = "";
  }
-->
</script>
<IFRAME SRC="Message.asp?mode=Chat" name="chat" Width="650" heigh="400"></IFRAME>
<FORM method=POST name="submit_message" action="Message.asp?mode=send" target="chat" onsubmit="Send;ClearAndFocus()">
<INPUT type=text size=50 name="tmpmessage" maxlength=150>
<INPUT TYPE="submit" VALUE="Send besked" NAME="submit_button">
</FORM>
-------------------------------------


Koden jeg bruger til at hente og sende:
-------------------------------------
<%
Mode = Request("Mode")

Dim DB
DB = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\clansite.dk_x6z7um\wwwroot\db\chat.mdb;"
%>

<!-- Chatten - Start -->
<% If mode = "Chat" then %>
<META HTTP-EQUIV="Refresh" CONTENT="5; URL=http://www.clansite.dk/chat/message.asp?mode=Chat">
<%
Set Con = Server.CreateObject("ADODB.Connection")
Con.open DB

Sql = "SELECT TOP 10 * FROM Beskeder ORDER BY Tid DESC"
set rs = Con.execute( Sql )
%>
<% Do Until rs.eof %>
<%=Rs("Tid")%>|<%=Rs("Nick")%>:&nbsp;&nbsp;<%=Rs("Besked")%> <BR>
<% rs.movenext
  loop %>
<% End If %>
<!-- Chatten - Slut -->



<!-- Sender besked - Start -->
<% If mode = "send" then %>
<%
Set Con = Server.CreateObject("ADODB.Connection")
Con.open DB

Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "SELECT * FROM Beskeder"
rs.Open Sql, Con, 1, 3

Rs.AddNew
Rs("Tid") = Time()
Rs("Nick") = Session("Bruger")
Rs("Besked") = Server.HTMLEncode(Session("Send"))
Rs.Update

Response.Redirect("Message.asp?mode=Chat")
%>
<% End If %>
<!-- Sender besked - Slut -->




Håber du kan hjælpe !