adding to database and emailing?

woody22 · 07-12-2004, 02:00 AM

ive created an online form which sends information to an access database once the user has filled out the form on the web.

However as well as the information going to the database i also want it to email a relevant person too - is this possible????

Many thanks

Woody

woody22 · 07-12-2004, 03:10 AM

Ive found out i need to use the CDONTS feature - ive implemented the following code but it returns a page not found error when i go to my confirmation asp page. Any help please?
????: NamePros.com http://www.namepros.com/programming/38413-adding-to-database-and-emailing.html

<%
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.To = "pworsnop@wickersley.net"
objCDOMail.From = "Staff@wickersley.net"
objCDOMail.Subject = FP_SavedFields("MyReason")
For Each item in FP_SavedFields
strBody = strBody & item & ": " & FP_SavedFields(item) & VbCrLf
Next
objCDOMail.Body = strBody
objCDOMail.BodyFormat = 1
objCDOMail.MailFormat = 1
objCDOMail.Send
Set objCDOMail = Nothing
%>

07-12-2004, 02:00 AM	THREAD STARTER #1 (permalink)
woody22 New Member Join Date: Jul 2004 Location: Leeds Posts: 5	adding to database and emailing? ive created an online form which sends information to an access database once the user has filled out the form on the web. However as well as the information going to the database i also want it to email a relevant person too - is this possible???? Many thanks Woody __________________ Loftus and Speight R.I.P - Your in our hearts and minds forever lads

07-12-2004, 03:10 AM	THREAD STARTER #2 (permalink)
woody22 New Member Join Date: Jul 2004 Location: Leeds Posts: 5	Ive found out i need to use the CDONTS feature - ive implemented the following code but it returns a page not found error when i go to my confirmation asp page. Any help please? ????: NamePros.com http://www.namepros.com/programming/38413-adding-to-database-and-emailing.html <% Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.To = "pworsnop@wickersley.net" objCDOMail.From = "Staff@wickersley.net" objCDOMail.Subject = FP_SavedFields("MyReason") For Each item in FP_SavedFields strBody = strBody & item & ": " & FP_SavedFields(item) & VbCrLf Next objCDOMail.Body = strBody objCDOMail.BodyFormat = 1 objCDOMail.MailFormat = 1 objCDOMail.Send Set objCDOMail = Nothing %> __________________ Loftus and Speight R.I.P - Your in our hearts and minds forever lads

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)