<%@ LANGUAGE="VBScript" %> <% recaptcha_challenge_field = Request("recaptcha_challenge_field") recaptcha_response_field = Request("recaptcha_response_field") recaptcha_private_key = "6LdRpMQSAAAAAA9ccRJufULhUROWWyUpDYUmH1Vz" recaptcha_public_key = "6LdRpMQSAAAAAAUsvWiXjkUSdpl1lWmYYFe4IFuB" browser = Request.ServerVariables("HTTP_USER_AGENT") ip = Request.ServerVariables("REMOTE_HOST") %> Adelman Travel Group - Contact Us

Contact Us

<% ' 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() %>

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

Inquire Regarding: 
* Name: 
* Company: 
Title: 
* Phone: 
Best Time To Call: 
* Email: 
Question/Comment: 
<%=recaptcha_challenge_writer(recaptcha_public_key)%>

Site issues? Contact webmaster@adelmantravel.com

<% End Function %>

(800) 248-5562 (8:00am - 5:30pm CST)
(414) 410-8399 (Local/International)
(800) 231-3999 (Emergency Assistance)

View Global Locations in 80 Countries

Adelman Office locations:

Milwaukee Headquarters
6980 N. Port Washington Rd.
Milwaukee, WI 53217
(414) 410-8300
Click here for a map and directions to Milwaukee HQ

Springfield Vacation Center
3424 S. National
Springfield, MO 65807
(417) 888-4488
Click here for a map and directions to Springfield Vacations Center

Columbia Travel Center
3103 W. Broadway, Suite 101
Columbia, MO 65203
(573) 442-2200
Click here for a map and directions to Columbia

Lebanon Travel Center
528 S. Jefferson
Lebanon, MO 65203
(417) 532-8282
Click here for a map and directions to Lebanon

St. Louis Travel Center
11457 Olive Blvd.
St. Louis, MO 63141
(314) 432-6020
Click here for a map and directions to St. Louis

Rogers Travel Center
2522 Pinnacle Pkwy, Suite 100
Rogers, AR 72758
(479) 273-7873
Click here for a map and directions to Rogers

Overland Park Travel Center
8170 W. 135th Street
Overland Park, KS 66223
(913) 780-0500
Click here for a map and directions to Overland Park

Dallas Travel Center
13140 Coit Road, Suite 110
Dallas, TX 75240
(817) 731-0836
Click here for a map and directions to Dallas

Chamber Discoveries Office
1300 E. Shaw Ave Suite 127
Fresno, CA 93710
Local: (559) 244-6600
info@chamberdiscoveries.com

Food and Wine Trails Office
141 Stony Point Road, Suite 260
Santa Rosa, CA 95401
Local: (800) 367-5348
info@foodandwinetrails.com