<%@ Language=VBScript %> <% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "LifesWorkServices" Mailer.FromAddress= "get2work@synergistech.com" Mailer.RemoteHost = "mail.synergistech.com" Mailer.AddRecipient "Cliff Flamer", "get2work@synergistech.com" if Request.querystring("frmSrc") = "interview" then Mailer.Subject = "Interview Coaching" MailBody = MailBody & "lisTitle: " & Request.Form("lisTitle") & VbCrLf MailBody = MailBody & "txtFirstName: " & Request.Form("txtFirstName") & VbCrLf MailBody = MailBody & "txtLastName: " & Request.Form("txtLastName") & VbCrLf MailBody = MailBody & "txtEmail: " & Request.Form("txtEmail") & VbCrLf MailBody = MailBody & "txtEmail2: " & Request.Form("txtEmail2") & VbCrLf MailBody = MailBody & "lisPhone1Type: " & Request.Form("lisPhone1Type") & VbCrLf MailBody = MailBody & "txtPhone1: " & Request.Form("txtPhone1") & VbCrLf MailBody = MailBody & "lisPhone2Type: " & Request.Form("lisPhone2Type") & VbCrLf MailBody = MailBody & "txtphone2: " & Request.Form("txtphone2") & VbCrLf else Mailer.Subject = "Lifes Work Services Order" MailBody = MailBody & "Name: " & Request.Form("Name") & VbCrLf MailBody = MailBody & "Email: " & Request.Form("Email") & VbCrLf MailBody = MailBody & "rdoResume: " & Request.Form("rdoResume") & VbCrLf MailBody = MailBody & "ResumePrice: " & Request.Form("ResumePrice") & VbCrLf MailBody = MailBody & "ResumePages: " & Request.Form("ResumePages") & VbCrLf MailBody = MailBody & "resumeSubTotal: " & Request.Form("resumeSubTotal") & VbCrLf MailBody = MailBody & "Interview: " & Request.Form("Interview") & VbCrLf MailBody = MailBody & "InterviewPrice: " & Request.Form("InterviewPrice") & VbCrLf MailBody = MailBody & "interviewSubTotal: " & Request.Form("interviewSubTotal") & VbCrLf MailBody = MailBody & "rdoReference: " & Request.Form("rdoReference") & VbCrLf MailBody = MailBody & "Reference: " & Request.Form("Reference") & VbCrLf MailBody = MailBody & "ReferencePrice: " & Request.Form("ReferencePrice") & VbCrLf MailBody = MailBody & "ReferencePages: " & Request.Form("ReferencePages") & VbCrLf MailBody = MailBody & "lisReferencePage: " & Request.Form("lisReferencePage") & VbCrLf MailBody = MailBody & "referenceSubTotal: " & Request.Form("referenceSubTotal") & VbCrLf MailBody = MailBody & "ResumeTotal: " & Request.Form("ResumeTotal") & VbCrLf MailBody = MailBody & "InterviewTotal: " & Request.Form("InterviewTotal") & VbCrLf MailBody = MailBody & "ReferenceTotal: " & Request.Form("ReferenceTotal") & VbCrLf MailBody = MailBody & "GrandTotal: " & Request.Form("GrandTotal") & VbCrLf End if Mailer.BodyText = MailBody if Mailer.SendMail then if Request.QueryString("frmSrc") = "interview" then response.redirect "default.asp" else Response.Redirect "thanks.asp?thanks=order_check" end if else Response.Write "Mail send failure. Error was " & Mailer.Response & ". Please hit back and try to resubmit or contact us." end if %>