i got this error when i try to save the data to the database:
Microsoft JET Database Engine (0x80040E09)
Cannot update. Database or object is read-only.
/New/frmSubmitBarrelAsher.asp, line 26 [red]


line 26 code is=
 rsCommon.AddNew

i checked my database properties setting & it was fine.

im a newbie in ASP.

im using ASP,JavaScript & Access 2003;

this is my code:
<% Option Explicit %>

<%
Dim strUserName
strUserName= request.QueryString("UserLogin")

Dim strEquipId
strEquipId= Request.QueryString("EquipId")

Dim stringComment
stringComment=Request.Form("txtHiddenCommentValue" )
if stringComment="" then
    stringComment="NA"
end if

Dim strdmsversion
strdmsversion =session("sverion")

strSQL= "SELECT * FROM tbl_BarrelAsher;"

rsCommon.CursorType = 2
rsCommon.LockType = 3
rsCommon.Open strSQL,adoCon


    rsCommon.AddNew
    rsCommon.Fields("CurDate") = now()
    rsCommon.Fields("PMDate") = Request.Form("txtHPMDateTime")
    rsCommon.Fields("EAE")= strUserName
    rsCommon.Fields("EquipID") = strEquipId


    if Request.Form("txtPTempPC1Before") <> "" then
        rsCommon.Fields("TempPC1Before") = Request.Form("textTempPC1Before")
    else
        rsCommon.Fields("TempPC1Before") = null
    end if


    if Request.Form("textPTempPC1After") <> "" then
        rsCommon.Fields("TempPC1PC1After") = Request.Form("textTempPC1After")
    else
        rsCommon.Fields("TempPC1After") = null
    end if


    if Request.Form("CommentTempPC1") <> "" then
    rsCommon.Fields("TempPC1Comment") = Request.Form("CommentTempPC1")
    else
    rsCommon.Fields("TempPC1Comment") = null
    end if



    if Request.Form("textTempPC2Before") <> "" then
    rsCommon.Fields("TempPC2Before") = Request.Form("textTempPC2Before")
    else
    rsCommon.Fields("TempPC2Before") = null
    end if

    if Request.Form("textTempPC2After") <> "" then
    rsCommon.Fields("TempPC2After") = Request.Form("textTempPC2After")
    else
    rsCommon.Fields("TempPC2After") = null
    end if

        if Request.Form("CommentTempPC2") <> "" then
    rsCommon.Fields("TempPC2Comment") = Request.Form("CommentTempPC2")
    else
    rsCommon.Fields("TempPC2Comment") = null
    end if

    rsCommon.Fields("rRedB") = Request.Form("radioRedBefore")
    if Request.Form("radioRedBefore")<> "" then
    rsCommon.Fields("rRedB") = Request.Form("radioRedBefore")
    else
    rsCommon.Fields("rRedB") = null
    end if

    rsCommon.Fields("rRedA") = Request.Form("radioRedAfter")
    if Request.Form("radioRedAfter")<> "" then
       rsCommon.Fields("rRedA") = Request.Form("radioRedAfter")
        else
    rsCommon.Fields("rRedA") = null
    end if

    if Request.Form("CommentSignalRed") <> "" then
    rsCommon.Fields("SignalRedComment") = Request.Form("CommentSignalRed")
    else
    rsCommon.Fields("SignalRedComment") = null
    end if


    rsCommon.Fields("rAmberB") = Request.Form("radioAmberBefore")
    if Request.Form("radioAmberBefore")<> "" then
    rsCommon.Fields("rAmberB") = Request.Form("radioAmberBefore")
    else
    rsCommon.Fields("rAmberB") = null
    end if


    rsCommon.Fields("rAmberA") = Request.Form("radioAmberAfter")
    if Request.Form("radioAmberAfter") <> "" then
    rsCommon.Fields("rAmberA") = Request.Form("radioAmberAfter")
    else
    rsCommon.Fields("rAmberA") = null
    end if

    if Request.Form("CommentSignalAmber") <> "" then
    rsCommon.Fields("SignalAmberComment") = Request.Form("CommentSignalAmber")
    else
    rsCommon.Fields("SignalAmberComment") = null
    end if

    rsCommon.Fields("rGreenB") = Request.Form("radioGreenBefore")
    if Request.Form("radioGreenBefore") <> "" then
    rsCommon.Fields("rGreenB") = Request.Form("radioGreenBefore")
    else
    rsCommon.Fields("rGreenB") = null
    end if

    rsCommon.Fields("rGreenA") = Request.Form("radioGreenAfter")
    if Request.Form("radioGreenAfter") <> "" then
    rsCommon.Fields("rGreenA") = Request.Form("radioGreenAfter")
        else
    rsCommon.Fields("rGreenA") = null
    end if

    if Request.Form("CommentSignalGreen") <> "" then
    rsCommon.Fields("SignalGreenComment") = Request.Form("CommentSignalGreen")
    else
    rsCommon.Fields("SignalGreenComment") = null
    end if

    rsCommon.Fields("rPC1LeakB") = Request.Form("radioPC1LeakBefore")
    if Request.Form("radioPC1LeakBefore") <> "" then
    rsCommon.Fields("rPC1LeakB") = Request.Form("radioPC1LeakBefore")
    else
    rsCommon.Fields("rPC1LeakB") = null
    end if

    rsCommon.Fields("rPC1LeakA") = Request.Form("radioPC1LeakAfter")
    if Request.Form("radioPC1LeakAfter") <> "" then
    rsCommon.Fields("rPC1LeakA") = Request.Form("radioPC1LeakAfter")
    else
    rsCommon.Fields("rPC1LeakA") = null
    end if

    rsCommon.Fields("PC1LeakComment") = Request.Form("CommentPC1Leak")
    if Request.Form("CommentPC1Leak") <> "" then
    rsCommon.Fields("PC1LeakComment") = Request.Form("CommentPC1Leak")
    else
    rsCommon.Fields("PC1LeakComment") = null
    end if

    rsCommon.Fields("rPC1PowerB") = Request.Form("radioPC1PowerBefore")
    if Request.Form("radioPC1PowerBefore") <> "" then
    rsCommon.Fields("rPC1PowerB") = Request.Form("radioPC1PowerBefore")
    else
    rsCommon.Fields("rPC1PowerB") = null
    end if

    rsCommon.Fields("rPC1PowerA") = Request.Form("radioPC1PowerAfter")
    if Request.Form("radioPC1PowerAfter") <> "" then
    rsCommon.Fields("rPC1PowerA") = Request.Form("radioPC1PowerAfter")
    else
    rsCommon.Fields("rPC1PowerA") = null
    end if

    rsCommon.Fields("PC1PowerComment") = Request.Form("CommentPC1Power")
    if Request.Form("CommentPC1Power") <> "" then
    rsCommon.Fields("PC1PowerComment") = Request.Form("CommentPC1Power")
    else
    rsCommon.Fields("PC1PowerComment") = null
    end if

    rsCommon.Fields("PressurePC1Before") = Request.Form("textPC1Npn2PressureBefore")
    if Request.Form(" textPC1Npn2PressureBefore") <> "" then
    rsCommon.Fields("PressurePC1Before") = Request.Form("textPC1Npn2PressureBefore")
    else
    rsCommon.Fields("PressurePC1Before") = null
    end if

    rsCommon.Fields("PressurePC1After") = Request.Form("textPC1Npn2PressureAfter")
    if Request.Form("textPC1Npn2PressureAfter") <> "" then
    rsCommon.Fields("PressurePC1After") = Request.Form("textPC1Npn2PressureAfter")
    else
    rsCommon.Fields("PressurePC1After") = null
    end if

    rsCommon.Fields("PressurePC1Comment") = Request.Form("CommentPressurePC1")
    if Request.Form("CommentPressurePC1") <> "" then
    rsCommon.Fields("PressurePC1Comment") = Request.Form("CommentPressurePC1")
    else
    rsCommon.Fields("PressurePC1Comment") = null
    end if


    rsCommon.Fields("rPC2LeakB") = Request.Form("radioPC2LeakBefore")
    if Request.Form("radioPC2LeakBefore") <> "" then
    rsCommon.Fields("rPC2LeakB") = Request.Form("radioPC2LeakBefore")
    else
    rsCommon.Fields("rPC2LeakB") = null
    end if

    rsCommon.Fields("rPC2LeakA") = Request.Form("radioPC2LeakAfter")
    if Request.Form("radioPC2LeakAfter") <> "" then
    rsCommon.Fields("rPC2LeakA") = Request.Form("radioPC2LeakAfter")
    else
    rsCommon.Fields("rPC2LeakA") = null
    end if

    rsCommon.Fields("PC2LeakComment") = Request.Form("CommentPC2Leak")
    if Request.Form("CommentPC2Leak") <> "" then
    rsCommon.Fields("PC2LeakComment") = Request.Form("CommentPC2Leak")
    else
    rsCommon.Fields("PC2LeakComment") = null
    end if

    rsCommon.Fields("rPC2PowerB") = Request.Form("radioPC2PowerBefore")
    if Request.Form("radioPC2PowerBefore") <> "" then
    rsCommon.Fields("rPC2PowerB") = Request.Form("radioPC2PowerBefore")
    else
    rsCommon.Fields("rPC2PowerB") = null
    end if

    rsCommon.Fields("rPC2PowerA") = Request.Form("radioPC2PowerAfter")
    if Request.Form("radioPC1PowerAfter") <> "" then
    rsCommon.Fields("rPC2PowerA") = Request.Form("radioPC2PowerAfter")
    else
    rsCommon.Fields("rPC2PowerA") = null
    end if

    rsCommon.Fields("PC2PowerComment") = Request.Form("CommentPC2Power")
    if Request.Form("CommentPC1Power") <> "" then
    rsCommon.Fields("PC2PowerComment") = Request.Form("CommentPC2Power")
    else
    rsCommon.Fields("PC2PowerComment") = null
    end if

    rsCommon.Fields("PressurePC2Before") = Request.Form("textPC2Npn2PressureBefore")
    if Request.Form(" textPC2Npn2PressureBefore") <> "" then
    rsCommon.Fields("PressurePC2Before") = Request.Form("textPC2Npn2PressureBefore")
    else
    rsCommon.Fields("PressurePC2Before") = null
    end if

    rsCommon.Fields("PressurePC2After") = Request.Form("textPC2Npn2PressureAfter")
    if Request.Form("textPC2Npn2PressureAfter") <> "" then
    rsCommon.Fields("PressurePC2After") = Request.Form("textPC2Npn2PressureAfter")
    else
    rsCommon.Fields("PressurePC2After") = null
    end if

    rsCommon.Fields("PressurePC2Comment") = Request.Form("CommentPressurePC2")
    if Request.Form("CommentPressurePC2") <> "" then
    rsCommon.Fields("PressurePC2Comment") = Request.Form("CommentPressurePC2")
    else
    rsCommon.Fields("PressurePC2Comment") = null
    end if

    rsCommon.Fields("rNoiseB") = Request.Form("radioPC2NoiseBefore")
    if Request.Form("radioPC2NoiseBefore") <> "" then
        rsCommon.Fields("rNoiseB") = Request.Form("radioPC2NoiseBefore")
        else
    rsCommon.Fields("rNoiseB") = null
    end if

    rsCommon.Fields("rNoiseA") = Request.Form("radioPC2NoiseAfter")
    if Request.Form("radioPC2NoiseAfter") <> "" then
    rsCommon.Fields("rNoiseA") = Request.Form("radioPC2NoiseAfter")
    else
    rsCommon.Fields("rNoiseA") = null
    end if

    rsCommon.Fields("PC2NoiseComment") = Request.Form("CommentPC2Noise")
    if Request.Form("CommentPC2Noise") <> "" then
    rsCommon.Fields("PC2NoiseComment") = Request.Form("CommentPC2Noise")
    else
    rsCommon.Fields("PC2NoiseComment") = null
    end if

    rsCommon.Fields("PCWFlowrateBefore") = Request.Form("textPCWFlowratebefore")5:09 PM 12/8/2007
    if Request.Form("textPCWFlowratebefore") <> "" then
    rsCommon.Fields("PCWFlowrateBefore") = Request.Form("textPCWFlowratebefore")
    else
    rsCommon.Fields("PCWFlowrateBefore") = null
    end if

    if Request.Form("textPCWFlowrateAfter") <> "" then
    rsCommon.Fields("PCWFlowrateAfter") = Request.Form("textPCWFlowrateAfter")
    else
    rsCommon.Fields("PCWFlowrateAfter") = null
    end if


    rsCommon.Fields("PCWFlowComment") = Request.Form("CommentPCWFlow")
    if Request.Form("CommentPCWFlow") <> "" then
    rsCommon.Fields("PCWFlowComment") = Request.Form("CommentPCWFlow")
    else
    rsCommon.Fields("PCWFlowComment") = null
    end if

    if Request.Form("textareaTechInfo") <> "" then
    rsCommon.Fields("TempPC1Comment") = Request.Form("txtHiddenCommentValue")
    else
    rsCommon.Fields(TempPC1Comment") = null
    end if

    rsCommon.Fields("Spec") = Request.Form("textareaTechInfo")
    rsCommon.Fields("dms_version") = strdmsversion
    rsCommon.Fields("LastModifyDate") = now()
    rsCommon.Update

    rsCommon.Requery

    Response.Redirect "EquipSelection.asp?UserLogin=" & strUserName

%>

Hi there,

Take a look here: http://imar.spaanjaars.com/QuickDocId.aspx?quickdoc=263

Cheers,

Imar
---------------------------------------
Imar Spaanjaars
http://Imar.Spaanjaars.Com
Everyone is unique, except for me.
Author of ASP.NET 2.0 Instant Results and Beginning Dreamweaver MX / MX 2004
Want to be my colleague? Then check out this post.

Thanks.
i solved my problem already.