<% ' if the form is not submiting then run the form newform = Request.Form("submit") if newform <> "Submit" then %>

Sales Force Systems
7790 S.W. 145 Street
Miami, Florida U.S.A 33158
800.805.7902

If you would like us to contact you or send you information,
please fill out the form and press Submit.

*Denotes fields that must be filled out.

*First Name:
*Last Name:
*Phone:
*e-mail:

*Company:

Title:
Suite/Office Number:
Street:
City:
State/Province:
Zip/Postal Code::
Country:
Interests:
Sales Managers Handbook
Sales Productivity Improvement Training
Sales Process Software
Comments and Challenges:

 

<% ' else send the email else mailTo= Request.Form("mailTo") & "ahoffman@salesforcesystems.com" Message = "First Name: " & Request.Form("firstname") & vbcrlf & "Last Name: " & Request.Form("lastname") & _ vbcrlf & "Phone: " & Request.Form("phone") & vbcrlf & "e-mail: " & Request.Form("email") & _ vbcrlf & "Company: " & Request.Form("company") & vbcrlf & "Title: " & Request.Form("title") & _ vbcrlf & "Suite/Office Number: " & Request.Form("suite") & vbcrlf & "Street: " & Request.Form("street") & _ vbcrlf & "City: " & Request.Form("city") & vbcrlf & "State/Province: " & Request.Form("state") & _ vbcrlf & "Zip/Postal Code: " & Request.Form("postalcode") & vbcrlf & "Country: " & Request.Form("country") & _ vbcrlf & "Interests: " dim interestSeperator if Len(Request.Form("training")) > 0 and Len(Request.Form("automation")) > 0 then interestSeperator = ", " else interestSeperator = "" end if if Len(Request.Form("training")) > 0 then Message = Message & "Sales Productivity Improvement Training" & interestSeperator end if if Len(Request.Form("automation")) > 0 then Message = Message & "Sales Process Software" end if Message = Message & vbcrlf & vbcrlf &"Comments and Challenges: " & Request.Form("Message") 'Response.Clear : Response.Write Message: Response.End Set Mailer = Server.CreateObject ("SMTPsvg.Mailer") Mailer.FromName = "Sales Force Systems Website Lead" Mailer.FromAddress = "info@salesforcesystems.com" Mailer.Subject = "Website Inquiry " & Subject Mailer.BodyText = Message Mailer.RemoteHost = "outbound-relay.biz.rr.com" Mailer.AddRecipient mailTo, mailTo if Mailer.SendMail then ' Message sent sucessfully response.write "

Thanks for contacting Sales Force Systems.

A Sales Force Systems representative will be contacting you shortly.

 

" else ' Message send failure response.write "Your message was not sent.
" response.write "The error was: " & Mailer.Response & "


" end if Set Mailer = Nothing end if %>