US Bank Referral

<% ' The code below supplied by Mark Short ' returns string the can be written where you would like the reCAPTCHA challenged placed on your page function recaptcha_challenge_writer(publickey) recaptcha_challenge_writer = "" & _ "" & _ "" end function function recaptcha_confirm(privkey,rechallenge,reresponse) ' Test the captcha field Dim VarString VarString = _ "privatekey=" & privkey & _ "&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _ "&challenge=" & rechallenge & _ "&response=" & reresponse Dim objXmlHttp Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "http://api-verify.recaptcha.net/verify", False objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send VarString Dim ResponseString ResponseString = split(objXmlHttp.responseText, vblf) Set objXmlHttp = Nothing if ResponseString(0) = "true" then ' They answered correctly recaptcha_confirm = "" else ' They answered incorrectly recaptcha_confirm = ResponseString(1) end if end function If Request.Form.Count <> 0 AND Request.Form("Duty") = "SubmitContactUs" Then 'cTemp = recaptcha_confirm(recaptcha_private_key, recaptcha_challenge_field, recaptcha_response_field) 'cTemp = "" If cTemp <> "" Then '%> ' ' <% 'ShowContactUs() VerifySubmitContactUs() Else VerifySubmitContactUs() End If Else ShowContactUs() End If Function VerifySubmitContactUs() If Request.Form("Regarding") <> "- select -" Then SubmitContactUs() End If End Function Function SubmitContactUs() MailConfirmBodyText = "Date: " & Date & Chr(13) & "Time: " & Time & Chr(10) & Chr(13) ' MailConfirmBodyHTML = "

Inquiry Regarding:
Name:
Company:
Title:
Phone:
Best Time To Call:
E-Mail:
Question/Comment:

" ' For x = 1 to Request.Form.Count ' DeltaBurke = Request.Form.Key(x) ' SallyStruthers = Request.Form(x) ' If SallyStruthers <> "" And DeltaBurke <> "x" And DeltaBurke <> "y" And DeltaBurke <> "Duty" And DeltaBurke <> "Duty" Then ' MailConfirmBodyText = MailConfirmBodyText & DeltaBurke & ": " & SallyStruthers & Chr(10) & Chr(13) ' End If ' MailConfirmBodyHTML = Replace(MailConfirmBodyHTML, "", SallyStruthers) ' Next MailConfirmBodyHTML = " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ "

Inquiry Regarding:	" & Request.Form("Regarding") & "
US Bank Employee Name:	" & Request.Form("Name") & "
US Bank Employee Phone Number:	" & Request.Form("USBPhone") & "
US Bank Employee Email:	" & Request.Form("USBEmpEmail") & "
US Bank Relationship w/ Referral:	" & Request.Form("USBPhoneRelationship") & "
Referral Company Name:	" & Request.Form("Company") & "
Referral Headquarters Location:	" & Request.Form("CompLocation") & "
Referral Company Contact Name:	" & Request.Form("CompContactName") & "
Referral Company Contact Title:	" & Request.Form("Title") & "
Referral Company Contact Phone:	" & Request.Form("Phone") & "
Referral Company Contact Email:	" & Request.Form("Email") & "
Referral Company T&E volume:	" & Request.Form("Volume") & "
Question/Comment:	" & Request.Form("Message") & "

" Const cdoSendUsingPort = 2 Const strSmartHost = "MAILRELAY" Set Mailer = CreateObject("CDO.Message") Set iConf = Mailer.Configuration With iConf.Fields .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost .Update End With 'Select Case Request.Form("Regarding") ' Case "US Bank Referral" Mailer.To = "jriese@adelmanmail.com" 'End Select Mailer.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High" ' For Outlook 2003 Mailer.Fields.Item("urn:schemas:mailheader:X-Priority") = 2 ' For Outlook 2003 also Mailer.Fields.Item("urn:schemas:httpmail:importance") = 2 ' For Outlook Express Mailer.Fields.Update 'With Mailer Mailer.To = "jriese@adelmanmail.com" 'Mailer.To = "ssorensen@adelmanmail.com" Mailer.BCC = "jlau@adelmanmail.com" Mailer.From = "intranet@adelmanmail.com" Mailer.Subject = "New Web Contact - " & Request.Form("Regarding") Mailer.HTMLBody = MailConfirmBodyHTML ' Mailer.TextBody = MailConfirmBodyText Mailer.Send 'End With Set Mailer = Nothing Response.Write("

Thank you for contacting Adelman Travel.
An Adelman Specialist will be contacting you shortly.

") End Function Function ShowContactUs() %>

Please complete the form below to contact an Adelman Specialist.(*=required)

Inquire Regarding:	- select - US Bank Referral
* US Bank Employee Name:
* US Bank Employee Phone Number:
* US Bank Employee Email:
* Current US Bank Relationship with the Referral Company (i.e., existing customer, US Bank prospect, etc.):
* Referral Company Name:
Referral Company Headquarters Location:
Referral Company Contact Name:
Referral Company Contact Title:
Referral Company Contact Phone Number:
Referral Company Contact Email:
What is the Referral Company's annual T&E volume?:
Does the Referral Company currently utilize a Travel Management Company and/or online booking solution? If “yes” to either or both, which company do they work with?

Site issues? Contact webmaster@adelmantravel.com

<% End Function %>