Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Shaun E on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Accessing Access Database with ASP 3.0

Status
Not open for further replies.
jtgurkin

jtgurkin

Technical User
Sep 16, 2002
47
US
While trying to copy information from one database to another using the following code:
---
<%@LANGUAGE=&quot;VBSCRIPT&quot; CODEPAGE=&quot;1252&quot;%>
<%Option Explicit%>
<!--#include file=&quot;adovbs.inc&quot;-->
<%
Dim strSQL
strSQL = &quot;SELECT * FROM Addresses&quot;
Dim objDBFrom
Set objDBFrom = Server.CreateObject(&quot;ADODB.Connection&quot;)
objDBFrom.Open (&quot;Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=&quot; + Server.MapPath(&quot;caddresses.mdb&quot;))

Dim objRSFrom
Set objRSFrom = Server.CreateObject(&quot;ADODB.Recordset&quot;)
objRSFrom.open strSQL, objDBFrom

Dim objDBTo
Set objDBTo = Server.CreateObject(&quot;ADODB.Connection&quot;)
objDBTo.Mode = 3
objDBTo_Open (&quot;Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=&quot; + Server.MapPath(&quot;addresses.mdb&quot;))

Dim objRSTo
Set objRSTo = Server.CreateObject(&quot;ADODB.Recordset&quot;)
objRSTo_Open &quot;Addresses&quot;, objDBTo, 1, 3, 2

objRSFrom.MoveFirst
Do While Not objRSFrom.EOF
objRSTo.AddNew
objRSTo (&quot;FirstName&quot;) = Trim(Ucase(objRSFrom (&quot;FirstName&quot;)))
objRSTo (&quot;MiddleName&quot;) = Trim(Ucase(objRSFrom (&quot;MiddleName&quot;)))
objRSTo (&quot;LastName&quot;) = Trim(Ucase(objRSFrom (&quot;LastName&quot;)))
If objRSFrom (&quot;PreferredName&quot;) <> &quot;&quot; Then
objRSTo (&quot;PreferredName&quot;) = Trim(Ucase(objRSFrom (&quot;PreferredName&quot;)))
Else
objRSTo (&quot;PreferredName&quot;) = Trim(Ucase(objRSFrom (&quot;FirstName&quot;)))
End If
objRSTo (&quot;StudentID&quot;) = objRSFrom (&quot;StudentId&quot;)
objRSTo (&quot;SSN&quot;) = objRSFrom (&quot;SSN&quot;)
objRSTo (&quot;AddressLine1&quot;) = Trim(Ucase(objRSFrom (&quot;AddressLine1&quot;)))
objRSTo (&quot;AddressLine2&quot;) = Trim(Ucase(objRSFrom (&quot;AddressLine2&quot;)))
objRSTo (&quot;Processed&quot;) = objRSFrom (&quot;Processed&quot;)
objRSTo (&quot;Parent1Name&quot;) = Trim(Ucase(objRSFrom (&quot;Parent1Name&quot;)))
objRSTo (&quot;Parent1Phone&quot;) = objRSFrom (&quot;Parent1Phone&quot;)
objRSTo (&quot;Parent2Name&quot;) = Trim(Ucase(objRSFrom (&quot;Parent2Name&quot;)))
objRSTo (&quot;Parent2Phone&quot;) = objRSFrom (&quot;Parent2Phone&quot;)
objRSTo (&quot;BirthdateMonth&quot;) = objRSFrom (&quot;BirthdateMonth&quot;)
objRSTo (&quot;BirthdateDay&quot;) = objRSFrom (&quot;BirthdateDay&quot;)
objRSTo (&quot;BirthdateYear&quot;) = objRSFrom (&quot;BirthdateYear&quot;)
objRSTo (&quot;SchoolID&quot;) = objRSFrom (&quot;School&quot;)
objRSTo (&quot;GPABefore&quot;) = objRSFrom (&quot;StartingGPA&quot;)
objRSTo (&quot;GPAAfter&quot;) = objRSFrom (&quot;EndingGPA&quot;)
objRSTo (&quot;AbsencesBefore&quot;) = objRSFrom (&quot;AvgAbsYrBefore&quot;)
objRSTo (&quot;AbsencesAfter&quot;) = objRSFrom (&quot;AvgAbsYrAfter&quot;)
objRSTo (&quot;TardiesBefore&quot;) = objRSFrom (&quot;AvgTardiesBefore&quot;)
objRSTo (&quot;TardiesAfter&quot;) = objRSFrom (&quot;AvgTardiesAfter&quot;)
objRSTo (&quot;City&quot;) = Trim(Ucase(objRSFrom (&quot;City&quot;)))
objRSTo (&quot;State&quot;) = Trim(Ucase(objRSFrom (&quot;State&quot;)))
objRSTo (&quot;Zip&quot;) = objRSFrom (&quot;Zip&quot;)
objRSTo (&quot;HomePhone&quot;) = objRSFrom (&quot;HomePhone&quot;)
objRSTo (&quot;Denied&quot;) = objRSFrom (&quot;Denied&quot;)
objRSTo (&quot;Signed&quot;) = objRSFrom (&quot;signed&quot;)
objRSTo (&quot;Email&quot;) = Trim(Ucase(objRSFrom (&quot;Email&quot;)))
objRSTo (&quot;HealthNotes&quot;) = objRSFrom (&quot;HealthNotes&quot;)
objRSTo (&quot;Transportation&quot;) = objRSFrom (&quot;Transportation&quot;)
objRSTo (&quot;TransportationNotes&quot;) = objRSFrom (&quot;TransNotes&quot;)
objRSTo (&quot;OccupationalInterest&quot;) = Trim(Ucase(objRSFrom (&quot;OccupationalInterest&quot;)))
objRSTo (&quot;Concerns&quot;) = objRSTo (&quot;Concerns&quot;)
objRSTo (&quot;ExtraInformation&quot;) = objRSTo (&quot;extrainformation&quot;)
objRSTo.Update
objRSFrom.MoveNext
Loop
objRSTo.Close
Set objRSTo = Nothing
objDBTo.Close
Set objDBTo = Nothing
objRSFrom.Close
Set objRSFrom = Nothing
objDBFrom.Close
Set objDBFrom = Nothing
%>
<HTML>
<HEAD>
<TITLE>Success!!</TITLE>
<META HTTP-EQUIV=&quot;Content-Type&quot; CONTENT=&quot;text/html; charset=iso-8859-1&quot;>
</HEAD>

<BODY>
Success!!
</BODY>
</HTML>
---

(The addresses.mdb file was just created by me in access)

I get the following error:

The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.

--------------------------------------------------------------------------------

Please try the following:

Click the Refresh button, or try again later.

Open the jtgurkin home page, and then look for links to the information you want.
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

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


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705; .NET CLR 1.1.4322)

Page:
GET /apweb/apweb/copyrecords.asp

Time:
Tuesday, August 19, 2003, 1:44:49 AM


More information:
Microsoft Support



Please help!!!!
 
Sort by date Sort by votes
All my permissions appear to be in order. But it still won't work.
 
Upvote 0 Downvote
FYI, I can read records out of a database fine it's just the adding of new ones and updating current one's that won't work.
 
Upvote 0 Downvote
normal default settings for permissions are set to read. This meaning that you should always be able to SELECT data from a flat file/DB .

Have you check IUSER writes
Have you checked the files permissions (eg:right click/set security etc..)

also try
objRSTo_Open &quot;Addresses&quot;, objDBTo, 1, 3, 2
to
objRSTo_Open &quot;Addresses&quot;, objDBTo, 3, 3

_____________________________________________________________________
Please help! I'm falling asleep over here!
onpnt2.gif

 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

leifoet
  • Locked
  • Question
How to send HTML emails with ASP classic?
Replies
0
Views
916
leifoet
leifoet
penguinspeaks
  • Locked
  • Question
write HTML code within ASP line
Replies
1
Views
894
xwb
xwb
penguinspeaks
  • Locked
  • Question
Return to current location on page after asp processes.
Replies
2
Views
879
penguinspeaks
penguinspeaks
penguinspeaks
  • Locked
  • Question
Parse a database field that is comma delimited and input the results into another table
Replies
0
Views
607
penguinspeaks
penguinspeaks
JScannell
  • Locked
  • Question
Border issue with Google Chrome on an Android phone
Replies
0
Views
626
JScannell
JScannell

Part and Inventory Search

Sponsor

Back
Top