2rsgarry 0 Newbie Poster

Dear Readers
I have spent the past 3 days trying to work through the Microsoft White Paper on how to insert data into my MsAccess database and send an email confirmation to the viewer. At one stage I had the details being inserted into my database, NO EMAIL, now i have NO DATABASE ENTRY, but an EMAIL sent!!! AHHHHH

I am now receiving the following error: Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression ''00357 99944552''2rsgarry@cytanet.com.cy''House'Under 400 sqm'1 to 2 Bedrooms'1 Bathroom'No Pool'€ 150'.

/Email.asp, line 117

The coding is as follows, can someone please help me in the right direction to have this finally finished.

Regards

2rsGarry

<html>

<head>

<%

	'========================================================
	' When you press ENTER in a text box, a carriage return
	' is created. A carriage return is represented by a 
	' Chr(13). Because this information will be displayed 
	' as HTML, replace the carriage returns with 
	' the <br> tag.
	'========================================================
	Function ParseBody(strText)
		'=================================================
		' This function replaces the Chr(13) with a <br>
		' tag in whatever string is passed to it.
		'=================================================
		strText = Replace(strText, Chr(13), "<br>")
		ParseBody = strText
	End Function
	
	
	'========================================================
	' Send results to the database.
	' This portion of the page sends the information
	' from the form to the Northwind sample database.
	'========================================================

	'========================================================
	' Variable declaration:
	'  myConnString = Connection string to database.
	'  myConnection = The database connection object.
	'  mySQL = The query string to be used.
	'========================================================
	Dim myConnString
	Dim myConnection
	Dim mySQL

	'========================================================
	' Set up connection string. When you created the
	' database connection in FrontPage called "Sample", 
	' FrontPage created an Application variable in the 
	' Global.asa file called "Sample_ConnectionString".
	'
	' Use that connection string by populating the
	' myConnString variable with the value contained
	' in the Application variable.
	' 
	'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
' You can modify this to work with your database by 
	' changing "Sample_ConnectionString" to reflect your
	' FrontPage database connection. For example, if you
	' defined your connection in FrontPage as "Database1",
	' you would change the following line to this:
	'  myConnString = Application("Database1_ConnectionString")
	'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
myConnString = Application("aapremium_ConnectionString")
	
 
	'========================================================
	' When you are using custom ASP to set up a connection to
	' a database, you use a Connection to connect to the 
	' database. The following line creates that connection and
	' assigns the myConnection variable to contain the 
	' Connection object.
	'======================================================== 
	Set myConnection = Server.CreateObject("ADODB.Connection")
	
	'========================================================
	' After the connection has been created, open it so that 
	' information can be written to the database. To do 
	' that, use the Open method and pass it the connection
	' string that you defined earlier.
	'========================================================
	myConnection.Open myConnString
	
	'========================================================
	' This is the SQL string that queries the database.
	' In this example, Request.Form("[form_field]")
	' pulls information from the form and populates the SQL 
	' string with it.
	' 
	'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	' You can modify this SQL string to work with your own 
	' database by following this format. Pay special 
	' attention to the fact that spaces are not optional.
	' -------------------------------------------------------
	'  mySQL= "INSERT INTO enquirydetails"
	'  mySQL = mySQL & "(customerIDnumber),(title),(firstname),(surname),(contactnumber),(bestcontacttime),(emailaddress),(propertylocation),(propertytype),(plotsize),(bedrooms),(bathrooms),(swimmingpool),(pricerange),(comments) "
	'  mySQL = mySQL & "VALUES ('cusomerIDnumber,title,firstname,surname,contactnumber,bestcontacttime,emailaddress,propertylocation,propertytype,plotsize,bedrooms,bathrooms,swimmingpool,pricerange,comments')"
	' -------------------------------------------------------
	' For more information about this, see the 
' Customizing the Database Page section of this document..
	'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	mySQL = "INSERT INTO enquirydetails"
	mySQL= mySQL & "([title],[firstname],[surname],[contactnumber],[bestcontacttime],[emailaddress],[propertylocation],[propertytype],[plotsize],[bedrooms],[bathrooms],[swimmingpool],[pricerange],[comments])"
	mySQL= mySQL & "VALUES ('" & Request.Form("title") & "','"
	mySQL= mySQL & Request.Form("firstname") & "'"
	mySQL= mySQL & ",'" & Request.Form("surname") & "'"
	mySQL= mySQL & ",'" & Request.Form("contactnumber") & "'"
	mySQL= mySQL & Request.Form("bestcontacttime") & "'"
	mySQL= mySQL & Request.Form("emailaddress") & "'"
	mySQL= mySQL & Request.Form("propertylocation") & "'"
	mySQL= mySQL & Request.Form("propertytype") & "'"
	mySQL= mySQL & Request.Form("plotsize") & "'"
	mySQL= mySQL & Request.Form("bedrooms") & "'"
	mySQL= mySQL & Request.Form("bathrooms") & "'"
	mySQL= mySQL & Request.Form("swimmingpool") & "'"
	mySQL= mySQL & Request.Form("pricerange") & "'"
	mySQL= mySQL & Request.Form("comments") & "'"	
	'========================================================
' Execute the connection with the SQL string. 
' This runs the SQL string against the database and inputs
' the information.
'=========================================================
	myConnection.Execute mySQL
	
	'=== Close the connection.
	myConnection.Close
			
	'=== Set the connection equal to Nothing. 
'=== This frees resources used by it.
	Set myConnection = Nothing
	
	

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="info@aa-premium.com"
myMail.To="info@aa-premium.com"
myMail.TextBody="You have a new request for further details. Please LOGIN to your back office administration area at www.aa-premium.com/admin/enquirydetails_login.asp to process."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="mail.aa-premium.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.