Hi All:
I followed Bruce Corkhill's tutorials for connecting to and adding records to an access database using asp. My file for connecting to the database and displaying the records works. But, my files for using a web form to enter records to the database do not. I'm copying the files -- can you help identify the problem? The web form connects to the access database but new record does not get added. Thanks for your help!
Stephanie Watson
web form file (form.html):
<html>
<head>
<title>Profile Data Entry Form</title>
</head>
<Body bgcolor="#0099CC" text="white" link="#0000FF" alink="#FF0000" vlink="#663399">
<font face = "Georgia">
<H1 Align="center">Profile Data Entry Form</H1>
</font>
<form name="Form" method="post" action="add_to_db.asp">
Facility_id
<input type = "text" name="Facility_id" size = 10>
<br>
Facility_name
<input type="text" name="Facility_name" size = 100>
<br>
Facility_description
<input type="text" name="Facility_description" size = 1000>
<br>
Street Address1
<input type="text" name="Street_address1" size = 100>
<br>
Street_Address2
<input type="text" name="Street_address2" size = 100>
City
<input type="text" name="City" size = 50>
State
<input type="text" name="State" size = 10>
<br>
Zipcode
<input type="text" name="Zipcode" size = 12>
<br>
Website
<input type="text" name="Website" size = 50>
<br>
Image
<input type="text" name="Image" size = 50>
<br>
<p><input type="Submit" name="Submit" value="SUBMIT"></p>
</form>
</body>
</html>
add to database file (add_to_db.asp)
<html>
<head>
<title>Adding data to database</title>
</head>
<body>
Adding data to database...
<%@ Language="VBScript"%>
<%
'Dimension variables
Dim adoCon2 'Holds the database connection object
Dim rsAddFacility 'Holds the recordset for the new record to be added
Dim strSQL2 'Holds the SQL query to query the database
Set adoCon2=Server.CreateObject("ADODB.Connection") 'Create an ADO Connection Object
adoCon2.Open "DSN=profiles"
'Set an active connection to the Connection object using a DSN connection
Set rsAddFacility=Server.CreateObject("ADODB.Recordset")
'Create an ADO recordset object
'strSQL2="SELECT Facility.Facility_id, Facility.Facility_name, Facility.Facility_description, Facility.Street_address1, Facility_Street_address2, Facility.City, Facility.State, Facility.Zipcode, Facility.Website, Facility.Image FROM Facility;"
'Initialize the strSQL variable with an SQL statement to query the database
'rsAddFacility.CursorType=2
'Set the cursor type we are using so we can navigate through the recordset
'rsAddFacility.LockType=3
'Set the lock type so that the record is locked by ADO when it is updated
rsAddFacility.Open strSQL2, adoCon2
'Open the recordset with the SQL query
rsAddFacility.AddNew
'Tell the recordset we are adding a new record to it
rsAddFacility.Fields("Facility_id")=Request.Form("Facility_id")
rsAddFacility.Fields("Facility_name")=Request.Form("Facility_name")
rsAddFacility.Fields("Facility_description")=Request.Form("Facility_description")
rsAddFacility.Fields("Street_address1")=Request.Form("Street_address1")
rsAddFacility.Fields("Street_address2")=Request.Form("Street_address2")
rsAddFacility.Fields("City")=Request.Form("City")
rsAddFacility.Fields("State")=Request.Form("State")
rsAddFacility.Fields("Zipcode")=Request.Form("Zipcode")
rsAddFacility.Fields("Website")=Request.Form("Website")
rsAddFacility.Fields("Image")=Request.Form("Image")
'Add a new record to the dataset
rsAddFacility.Update
'Write the updated recordset to the database
rsAddFacility.Close
Set rsAddFacility=Nothing
Set adoCon2=Nothing
'Reset the server objects
'Response.Redirect "display_profile_db.asp"
%>
</body>
</html>
Topic Options
Post Options
Thanks(0)
