FUSION Contact Us Form

<% @language = vbscript %> <% option explicit 'response.expires = 0 ' Grab the values from the form Dim recipient, listserv, subject Dim WebsiteComment, EvisoryComment, Subscriber, EvisoryComment_Text, WebsiteComment_Text Dim FirstName, LastName, Title, FirmName, BizPhone, Email, Submit recipient = "esfusion@sellmoretraining.com" listserv = "LISTSERV@PEACH.EASE.LSOFT.COM" subject = "" WebsiteComment = Request.Form("WebsiteComment") EvisoryComment = Request.Form("EvisoryComment") Subscriber = Request.Form("Subscriber") EvisoryComment_Text = Request.Form("EvisoryComment_Text") WebsiteComment_Text = Request.Form("WebsiteComment_Text") FirstName = Request.Form("FirstName") LastName = Request.Form("LastName") Title = Request.Form("Title") FirmName = Request.Form("FirmName") BizPhone = Request.Form("BizPhone") Email = Request.Form("Email") Submit = Request.Form("Submit") If Submit <> "" Then 'fire off the email and later show thank you message End If %> FUSION Contact Us Form

<% If Submit = "" Then 'the form wasnt submitted so display it %>

FUSION
31 Atkinson Lane
Sudbury, MA 01776
PH: (978)443-5943
FX: (978)443-0945
esfusion@sellmoretraining.com

	Sign me up for a free subscription to Training Business E-Visory™! It is understood that my subscriber information will be kept confidential. (Please fill out and submit form below.)

	Below are my comments on a recent issue of Training Business E-Visory™, your Web Site, or my suggestions for a future E-Visory topic.


	Contact me to arrange a preliminary consultation,without fee or obligation. (Add details if desired.)


First Name
Last Name
Title
Firm
Business Phone
E-mail Address

<% Else 'the form was submitted so show thank you Dim Mailer, strMessage, strSubject If Subscriber = "yes" Then 'they want the E-Visory so subscribe to list Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromAddress = Email Mailer.RemoteHost = "smtp.rcn.com" Mailer.AddRecipient "", listserv Mailer.Subject = "" Mailer.BodyText = "SUBSCRIBE E-VISORY " & FirstName & " " & LastName Mailer.SendMail End If If EvisoryComment_Text <> "" Then 'something was typed into the comments box (Im ignoring the chechbox since this is more important strMessage = "Many thanks for submitting your comments and suggestions" & vbCrLf strMessage = strMessage & "during a recent visit to our FUSION WebSite. We'll do our" & vbCrLf strMessage = strMessage & "best to make the most of them!" & vbCrLf strMessage = strMessage & "" & vbCrLf strMessage = strMessage & "Sincerely," & vbCrLf strMessage = strMessage & "" & vbCrLf strMessage = strMessage & "Ed Shineman" & vbCrLf strMessage = strMessage & "Principal" & vbCrLf strMessage = strMessage & "FUSION" & vbCrLf strMessage = strMessage & "" & vbCrLf strMessage = strMessage & """Helping education companies teach better and sell more.""" & vbCrLf Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromAddress = recipient Mailer.RemoteHost = "smtp.rcn.com" Mailer.AddRecipient "", Email Mailer.Subject = "Mail from Web Site" Mailer.BodyText = strMessage Mailer.SendMail End If If WebsiteComment_Text <> "" Then 'something was typed into the contact me box (Im ignoring the chechbox since this is more important Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromAddress = recipient Mailer.RemoteHost = "smtp.rcn.com" Mailer.AddRecipient "", Email strSubject = "Mail from Web Site" strMessage = "Many thanks for expressing an interest in our services" & vbCrLf strMessage = strMessage & "during a recent visit to our WebSite. We'll be in touch" & vbCrLf strMessage = strMessage & "with you just as soon as we can." & vbCrLf strMessage = strMessage & "" & vbCrLf strMessage = strMessage & "Sincerely," & vbCrLf strMessage = strMessage & "" & vbCrLf strMessage = strMessage & "Ed Shineman" & vbCrLf strMessage = strMessage & "Principal" & vbCrLf strMessage = strMessage & "FUSION" & vbCrLf strMessage = strMessage & "" & vbCrLf strMessage = strMessage & """Helping education companies teach better and sell more.""" & vbCrLf Mailer.Subject = strSubject Mailer.BodyText = strMessage Mailer.SendMail End If If Subscriber = "yes" Or EvisoryComment_Text <> "" Or WebsiteComment_Text <> "" Then 'They did any combination of the three so notify Ed Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromAddress = Email Mailer.RemoteHost = "smtp.rcn.com" Mailer.AddRecipient "", recipient strSubject = "Mail from Web Site" strMessage = "Listserve: " & listserv & vbCrLf strMessage = strMessage & "Subscriber: " & Subscriber & vbCrLf strMessage = strMessage & "EvisoryComment: " & EvisoryComment & vbCrLf strMessage = strMessage & "EvisoryComment_Text: " & EvisoryComment_Text & vbCrLf strMessage = strMessage & "WebsiteComment: " & WebsiteComment & vbCrLf strMessage = strMessage & "WebsiteComment_Text: " & WebsiteComment_Text & vbCrLf strMessage = strMessage & "FirstName:" & FirstName & vbCrLf strMessage = strMessage & "LastName:" & LastName & vbCrLf strMessage = strMessage & "Title:" & Title & vbCrLf strMessage = strMessage & "FirmName:" & FirmName & vbCrLf strMessage = strMessage & "BizPhone:" & BizPhone & vbCrLf strMessage = strMessage & "email_addr:" & Email & vbCrLf strMessage = strMessage & "Below are my comments:" & vbCrLf Mailer.Subject = strSubject Mailer.BodyText = strMessage Mailer.SendMail End If %>

FUSION

31 Atkinson Lane
Sudbury, MA 01776
PH: (978)443-5943
FX: (978)443-0945
esfusion@sellmoretraining.com

Your request has been successfully submitted.
A confirmation will be sent to the email address provided.

<% End If %>