<% '********************************************* ' REQUEST VARIABLES CMD = UCase(Trim(Request("CMD"))) FirstName = Trim(Request("FirstName")) LastName = Trim(Request("LastName")) Address = Trim(Request("Address")) City = Trim(Request("City")) State = Trim(Request("State")) Zip = Trim(Request("Zip")) Country = Trim(Request("Country")) Phone = Trim(Request("Phone")) Email = Trim(Request("Email")) BestTimeToContact = Trim(Request("BestTimeToContact")) Comments = Trim(Request("Comments")) '********************************************* ' ERROR CHECKING Err = False IF CMD = "SEND" THEN '---------------------------- IF FirstName = "" THEN ErrMsg = ErrMsg & "First Name, " Err = True CMD = "" END IF IF LastName = "" THEN ErrMsg = ErrMsg & "Last Name, " Err = True CMD = "" END IF IF Address = "" THEN ErrMsg = ErrMsg & "Address, " Err = True CMD = "" END IF IF City = "" THEN ErrMsg = ErrMsg & "City, " Err = True CMD = "" END IF IF State = "" THEN ErrMsg = ErrMsg & "State, " Err = True CMD = "" END IF IF Zip = "" THEN ErrMsg = ErrMsg & "Zip, " Err = True CMD = "" END IF IF Country = "" THEN ErrMsg = ErrMsg & "Country, " Err = True CMD = "" END IF IF Email = "" THEN ErrMsg = ErrMsg & "Email, " Err = True CMD = "" END IF IF Phone = "" THEN ErrMsg = ErrMsg & "Phone, " Err = True CMD = "" END IF IF BestTimeToContact = "" THEN ErrMsg = ErrMsg & "BestTimeToContact, " Err = True CMD = "" END IF '---------------------------- END IF IF ErrMsg <> "" THEN ErrMsg = Mid(ErrMsg,1,Len(ErrMsg)-2) ErrMsg = "Please fill in the following fields: " & ErrMsg & "." END IF '******************************************************* ' SEND MESSAGE IF CMD <> "" THEN CR = Chr(13) & Chr(10) QT = Chr(34) MailTo = "info@expandyoursales.com" '---------------------------- Body = "Information Request - ExpandYourSales.com" & CR & CR Body = Body & "Name: " & FirstName & " " & LastName & CR Body = Body & "Email: " & Email & CR Body = Body & "Phone: " & Phone & CR & CR Body = Body & "Address:" & CR Body = Body & Address & CR Body = Body & City & CR Body = Body & State & "," & Zip & CR Body = Body & Country & CR & CR Body = Body & "Best Time to Contact:" & BestTimeToContact & CR Body = Body & "Comments:" & CR Body = Body & Comments Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.joinaec.com" Mail.From = "info@expandyoursales.com" Mail.FromName = "Web Site" Mail.AddAddress MailTo Mail.Subject = "Info Request: " & FirstName Mail.Body = Body On Error Resume Next Mail.Send Set Mail = Nothing Body = Nothing '-------------------------------------------------------- Body = "THANK YOU!" & CR & CR Body = Body & "The information you have sent was received successfully." & CR & CR Body = Body & "604-224-6218" & CR & CR Body = Body & "ExpandYourSales" & CR Body = Body & "http://www.expandyoursales.com" & CR Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.joinaec.com" Mail.From = "info@expandyoursales.com" Mail.FromName = "ExpandYourSales" Mail.AddAddress Email Mail.Subject = "www.expandyoursales.com" Mail.Body = Body On Error Resume Next Mail.Send Set Mail = Nothing END IF '******************************************************* %> Expand Your Sales

Tel: 604-224-6218
Fax:604-224-6208
E-mail: info@expandyoursales.com

Please fill in the request form below and we will respond by e-mail or phone. First consultation session is complimentary.

Note: All information above is strictly confidential for the use of expandyoursales.com.only and will not be sold, traded, or used by any other companies or individuals.
 

<% IF Err = True THEN %>
<%=ErrMsg%>
 
<% END IF IF CMD = "SEND" THEN %>
Thank You <%=FirstName%>,
Your message was received.
 
<% END IF %>

 

* Required Fields 

First Name:  *
Last Name: *
 
Address: *
City: *
State / Province: *
Zip / Postal Code: *
Country: *
 
Phone: *
Email: *
Best time to contact: *

 

 

Please submit your comments:

 
 

Questions or comments about the Website? E-mail: the Webmaster

 

Copyright 2003 expandyoursales.com