<% if (Request.Form("Submit") = "Submit") then msg = "" if (Request.Form("contactus_name")="") then msg = msg & "First Name " & "
" end if if (Request.Form("contactus_lname")="") then msg = msg & "Last Name " & "
" end if if (Request.Form("contactus_organization")="") then msg = msg & "Organization [name] " & "
" end if if (Request.Form("organization_type")="Other" and Request.Form("org_type_other_text")="") then msg = msg & "Specify Your Organization [type] " & "
" end if if (Request.Form("interested_in")="Other" and Request.Form("interested_in_other_text")="") then msg = msg & "Specify areas you interested in " & "
" end if if (Request.Form("contactus_subject")="") then msg = msg & "Subject " & "
" end if if (Request.Form("contactus_comments")="") then msg = msg & "Comments " & "
" end if if (Request.Form("contactus_email")="") then msg = msg & "Email " & "
" else contactus_email = Cstr(Request.Form("contactus_email")) if contactus_email <> "" then blnValidEmail = RegExpTest(contactus_email) if not blnValidEmail then msg = msg & "Invalid Email " & "
" end if end if end if if (Request.Form("contactus_phone")<>"") then contactus_phone = Cstr(Request.Form("contactus_phone")) if contactus_phone <> "" then blnValidPhone = RegExpTest1(contactus_phone) if not blnValidPhone then 'msg = msg & "Invalid Phone " & "
" end if end if end if if (msg ="") then '' Mail Generation 'Dimension variables Dim strBody 'Holds the body of the e-mail Dim objCDOMail 'Holds the mail server object Dim strMyEmailAddress 'Holds your e-mail address Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail Dim strReturnEmailAddress 'Holds the return e-mail address of the user '----------------- Place your e-mail address in the following sting ---------------------------------- 'strMyEmailAddress = "testinfo@ftemp.com" strMyEmailAddress = "info@OutsourceIns.com" '----------- Place Carbon Copy e-mail address's in the following sting, separated by ; -------------- 'strCCEmailAddress = Request.Form("contactus_email") strCCEmailAddress = "" '----------- Place Blind Copy e-mail address's in the following string, separated by ; -------------- strBCCEmailAddress = "" 'Use this string only if you want to send the blind copies of the e-mail '----------------------------------------------------------------------------------------------------- strBody = strBody & "The following comments have been sent from the Outsourceins.com site Contact
" strBody = strBody & "First Name : " & Request.Form("contactus_name") & "
" strBody = strBody & "Last Name : " & Request.Form("contactus_lname") & "
" strBody = strBody & "Organization [name] : " & Request.Form("contactus_organization") & "
" if (Request.Form("organization_type")="Other") then strBody = strBody & "Organization [type] : " & Request.Form("org_type_other_text") & "
" else strBody = strBody & "Organization [type] : " & Request.Form("organization_type") & "
" end if strBody = strBody & "Position/Title : " & Request.Form("contactus_position") & "
" if (Request.Form("interested_in")="Other") then strBody = strBody & "Interested in : " & Request.Form("interested_in_other_text") & "
" else strBody = strBody & "Interested in : " & Request.Form("interested_in") & "
" end if strBody = strBody & "Email:" & "" & Request.Form("contactus_email") & "
" strBody = strBody & "Telephone / Call back#:" & Request.Form("contactus_phone") & "
" strBody = strBody & "Comments:" & Replace(Request.Form("contactus_comments"), vbCrLf, "

") 'response.write body Set objConfig = Server.CreateObject("CDO.Configuration") ' Outgoing SMTP server objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.bbs-la.com" objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "rsvp@riskmgmtadvisors.com" 'objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "rsvp2005" 'objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objConfig.Fields.Update 'Update configuration objConfig.Fields.Update Set objCDOMail = Server.CreateObject("CDO.Message") Set objCDOMail.Configuration = objConfig objCDOMail.From = Request.Form("contactus_email") & " <" & Request.Form("contactus_email") & ">" 'ToName = "Steve-Pixel" 'Who the e-mail is sent to 'objCDOMail.To = ToName & " <" & strMyEmailAddress & ">" objCDOMail.To = strMyEmailAddress 'Who the carbon copies are sent to 'objCDOMail.Cc = strCCEmailAddress 'Who the blind copies are sent to objCDOMail.Bcc = strBCCEmailAddress 'Set the e-mail body format (0=HTML 1=Text) 'objCDOMail.BodyFormat = 0 'Set the mail format (0=MIME 1=Text) 'objCDOMail.MailFormat = 0 'Set the subject of the e-mail objCDOMail.Subject = Request.Form("contactus_subject") 'Set the main body of the e-mail 'objCDOMail.Body = strBody objCDOMail.HTMLBody = strBody 'Importance of the e-mail (0=Low, 1=Normal, 2=High) 'objCDOMail.Importance = 1 'Send the e-mail objCDOMail.Send 'Close the server object Set objCDOMail = Nothing end if end if %> Outsource Insurance - Managing life insurance portfolios to improve performance and reduce financial and fiduciary risk - Contact
OUTSOURCE INSURANCE
OUTSOURCE INSURANCE
<% Function RegExpTest(sEmail) RegExpTest = false Dim regEx, retVal Set regEx = New RegExp ' Create regular expression: regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" ' Set pattern: regEx.IgnoreCase = true ' Set case sensitivity. retVal = regEx.Test(sEmail) ' Execute the search test. If not retVal Then exit function End If RegExpTest = true End Function '"/^[A-Z0-9\-]+$/" Function RegExpTest1(sPhone) RegExpTest1 = false Dim regEx, retVal Set regEx = New RegExp ' Create regular expression: regEx.Pattern ="/^[A-Z0-9\-]+$/" ' Set pattern: regEx.IgnoreCase = true ' Set case sensitivity. retVal = regEx.Test(sPhone) ' Execute the search test. If not retVal Then exit function End If RegExpTest1 = true End Function %>