[thelist] Access - adding record problems

burgan at iprimus.com.au burgan at iprimus.com.au
Tue Jul 22 06:43:58 CDT 2003


---- Julian & Bill wrote: ----

It's difficult to tell without seeing your code.

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

To repeat my problem:
In my ASP page, I'm adding a new record to an Access database. 
The problem is that when I open the Access database the new record has been 
entered correctly, but another BLANK record has also been created. Every 
time. 

Here's my code


<%@ Language=VBScript %>
<% Option Explicit %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<%
  Dim adoCon
  Dim rsAddUser
  Dim strSQL

  Dim adoReferralCon
  Dim rsReferral
  Dim strReferralSQL

  Set adoCon = Server.CreateObject("ADODB.Connection")
  adoCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("dbs\CustInfo.mdb")
  Set rsAddUser = Server.CreateObject("ADODB.Recordset")

  strSQL = "SELECT * FROM Contact;"

  rsAddUser.CursorType = 2
  rsAddUser.LockType = 3
  rsAddUser.Open strSQL, adoCon

  if NOT Request.Form("referral") = 0 then
      'Create a new RecordSet to print referrer details
        Set adoReferralCon = Server.CreateObject("ADODB.Connection")
        adoReferralCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("dbs\CustInfo.mdb")
        Set rsReferral = Server.CreateObject("ADODB.Recordset")

        strReferralSQL = "SELECT * FROM Contact WHERE UserID = " &
Request.Form("referral") & ";"

        rsReferral.CursorType = 2
        rsReferral.LockType = 3
        rsReferral.Open strReferralSQL, adoReferralCon

        %>      Your referrer to this page was:<br>
        <%      Response.Write (rsReferral("FirstName") & " " &
rsReferral("LastName") & "<br><br>")

        rsReferral.Close
        Set rsReferral = Nothing
        Set adoReferralCon = Nothing

      'Change back to current user
      strSQL = "SELECT * FROM Contact;"
    else
      Response.Write ("You were not referred to this page")
  end if


  rsAddUser.AddNew

  rsAddUser("Title") = Request.Form("title")
  rsAddUser("FirstName") = Request.Form("firstname")
  rsAddUser("LastName") = Request.Form("lastname")
  rsAddUser("CompanyName") = Request.Form("company")
  rsAddUser("Address1") = Request.Form("address1")
  rsAddUser("Address2") = Request.Form("address2")
  rsAddUser("City") = Request.Form("city")
  rsAddUser("State") = Request.Form("state")
  rsAddUser("PostCode") = Request.Form("postcode")
  rsAddUser("Country") = Request.Form("country")
  rsAddUser("Phone") = Request.Form("phone")
  rsAddUser("Fax") = Request.Form("fax")
  rsAddUser("Mobile") = Request.Form("mobile")
  rsAddUser("Email") = Request.Form("email")
  rsAddUser("Username") = Request.Form("username")
  rsAddUser("Password") = Request.Form("password")
  rsAddUser("Domain") = Request.Form("domain")
  rsAddUser.Fields("ReferralID") = Request.Form("referral")
  rsAddUser.Fields("Active") = True

  rsAddUser.Update
%>

<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
  <head>
    <title>Create new DB entry</title>
    <link href="#" rel="stylesheet" type="text/css">
  </head>
  <body>

    <br><br><br>


    Title: <%=rsAddUser("Title")%><br>
    First Name: <%=rsAddUser("FirstName")%><br>
    Last Name: <%=rsAddUser("LastName")%><br><br>

    Company Name: <%=rsAddUser("CompanyName")%><br><br>

    Address 1: <%=rsAddUser("Address1")%><br>
    Address 2: <%=rsAddUser("Address2")%><br>
    City: <%=rsAddUser("City")%><br>
    State: <%=rsAddUser("State")%><br>
    Post Code: <%=rsAddUser("PostCode")%><br>
    Country: <%=rsAddUser("Country")%><br><br>

    Phone: <%=rsAddUser("Phone")%><br>
    Fax: <%=rsAddUser("Fax")%><br>
    Mobile: <%=rsAddUser("Mobile")%><br>
    Email: <%=rsAddUser("Email")%><br><br>

    Username: <%=rsAddUser("Username")%><br>
    Password: <%=rsAddUser("Password")%><br>

    Domain Request: <%=rsAddUser("Domain")%><br><br>

    <%
      rsAddUser.Close
      Set rsAddUser = Nothing
      Set adoCon = Nothing
    %>

  </body>
</html>

--------------------------------------------------------------------
mail2web - Check your email from the web at
http://mail2web.com/ .




More information about the thelist mailing list