Tilføj pos til database

Hvad er der galt med denne kode: (Jeg er nybegynder)

-------------indlaeg.asp-----------------

<%
Response.Buffer = True

\' Fikser quotes
FUNCTION fixQuotes( theString )
    fixQuotes = Replace( theString, \"\'\", \"\'\'\" )
END FUNCTION

\' Hent data fra formular   
    Overskrift = Request( \"Overskrift\" )
    Navn = Request( \"Navn\" )
    Info = Request( \"Info\" )

\' Connection til database.    
Set Con = Server.CreateObject( \"ADODB.Connection\" )
    DBPath = \"DBQ=\" & server.mappath(\"info.mdb\")
    Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

\' Overfør til databasen
IF Request.Servervariables(\"Content_Length\") > 0 THEN
    Sql = \"INSERT INTO info (Dato, Overskrift, Info, Navn,) VALUES(\'\" & Date() & \"\',\'\" & fixQuotes( Overskrift ) & \"\',\'\" & fixQuotes( Info ) & \"\',\'\" & fixQuotes( Navn ) & \"\')\"
    Con.Execute Sql

\' Tilføjet, Besked
    Response.Write \"<strong>Din information er ny tilføjet til databasen....</strong>\"
   
END IF

%>

<html>
<head>
    <title>Nyhedsting</title>
</head>

<body>

<form action=\"indlaeg.asp\" method=\"POST\" target=\"_self\">
<table border=\"0\" width=\"600\">
    <tr>
        <td valign=\"top\" width=\"150\">Overskrift</td>
        <td><input type=\"text\" name=\"Overskrift\" size=\"20\"></td>
    </tr>
    <tr>
        <td>Navn</td>
        <td><input type=\"text\" name=\"Navn\" size=\"20\"></td>
    </tr>
    <tr>
        <td>Info</td>
        <td><textarea rows=\"2\" name=\"Info\" cols=\"20\"></textarea></td>
    </tr>
    <tr>
        <td colspan=\"2\" align=\"center\"><input type=\"submit\" value=\"Tilføj\"></td>
    </tr>
</table>
</form>

</body>
</html>