<%
' 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)
If cTemp <> "" Then
%>
<%
ShowContactUs()
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(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" Then
MailConfirmBodyText = MailConfirmBodyText & DeltaBurke & ": " & SallyStruthers & Chr(13)
End If
MailConfirmBodyHTML = Replace(MailConfirmBodyHTML, "", SallyStruthers)
Next
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 "Online Booking Support" Mailer.To = "online@adelmanmail.com"
Case "Password Assistance" Mailer.To = "online@adelmanmail.com"
Case "Business Travel" Mailer.To = "essupervisor@adelmanmail.com"
Case "Careers" Mailer.To = "jobs@adelmanmail.com"
Case "Meetings and Incentives" Mailer.To = "meeting-leads@adelmanmail.com"
Case "Public Relations" Mailer.To = "pr@adelmanmail.com"
Case "Becoming an Adelman Customer" Mailer.To = "sales@adelmanmail.com"
Case "Supplier Relations" Mailer.To = "supplierservices@adelmanmail.com"
Case "Vacation Travel" Mailer.To = "vacations@adelmanmail.com"
Case "Trip Request" Mailer.To = "essupervisor@adelmanmail.com"
Case "Other" Mailer.To = "essupervisor@adelmanmail.com"
Case Else Mailer.To = "info@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.BCC = "amcgraw@adelmantravel.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()
%>
Passwords are case sensitive. Each online booking system has a "Forgot My Password" or "Lost Password" link on the login page. Select your online booking system below and enter you login ID (and company id if prompted) and your password will be reset with instructions emailed to the email address on file for your login ID.
If your account becomes locked or you need further assistance please click here to complete the Contact Us form or call Online Support at 414-410-8438 to have your password reset.