I have tried many, many, many different ways of doing this. I have been to many, many different web sites that offer code and nothing is working.
My code:
<%
Dim adoCon
Dim rsAddListing
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..........")
Set rsAddListing = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblListings.ID, tblListings.city, tblListings.structure FROM tblListings;"
rsAddListing.CursorType = 2
rsAddListing.LockType = 3
rsAddListing.Open strSQL, adoCon
rsAddListing.AddNew
rsAddListing.Fields("city") = Request.Form("city")
rsAddListing.Fields("structure") = Request.Form("structure")
rsAddListing.Update
intIDNumber = rsAddListing.Fields("ID")
response.write "before " & intIDNumber & " after"
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = ".........."
objNewMail.To = request.form("email")
objNewMail.Subject = "New Listing #" & intIDNumber
objNewMail.Body = "....."
objNewMail.Send
Set objNewMail = Nothing
rsAddListing.Close
Set rsAddListing = Nothing
adoCon.Close
Set adoCon = Nothing
%><head><title>Post New Listing to Database</title></head>