Errors on update of Access Database hosted on IIS

marcus1 · Feb 9, 2002

Hello ASP Gurus,

Have run into a stumper lately regarding the real time updating of a MS Access database from a "Request Information" page that I have developed for a local retail boating company. Basically the page collects contact information for people interested in the vendors boats. I developed the Request Information page on my local machine at home while using Microsoft's Personal Web Server (PWS). I created a system DSN on my home computer called "webhits" and my access database was named the same. It worked like a champ on my local machine. I typed in some test data an hit the submit button and it updated the database, no problem. After some extensive testing time on my local computer, I decided that it was time to upload the page and database to my local ISP and begin collecting "Real Information". The Request Information code was patterned off of the code that I found in the SAMS book Teach Yourself ASP in 21 Days. I go through some simple edit checks first and then I perform the update. Here's the source:

<%@ Language=VBScript %>
<% Option Explicit %>
<HTML>
<meta name="site-config-URL" content="">
<BODY>
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection&quot

objConn.ConnectionString="DSN=webhits"
objConn.open
Dim objRS
Dim bolpassedits
bolpassedits = True
If (Request.Form("lastname&quot

= "&quot

_
Then
Response.Write "The Last Name Field Cannot Be Empty." & " "
Response.Write "<A HREF='gather.htm' >."
Response.Write "Return to Request Information Screen to Correct Error."
Response.Write "</A>"
bolpassedits = False
Else
If (Request.Form("firstname&quot

="&quot

_
Then
Response.Write "The First Name Field Cannot Be Empty" & " "
Response.Write "<A HREF='gather.htm' >."
Response.Write "Return to Request Information Screen to Correct Error."
Response.Write "</A>"
bolpassedits = False
Else
If (Request.Form("address&quot

="&quot

_
Then
Response.Write "The Address Field Cannot Be Empty" & " "
Response.Write "<A HREF='gather.htm' >."
Response.Write "Return to Request Information Screen to Correct Error."
Response.Write "</A>"
bolpassedits = False
Else
If (Request.Form("city&quot

="&quot

_
Then
Response.Write "The City Field Cannot Be Empty" & " "
Response.Write "<A HREF='gather.htm' >."
Response.Write "Return to Request Information Screen to Correct Error."
Response.Write "</A>"
bolpassedits = False
Else
If (Request.Form("state&quot

= "&quot

_
Then
Response.Write "The State Field Cannot Be Empty." & " "
Response.Write "<A HREF='gather.htm' >."
Response.Write "Return to Request Information Screen to Correct Error."
Response.Write "</A>"
bolpassedits = False
Else
If (Request.Form("zip&quot

= "&quot

_
Then
Response.Write "The Zip Code Field Cannot Be Empty." & " "
Response.Write "<A HREF='gather.htm' >."
Response.Write "Return to Request Information Screen to Correct Error."
Response.Write "</A>"
bolpassedits = False
Else
If (Request.Form("email&quot

= "&quot

_
Then
Response.Write "The Email Field Cannot Be Empty." & " "
Response.Write "<A HREF='gather.htm' >."
Response.Write "Return to Request Information Screen to Correct Error."
Response.Write "</A>"
bolpassedits = False
End If
End If
End If
End If
End If
End If
End If
If bolpassedits = True Then
Const adCmdTable = &H0002
Const adLockOptimistic = 3
Set objRS=Server.CreateObject("ADODB.Recordset&quot

objRS.Open "custhits",objConn,,adLockOptimistic,adCmdTable
objRS.AddNew
objRS("last_name&quot

= Request.form("lastname&quot

objRS("first_name&quot

= Request.form("firstname&quot

objRS("address&quot

= Request.form("address&quot

objRS("city&quot

= Request.form("city&quot

objRS("state&quot

= Request.form("state&quot

objRS("zip&quot

= Request.form("zip&quot

objRS("phone&quot

= Request.form("phone&quot

objRS("fax&quot

= Request.form("fax&quot

objRS("email&quot

= Request.form("email&quot

objRS("ski_boat&quot

= Request.form("fishski&quot

objRS("pont_boat&quot

= Request.form("pontoon&quot

objRS("deck_boat&quot

= Request.form("deck&quot

objRS("offs_boat&quot

= Request.form("off&quot

objRS("comments&quot

= Request.form("comment_area&quot

objRS("ins_date&quot

= Date
objRS("ins_time&quot

= Time
objRS.Update
objRS.Close
Set objRS = Nothing
Response.Write "The Following Information Was Submitted:" & " " & " "
Response.Write "First Name: " & Request.form("firstname&quot

& " "
Response.Write "Last Name: " & Request.form("lastname&quot

& " "
Response.Write "Address: " & Request.form("address&quot

& " "
Response.Write "City: " & Request.form("city&quot

& " "
Response.Write "State: " & Request.form("state&quot

& " "
Response.Write "Zip: " & Request.form("zip&quot

& " "
Response.Write "Phone: " & Request.form("phone&quot

& " "
Response.Write "Fax: " & Request.form("fax&quot

& " "
Response.Write "Email: " & Request.form("email&quot

& " "
Response.Write "Interest In: " & " "
Response.Write " Fishing and Ski Boats: " & Request.form("fishski&quot

& " "
Response.Write " Pontoon Boats: " & Request.form("pontoon&quot

& " "
Response.Write " Deck Boats: " & Request.form("deck&quot

& " "
Response.Write " Offshore Boats: " & Request.form("off&quot

& " "
Response.Write " Comments: " & " " & " "
Response.Write Request.form("comment_area&quot

& " " & " "
Response.Write "Thank You, We Will Contact You Shortly " & " " & " "
Response.Write "<A HREF='../default.htm' >."
Response.Write "Return to XXXXXXXXX Boats Home Page."
Response.Write "</A>"
End If
objConn.Close
Set objConn = Nothing
%>
</BODY>
</HTML>

My problem is that it works great on my local PWS machine, but when I attempted to upload and activate it on my ISP provider (who's running a NT box with IIS) as soon as I attempt to save a record to the Access database by hitting the submit button, I get the following error message:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/pages/saveinfo.asp, line 98

One area that I'm suspicious of is the hardcoded constants for the adLockOptimistic and adCmdTable values. I hardcoded these initially because I haven't had much luck getting the includes to work, so I simply hardcoded them
Any insight or help that you can provide will be greatly appreciated.

Regards,

Mark

ElEye · Feb 9, 2002

My guess is the problem is a lack of WRITE permissions on that folder. Line 98 is "objRS.Update" which requires that permission. Your ISP has to allow this.

Here's a related knowledge base article:

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q175168

-Dave

marcus1 · Feb 9, 2002

Thanks Dave,

Went to the article you referenced. Excellent, if the folder permissions aren't the answer, then the three or four other possible explanations in the article are possibilities as well. I'm emailing my ISP now to have them check the file permissions.

Thanks Again,

Mark

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!

Errors on update of Access Database hosted on IIS

marcus1

MIS

ElEye

IS-IT--Management

marcus1

MIS

Similar threads

Part and Inventory Search

Sponsor