Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > ASP.NET and ASP > ASP 3 Classic ASP Active Server Pages 3.0 > Classic ASP Professional
Password Reminder
Register
Register | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
Classic ASP Professional For advanced coder questions in ASP 3. NOT for ASP.NET 1.0, 1.1, or 2.0.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Classic ASP Professional section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developersí questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Reply
 
Thread Tools Display Modes
  #1 (permalink)  
Old December 8th, 2007, 09:59 AM
Registered User
 
Join Date: Dec 2007
Location: , , .
Posts: 6
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via AIM to cannielynn0312 Send a message via Yahoo to cannielynn0312
Default 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

%>


Reply With Quote
  #2 (permalink)  
Old December 8th, 2007, 01:05 PM
Imar's Avatar
Wrox Author
Points: 71,768, Level: 100
Points: 71,768, Level: 100 Points: 71,768, Level: 100 Points: 71,768, Level: 100
Activity: 100%
Activity: 100% Activity: 100% Activity: 100%
 
Join Date: Jun 2003
Location: Utrecht, Netherlands.
Posts: 17,031
Thanks: 80
Thanked 1,580 Times in 1,557 Posts
Default

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.
Reply With Quote
  #3 (permalink)  
Old December 17th, 2007, 01:50 AM
Registered User
 
Join Date: Dec 2007
Location: , , .
Posts: 6
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via AIM to cannielynn0312 Send a message via Yahoo to cannielynn0312
Default

Thanks.
i solved my problem already.


Quote:
quote:Originally posted by Imar
 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.
Reply With Quote
Reply


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
Microsoft JET Database Engine (0x80040E09) u813222 Classic ASP Professional 12 April 3rd, 2007 01:27 PM
Database Error: Microsoft Jet Engine asters ASP.NET 1.0 and 1.1 Professional 2 April 3rd, 2007 09:33 AM
Microsoft JET Database Engine (0x80040E07) gwalker_ne8 Classic ASP Databases 2 November 11th, 2006 08:32 AM
Microsoft JET Database Engine (0x80040E14) tks_muthu Classic ASP Databases 5 January 1st, 2005 09:17 PM
Microsoft JET Database Engine (0x80040E07) aa Classic ASP Databases 5 August 17th, 2004 07:53 PM



All times are GMT -4. The time now is 06:51 AM.


Powered by vBulletin®
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.