<%@Language=VBScript%> <% On Error Resume Next name = trim(Request.Form("name")) title = trim(Request.Form("Title")) company = trim(Request.Form("company")) emailaddress = trim(Request.Form("emailaddress")) mailserver = "mail.aboutchanging.com" toaddress = "suzanne@aboutchanging.com" dim objMail Set objMail = CreateObject("CDO.Message") objMail.To = toaddress objMail.From = name & "<" & emailaddress & ">" objMail.Subject = "Newsletter subscription from Aboutchanging.com" objMail.HTMLBody = "Name: " & name & vbCrLf _ & "Title: " & title & vbCrLf _ & "Company: " & company & vbCrLf _ & "E-Mail Address: " & emailaddress & vbCrLf objMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailserver objMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMail.Configuration.Fields.Update objMail.Send Set objMail = Nothing %>
 
 
 
 
 
 

For more information or to book an engagement, please contact:

About Changing
P.O. Box 973
Placitas, NM 87043
Tel: (505) 867-3942 or (505) 385-2244
info@aboutchanging.com

Sign up for our quarterly newsletter.

Name
Title
Company
Email Address
 


 
 
Copyright © 2006 About Changing. All rights reserved.