[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