p2p.wrox.com: Archives - access

access_asp thread: Access isn't playing fair! I think. . .

Message #1 by "Bryan Maynard" <Bryan_Maynard@m...> on Wed, 8 Jan 2003 09:03:54

Ok, first I think your book is great (I have Beginning ASP 3.0).
Second, I think Access is doing something funky.

Here is all my code:
--------------------------------------------------------------------------
Code for Slick.asp:

<!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common 
Files\System\ado\msado15.dll" -->
<%
  Dim objConn
  Set objConn = Server.CreateObject("ADODB.Connection")
  objConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data 
Source=C:\Datatores\UserID.mdb"

 If Session("blnValidUser") = True and Session("USERID") = "" Then
 
  Dim rsUserIDCheck
  Set rsUserIDCheck = Server.CreateObject("ADODB.Recordset")
  
  Dim strSQL
  strSQL = "SELECT User ID FROM UserID WHERE USERID = '" & Session
("UserID") & "';"
  
  rsUserIDCheck.Open strSQL, strConnect
   If rsUserIDCheck.EOF Then
    Session("blnValidUser") = False
   Else
    Session("UserID") = rsUserIDCheck("UserID")
   End If
  Set rsUserIDCheck = Nothing
 End If
%>
--------------------------------------------------------------------------
--------------------------------------------------------------------------
Code for Register.asp:

<HTML>
<HEAD>
<SCRIPT LANGUAGE="JavaScript">
<!--
  function VerifyData()
  {
    if (document.frmUser.Passowrd.value != 
document.frmUser.VerifyPassword.value)
    {
      alert ("Your passwords do not match.  Please re-enter.");
      return false;
    }
    else
     return true;
  }
-->
</SCRIPT>
<Title>Register</Title>
</HEAD>

<BODY BGCOLOR=#8888EE>
<%
  Dim strText
  strText = "<TABLE BGCOLOR=#9999FF ALIGN=Center>"

 If Request("Update") = "True" Then
  strText = strText & "<Tr><td colspan=2>Please update your 
information</td></Tr>"
 Else
  strText = strText & "<Tr><td colspan=2>New Users, please 
register</td></Tr>"
 End If

 strText = strText & "</TABLE>"
 Response.Write strText
%>
<FORM ACTION="AddUser.asp" Name="frmUser" METHOD="Post" onsubmit="return 
VerifyData()">
<TABLE BGCOLOR=#9999FF WIDTH="60%" Align=Center>
 <Tr BgColor=#9999FF>
  <td align=center>First Name:</td>
  <td align=center><INPUT TYPE="Text" NAME="FirstName" Value="<%= Session
("FirstName")%>"></td>
 </Tr>
 <Tr BgColor=#AAAAFF>
  <td align="center">Middle Name:</td>
  <td align="center"><INPUT TYPE="Text" NAME="MiddleName" Value="<%= 
Session("MiddleName")%>"></td>
 </Tr> 
 <Tr BgColor=#9999FF>
  <td align="center">Last Name:</td>
  <td align="center"><INPUT TYPE="Text" NAME="LastName" Value="<%= Session
("LastName")%>"></td>
 </Tr> 
 <Tr BgColor=#AAAAFF>
  <td align="center">Group:</td>
  <td align="center"><INPUT TYPE="Text" NAME="GroupID" Value="<%= Session
("GroupID")%>"></td>
 </Tr> 
 <Tr BgColor=#9999FF>
  <td align="center">Hire Date:</td>
  <td align="center"><INPUT TYPE="Text" NAME="DateHired" Value="<%= 
Session("DateHired")%>"></td>
 </Tr>
 <Tr BgColor=#AAAAFF>
  <td align="center">Address:</td>
  <td align="center"><INPUT TYPE="Text" NAME="Address" Value="<%= Session
("Address")%>"></td>
 </Tr>
 <Tr BgColor=#9999FF>
  <td align="center">Appartment #:</td>
  <td align="center"><INPUT TYPE="Text" NAME="AppartmentNumber" Value="<%
= Session("AppartmentNumber")%>"></td>
 </Tr>
 <Tr BgColor=#AAAAFF>
  <td align="center">City:</td>
  <td align="center"><INPUT TYPE="Text" NAME="City" Value="<%= Session
("City")%>"></td>
 </Tr>
 <Tr BgColor=#9999FF>
  <td align="center">State:</td>
  <td align="center"><INPUT TYPE="Text" NAME="State" Value="<%= Session
("State")%>"></td>
 </Tr>
 <Tr BgColor=#AAAAFF>
  <td align="center">Zip:</td>
  <td align="center"><INPUT TYPE="Text" NAME="ZipCode" Value="<%= Session
("ZipCode")%>"></td>
 </Tr>
 <Tr BgColor=#9999FF>
  <td align="center">Country:</td>
  <td align="center"><INPUT TYPE="Text" NAME="Country" Value="<%= Session
("Country")%>"></td>
 </Tr>
 <Tr BgColor=#AAAAFF>
  <td align="center">Your ID:</td>
  <td align="center"><INPUT TYPE="Text" NAME="UserID" Value="<%= Session
("UserID")%>"></td>
 </Tr>
 <Tr BgColor=#9999FF>
  <td align="center">Password:</td>
  <td align="center"><INPUT TYPE="Password" NAME="Password" Value="<%= 
Session("Password")%>"></td>
 </Tr>
 <Tr BgColor=#AAAAFF>
  <td align="center">Verify Password:</td>
  <td align="center"><INPUT TYPE="Password" NAME="VerifyPassword" 
Value="<%= Session("Country")%>"></td>
 </Tr>
 <Tr BgColor=#9999FF>
  <td align="center"><INPUT TYPE="Submit" VALUE="Register!"></td>
  <td align="center"><INPUT TYPE="Reset" VALUE="Star Over"></td>
 </Tr>
</TABLE>
</FORM>
</BODY>
</HTML>
--------------------------------------------------------------------------
--------------------------------------------------------------------------
Code for AddUser.asp:

<!-- #include file="Slick.asp" -->

<%
  Dim rsUsers
  Set rsUsers = Server.CreateObject("ADODB.Recordset")
  rsUsers.Open "Personel", objConn, adOpenForwardOnly, adLockOptimistic, 
adCmdTable

  If Session("UserID") <> "" Then
   rsUsers.Filter = "UserID = '" & Session("UserID") & "'"
  Else
   rsUsers.Filter = "UserID = '" & Request.Form("UserID") & "' AND 
Password = '" & Request.Form("Password") & "'"

   If rsUsers.EOF Then
    rsUsers.AddNew
   End If
  End If

rsUsers("UserID") = Request.Form("UserID")
rsUsers("Password") = Request.Form("Password")
rsUsers("FirstName") = Request.Form("FirstName")
rsUsers("MiddleName") = Request.Form("MiddleName")
rsUsers("LastName") = Request.Form("LastName")
rsUsers("GroupID") = Request.Form("GroupID")
rsUsers("DateHired") = Request.Form("DateHired")
rsUsers("Address") = Request.Form("Address")
rsUsers("AppartmentNumber") = Request.Form("AppartmentNumber")
rsUsers("City") = Request.Form("City")
rsUsers("State") = Request.Form("State")
rsUsers("ZipCode") = Request.Form("ZipCode")
rsUsers("Country") = Request.Form("Country")
rsUsers("Active") = True
rsUsers("LastUse") = Now
rsUsers.Update

  Dim strName, strValue
  For Each strField in rsUsers.Fields
   strName = strField.Name
   strValue = strField.Value
   Session(strName) = strValue
  Next
  Session("blnValidUser") = True
  Response.Redirect "Create.asp"
%>
--------------------------------------------------------------------------

My problem is this:  When I load Register.asp I input the data and press 
submit.  Then IE gives me this Error:

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

Why?

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

Register.asp is part of a Framed Page.  There are two frames within this 
page.

I checked everywhere I know to make sure that UserID.mdb is not 
marked "read Only" and, as far as I can tell, it's not.  I checked 
UserID.mdb's properties in Windows Explorer and Access.

Please help me!  Thanks.

P.S. I know this is long, thanks for being patient.

Sincerely, Bryan

Message #2 by "Bryan Maynard" <Bryan_Maynard@m...> on Wed, 8 Jan 2003 20:25:44

Also, I'm running Windows XP Pro, Access XP, and iis 5.0.

Thanks again.
Bryan

Message #3 by "Bryan Maynard" <Bryan_Maynard@m...> on Wed, 8 Jan 2003 20:47:17

I just checked, I'm actually running iis 5.1

Message #4 by "Ken Schaefer" <ken@a...> on Thu, 9 Jan 2003 11:23:20 +1100

Check your NTFS permissions for the IUSR_<machinename> account for the
folder that the access file is in. Right-click on the folder and choose
"Security"

If there is no security tab, then you need to turn "Simple File Sharing"
off. In Explorer goto Tools -> Folder Options -> View, and scroll down the
to bottom and uncheck "Use Simple File Sharing (Recommended)"

Cheers
Ken

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
From: "Bryan Maynard" <Bryan_Maynard@m...>
Subject: [access_asp] Re: Access isn't playing fair! I think. . .


: I just checked, I'm actually running iis 5.1

Return to Index

P2P Archives