Microsoft JET Database Database Engine (0x80040E09
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
%>
|
