Er jeg dum ?

Jeg kan ikke få det til at virke... Jeg går snart helt amok.... Den kommer ikke med nogle fejl, den skriver bare ikke til databasen !!



<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&text=<%=Request.Form("tmpmessage")%>" target="chat" onsubmit="ClearAndFocus()">
<INPUT type=text size=50 name="tmpmessage" maxlength=150>
<INPUT TYPE="submit" VALUE="Send besked" NAME="submit_button">
</FORM><%=Session("Send")%><%=Request.Form("tmpmessage")%>







--------------
<%
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") = Request.Querystring("Text")
Rs.Update

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



Håber i kan hjælpe !