Ch 14 AdNew.asp example

pycockd · December 30th, 2004, 05:24 AM

I think I am having access permission problems running under Windows XP SP2.

The code is a s follows:
<%
  Option Explicit
  Dim strConnect
%>


<HTML>
<HEAD>
<TITLE>Adding a New Record</TITLE>
</HEAD>
<BODY>
<%
  Dim objRS, intIDForNewRecord
  Set objRS = Server.CreateObject ("ADODB.Recordset")
  objRS.Open "Movies", strConnect, adOpenStatic, adLockOptimistic, adCmdTable

  objRs.MoveFirst
  intIDForNewRecord = objRS("MovieID") + 1
Response.Write "strConnect: " & strConnect

  objRS.AddNew ' add a new record
  objRS("MovieID") = intIDForNewRecord
  objRS("Title") = "Psycho"
  objRS.Update
  objRS.Close

  objRS.Open "SELECT * FROM Movies WHERE MovieID=" & intIDForNewRecord, _
                   strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
  If objRS.EOF Then
    Response.Write "New record not found - something went wrong"
  Else
    Response.Write "You've successfully added a new record:<BR> " & _
                   "Movie title = '" & objRS("Title") & "'<BR>" & _
                   "MovieID = " & objRS("MovieID")
  End If

  objRS.Close ' now close and clean up
  Set objRS = Nothing
%>

</BODY>
</HTML>

The error message is:

Error Type:
Microsoft JET Database Engine (0x80040E09)
Cannot update. Database or object is read-only.
/BegASPFiles/AddNew.asp, line 23

So far as I can ascertain I have set execute, script and and write permissions to the tree to the data store.

I have similar problems with my own code.

Can you please advise?

JLo · November 1st, 2005, 05:38 AM

I'm having the same problem. Cannot append or update the database tables.

Chapter 14 p595 file AddNew.asp

Error Type:
Microsoft JET Database Engine (0x80040E09)
Cannot update. Database or object is read-only.
/BegASPFiles/AddNew.asp, line 23

Has anyone had this problem and solved it?

Thanks in advance

Aaagh F***ing Computer!

fizzbang · November 22nd, 2005, 04:30 PM

What is your code in DataStore.asp

mine is like this when I use access.

<%
  Dim strDatabaseType

  'Choose one of the following two lines, and comment out the other
  strDatabaseType = "Access"
  'strDatabaseType = "MSDE"

  'Now we use this selection to specify the connection string
  If strDatabaseType = "Access" Then
    strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                 "Data Source=C:\datastores\Movie2000.mdb;" & _
                 "Persist Security Info=False"
  Else
    strConnect = "Provider=SQLOLEDB;Persist Security Info=False;" & _
                 "User ID=sa;Initial Catalog=Movie;" & _
                 "Initial File Name=C:\MSSQL7\Data\Movie2000.mdf"
  End If
%>

PDALUX · January 16th, 2006, 04:12 PM

I am having this same problem. Has anyone fixed it?
Thanks

Joe Kerr · February 7th, 2006, 06:36 PM

Hi.

This may be be of help.

1) Locate the folder the database is in and right click on the FOLDER and select 'Properties'.
2) Goto the 'Security' tab on the top.
3) Click on the 'Add' button.
4) Highlight the 'IUSR_xxxxx' name (xxxxx will be your computer name) Then, click the 'Add' button, then the 'Ok' button.
5) Under the 'Permissions' section, put a check in 'Modify' and 'Write'.
6) Make sure that 'Allow inheritable permissions from parent to propagate to this object' is also checked.
7) Click on the 'Apply' button and then the 'Ok' button.

Now go see if this has done the trick for you.

Regards,
JK