HTTP 405 - Ressourcen er ikke tilladt

<%
if not request.form("plusdbog") = "" then
    Function fncTextChange(strText)
        Dim strTemp
          strTemp = Trim(strText)
            strTemp = Replace(strTemp,"""","''")
        strTemp = Replace(strTemp,"'","''")
        'strTemp = HTMLEncode(strTemp)
        fncTextChange = strTemp 
    End Function

    indhold = fncTextChange(request.form("tekst"))
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db/dagbog123412341234234.mdb")
    Conn.Open DSN
    sql = "Insert into dagbog(titel, tekst, dato) VALUES('"&request.form("titel")&"','"&request.form("tekst")&"','"&now()&"')"
    set rs = conn.execute(sql)
    set rs = nothing
end if
%>







<form action="admin" method="post">
Titel på din dagbogs indlæg<br>
<input type="text" name="titel"><br>
Dit Dagbogs indlæg<br>
  <textarea cols="100" rows="30" name="tekst"></textarea>
  <br>
  <br>
<input type="submit" name="plusdbog" value="Tilføj">
</form>