Domain - CDO - Spooky Test Message

	Home Register Search Help Login

Sponsors

Shopping Cart Software
Ecommerce software integrated into Frontpage, Dreamweaver and Golive templates. No monthly fees and available in ASP and PHP versions.

Website Templates
We also have a wide selection of Dreamweaver, Expression Web and Frontpage templates as well as webmaster tools and CSS layouts.

Frontpage website templates
Creative Website Templates for FrontPage, Dreamweaver, Flash, SwishMax

Free FrontPage Templates

Search Forums

Recent Posts

Todays Posts
Most Active posts
Posts since last visit
My Recent Posts
Mark posts read

Domain - CDO - Spooky Test Message

View related threads: (in this forum | in all forums)

Logged in as: Guest

Users viewing this topic: none

Printable Version

All Forums >> Web Development >> ASP and Database >> Domain - CDO - Spooky Test Message

Page: [1]

KJM

Posts: 16
Joined: 7/1/2004
Status: offline

Domain - CDO - Spooky Test Message - 4/10/2005 23:22:54

I am trying to write a simple asp page that will allow the user to enter the recipients email address and then send the email. The asp script works fine when I use an address in my domain but it will not go anywhere else. When I use fp2002 and build a simple form and enter an address outside my domain as the recipient the email goes but it uses the admin@###.com as the sender. Is this because I am using CDO? Will ASPmail help solve this problem? ( I am using the code from cdonts.doc to send the data from the form to a database and then email. See Code) If so will the persist aspmail do the job and if so what changes do I have to make to this code to make this work) And finally how do I install the ASPmail on my NT4 box with IIS and make it work?

Any help on this would be greatly appreciated.

<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("Quote_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 [E] "
	'  mySQL = mySQL & "([database_field_names]) "
	'  mySQL = mySQL & "VALUES ('[form_field_names]')"
	' -------------------------------------------------------
	' For more information about this, see the 
' Customizing the Database Page section of this document..
	'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	mySQL= "INSERT INTO ROIQuote "
mySQL= mySQL & "(EmailAddress,Quote) "
	mySQL= mySQL & "VALUES ('" & Request.Form("EmailAddress") & "','" 
mySQL= mySQL & Request.Form("Quote") & "')"
	
	'========================================================
' 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
	
	
 

	'===================================================================
	' Send the results to e-mail.
	' Use CDONTS to create and send a message based on information 
	' entered into the form. The following lines compose and send
	' the e-mail.
	'===================================================================
  
'====================================================================
' Set up variables:
'	myCDONTSMail = A CDONTS mail object.
'	strFrom = A string containing the source e-mail address.
'	strTo = A string containing the destination e-mail address.
'	strSubject = A string containing the subject of the e-mail.
'	strBody = A string containing the body of the e-mail.
'====================================================================
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strBody

	'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	' Assign the source e-mail address. Change this to your e-mail
	' address.
	'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
strFrom="KMcHale@Telco1.com"

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' Assign the destination e-mail address. In this example, get the 
' e-mail address from the form field called "EMail".
' You can customize this by removing the EMail form field and 
' changing the following line to this:
'	strTo="example@microsoft.com" � Change this to your e-mail 
' address.
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
strTo=Request.Form("EmailAddress")

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' The following line is the subject of the e-mail. You can change 
' this to a subject that is customized to your liking.
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
strSubject = "Telco Quote"

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' The following lines create the body of the message. This can be 
' anything you want it to be.
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
strBody = strBody & Request.Form("Quote") & Chr(13)

'====================================================================
' The SET statement creates the CDONTS mail object in preparation
' for sending the e-mail message.
'====================================================================
Set myCDONTSMail = CreateObject("CDONTS.NewMail")

'====================================================================
' The following line sends the mail message using the source e-mail,
' destination e-mail, subject, and body that were defined earlier.
'====================================================================
myCDONTSMail.Send strFrom,strTo,strSubject,strBody

	'=== Set the CDONTS mail object to NOTHING to free resources.
Set myCDONTSMail = Nothing


'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' For information about how to customize the rest of this page, see the 
' Customizing the Confirmation Page section of this document. Sections 
' that are discussed in the Customizations section are delimited
' by percent signs.
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%>

</head>

<body bgcolor="#FFCC99">

<p><font face="Verdana" color="#FF0000"><b>Thank you for submitting your
information!<br>
</b></font><font face="Verdana" size="2">You will receive an e-mail
shortly.  The e-mail was sent using the following information:</font></p>
<b><b><font face="Verdana" size="2">Sent To: 
<% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   Response.Write Request.Form("EMailAddress")
  '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%><br>
From    : KMcHale@Telco1.com</font></b></p>
<p><b><font face="Verdana" size="2">Subject: Send to Database and E-mail</font></b></p>
<p><b><font face="Verdana" size="2">Content: 
<% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' Call the ParseBody function and pass the strBody string to it.
' This will replace the Chr(13) characters with <br> tags in the HTML.
Response.Write(ParseBody(strBody))
  '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%>
</font></b></p>
<hr noshade size="1" style="color: #000000">
<p> </p>



</body>

</html>