Varför sätts inget in här då?

hmm.... har funkat förut men den asså har lagt av :(

vill verkligen inte sätta in något i databasen... inga felmess :O denna kod ligger i en include fil... men det bör ju funka ändå...

<%
function bytaut (strMeddelande)
tmp = replace(tmp, vbcrlf, "<br>")
bytaut = tmp
end function

if request.form("username")<>"" and request.form("text")<>"" then

Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "INSERT INTO meddelande ([fran], [datum], [text], [subject], [username], [status],[sendid]) VALUES('" & Session("username") & "',#" & now & "#,'" & Request.Form("text") & "','" & Request.Form("subject") & "','" & Request.Form("username") & "','Oläst',1)"
response.write SQL
Databas.Execute(SQL)
%>
<script type="text/javascript" language="JavaScript">
<!--
alert("Ditt meddelande är skickat till <%=Request.Form("till")%>");
window.location = "mess1.asp";
//-->
</script>
<% else %><form name="meddelande" method="post" action="nyttmess2.asp">
<font face="Verdana" size="2"><font face="Verdana" size="1">Till: (anv&auml;ndarnamn)</font><br>
<input type="text" name="till" value="<%=request.querystring("till")%>" style="font-family:Verdana; font-size:10;"></font>
<br><font face="Verdana" size="1">Ämne:<br><input type="text" name="subject" style="font-family:Verdana; font-size:10;" value='<%=request.querystring("rubrik")%>(inget)'></span></font></p>
<font face="Verdana" size="1">Meddelandet:<br><textarea name="text" rows="9" cols="50" maxlenght="999" style="font-family:Verdana; font-size:10;"><%=request.querystring("meddelande")%>
</textarea><br>
<input type="submit" value="Skicka!" style="font-family:Verdana; font-size:10;"></form>
</form>
<% End If %>

------------------
grodan: Ligger nere just nu för att J*VLA trihost som inte har funkat bra, lägger ner! Kommer en ny version snart, vill du vara med? cristoffer@telia.com eller icq# 85371380