kan du se hvorfor mine data ikke bliver sat ind i databasen

du se hvorfor mine data ikke bliver sat ind i databasen

<%
Response.Buffer = True
%>
            <%
Function CleanString(n)
    n = Replace(n, \"\'\", \"´\")
    n = Replace(n, chr(34), \"´\")   
    CleanString = n
End Function
%>
<%
        Nyhed = CleanString(Request.form( \"Nyhed\" ) )
        Forfatter = CleanString(Request.form( \"Forfatter\" ) )
        Billede = CleanString(Request.form( \"Billede\" ) )
Set Con = Server.CreateObject( \"ADODB.Connection\" )
DBPath = \"DBQ=\" & Server.MapPath( \"DB.mdb\" )
Con.Open \"Driver={Microsoft Access Driver (*.mdb)}; \" & DBPath
Sql = \"INSERT INTO Casm2000 (Dato, Nyhed, Forfatter, Billede) VALUES(\'\" & Date() & \"\',\'\" & nyhed( Nyhed ) & \"\',\'\" & Forfatter( Forfatter ) & \"\',\'\" & Billede( Billede ) & \"\')\"
Con.Execute Sql
%>
<HTML>
<HEAD>
<TITLE>
1
</TITLE>
</HEAD>
<BODY><BR><BR><BR>
<FORM action=\"content.asp\" method=\"POST\" target=\"_self\">
<p>   
<textarea name=\"Nyhed\" cols=\"50\" rows=\"5\"></textarea>
  </p>
  <p>
  <input type=\"text\" name=\"Forfatter\"> 
  </p>
  <p>
<input type=\"file\" name=\"Billede\">
  </p>
  <p>
    <input type=\"submit\" name=\"Submit\" value=\"Submit\">
  </p>
</FORM>
</BODY>
</HTML>