% Action = Left(UCase(Request("Action")),4) fm_name = request.form("fm_name") fm_email = request.form("fm_email") IF Action = "SEND" AND fm_name <> "" and fm_email <> "" THEN Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = fm_name Mailer.FromAddress = fm_email Mailer.RemoteHost = "custmail.s7systems.com" Mailer.Encoding = 2 Mailer.AddRecipient "info@cheapwc.com","info@cheapwc.com" Mailer.AddBCC "jason@jestec.com","jason@jestec.com" Mailer.Subject = "Additional Insured Questionnaire" strBody = strBody & "Questionnaire submitted to Rick Johnson Insurance on " & NOW & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Name...: " & fm_name & Chr(13) & Chr(10) strBody = strBody & "Email..: " & fm_email & Chr(13) & Chr(10) strBody = strBody & "Phone..: " & Request("fm_phone") & Chr(13) & Chr(10) strBody = strBody & "Name of Entity requesting to be added...........: " & Request("fm_comments1") & Chr(13) & Chr(10) strBody = strBody & "Operations of Entity requesting to be added.....: " & Request("fm_comments2") & Chr(13) & Chr(10) strBody = strBody & "Relationship between named & additional.........: " & Request("fm_comments3") & Chr(13) & Chr(10) strBody = strBody & "Type of work to be done for Additional..........: " & Request("fm_comments4") & Chr(13) & Chr(10) strBody = strBody & "Type of work to be done for Additional..........: " & Request("fm_comments4") & Chr(13) & Chr(10) strBody = strBody & "Is there a written contract between groups?.....: " & Request("fm_written") & Chr(13) & Chr(10) strBody = strBody & "Contract cost of work to be done by additional..: " & Request("fm_additional") & Chr(13) & Chr(10) strBody = strBody & "Does additional maintain primary insurance?.....: " & Request("fm_primary") & Chr(13) & Chr(10) Mailer.BodyText = strBody Mailer.SendMail Response.Redirect "thankyou.htm" END IF %>
|