fejl ved skrivning til db

hej eksperter ;o)

jeg har et problem skal skrive til en database og gemme fra 3 eller 4 form felter. det er til en news funktion hvor det skal være muligt at tilføje en "more" funktion. denne bliver selv tilføjet hvis feltet det valgfrie form felt bliver udfyldt. hvordan gør jeg dette smartest? jeg har valgt at bruge en lidt kluntet metode så har i gode ideer så bare kom med dem!

har denne kode:

<%


'if the user have submitted the formular
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
   
'checks to make sure all fields have been filled out
    if (Request.Form("headline") <> "" AND Request.Form("body") <> "" AND Request.Form("narrator") <> "") then
    Response.buffer = True
    Select Case Request.Form("moreBody")
    Case ""

'creates connection to database
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From news"
rs.Open strSQL, Conn, 1, 3

strBody = Replace(Replace(Request.Form("body"),vbCrLf,"<BR>"),"'","''")

If Request.Form("bold") = "on" Then
strheadline = Replace("<B>" & request.Form("Headline") & "</B>","'","''")
Else
strHeadline = Replace(Request.Form("headline"),"'","''")
End If

rs.AddNew
rs("headline") = strHeadline
rs("body") = strbody
rs("morebody") = "o"
rs("narrator") = Replace(Request.form("narrator"),"'","''")
rs("Date") = Request.form("date")
rs.update
Response.Write "<FONT COLOR=""green"">you have added a topic to the news section </FONT><BR>"   
    rs.Close
    set rs = nothing
    Case Else


'creates connection to database
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From news"
rs2.Open strSQL, Conn, adOpenKeyset, adCmdText

strBody = Replace(Replace(Request.Form("body"),vbCrLf,"<BR>"),"'","''")
strmoreBody = Replace(Replace(Request.Form("morebody"),vbCrLf,"<BR>"),"'","''")

If Request.Form("bold") = "on" Then
strheadline = Replace("<B>" & request.Form("Headline") & "</B>","'","''")
Else
strHeadline = Replace(Request.Form("headline"),"'","''")
End If

rs2.AddNew
rs2("headline") = strHeadline
rs2("body") = strbody
rs2("morebody") = strmorebody
rs2("narrator") = Replace(Request.form("narrator"),"'","''")
rs2("Date") = Request.form("date")
rs2.update
Response.Write "<FONT COLOR=""green"">you have added a topic with More function to the news section </FONT><BR>"   

   
    rs2.Close
    set rs2 = nothing
        End Select
    else
    Response.Write"<FONT COLOR='red'>Some fields haven't been filled out</font><BR>"
   
    end if
    end if
%>

for denne fejl:

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Databasen eller objektet er skrivebeskyttet og kan ikke opdateres.
/vghk/UPDATE/admin/news.asp, line 65


Browsertype:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Side:
POST 120 bytes to /vghk/UPDATE/admin/news.asp

POST Data:
headline=gghfghdfdfhdgh&bold=on&body=gfgfhfghgfhdfghfg+dfh++dfhg+hgd&morebody=&narrator=dfhfgh+fghdf+&date=h+gfh+fgh+dfg

please help me out
hilsen Angeldust83