% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component. Mail.FromName = "promo" Mail.FromAddress= Request.Form("email") Mail.RemoteHost = "mrelay.perfora.net" ' The mail server you have to use with Asp Mail Mail.AddRecipient "SpartanBusinessSystems", "sales@spartancopy.com" Mail.Subject = "Customer Appreciation Promo" Dim strBodyText strBodyText = Request.Form("RequestServiceCall") & vbCrLf strBodyText=strBodyText & Request.Form("Company") & vbCrLf strBodyText=strBodyText & Request.Form("Title") & vbCrLf strBodyText=strBodyText & Request.Form("FirstName") & vbCrLf strBodyText=strBodyText & Request.Form("LastName") & vbCrLf strBodyText=strBodyText & Request.Form("Address1") & vbCrLf strBodyText=strBodyText & Request.Form("Address2") & vbCrLf strBodyText=strBodyText & Request.Form("City") & vbCrLf strBodyText=strBodyText & Request.Form("State") & vbCrLf strBodyText=strBodyText & Request.Form("Zip") & vbCrLf strBodyText=strBodyText & Request.Form("Email") & vbCrLf strBodyText=strBodyText & Request.Form("emailcheckbox") & vbCrLf strBodyText=strBodyText & Request.Form("Phone") & vbCrLf strBodyText=strBodyText & Request.Form("Extension") & vbCrLf strBodyText=strBodyText & Request.Form("Phonecheckbox") & vbCrLf strBodyText=strBodyText & Request.Form("Mobile") & vbCrLf strBodyText=strBodyText & Request.Form("Mobilecheckbox") & vbCrLf strBodyText=strBodyText & Request.Form("9am") & vbCrLf strBodyText=strBodyText & Request.Form("10am") & vbCrLf strBodyText=strBodyText & Request.Form("11am") & vbCrLf strBodyText=strBodyText & Request.Form("12") & vbCrLf strBodyText=strBodyText & Request.Form("1pm") & vbCrLf strBodyText=strBodyText & Request.Form("2pm") & vbCrLf strBodyText=strBodyText & Request.Form("3pm") & vbCrLf strBodyText=strBodyText & Request.Form("4pm") & vbCrLf strBodyText=strBodyText & Request.Form("5pm") & vbCrLf strBodyText=strBodyText & Request.Form("requirements") & vbCrLf Mail.BodyText=strBodyText if Mail.SendMail then Response.Write "Spartan Business Systems, Inc. would like to take this time to thank you for your support and business. We greatly appreciate your business and truly value you as a customer and are grateful to be able to provide you with the highest quality document management solutions and services. We have concluded that in these challenging economic times that businesses are reviewing their vendor partnerships as well as expenditures related to technology products and office equipment. Our hope is that during your business review that you will continue to look to Spartan Business Systems, Inc. as your first-choice provider for these solutions and services. Please contact us by phone at 864.585.1013 or email at sales@spartancopy.com for assistance with cost analysis of your current standard, technology refresh, supplies, service or lease review." else Response.Write "Mail send failure. Error was" & Mail.Response end if %>
|
Serving
South Carolina since 1992 Authorized Lexmark Business Solutions Dealer Authorized Toshiba America Business Solutions Dealer and 2009 Recipient of the Toshiba ProMaster Service Award and Top Achievement Award for technical support and customer service excellence |
||||||||||||
184
Bryant Road, Spartanburg, SC 29303 864.585.1013 888.593.1300 info@spartancopy.com |

864.585.1013 888.593.1300