<%@ 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") company = Request("Company") address = Request("Address") city = Request("Address2") contact = Request("Name") Title = Request("Title") phone = Request("Phone") email = Request("Email") dun = Request("Dnbnum") pin = Request("PIN") invalidPIN = "" %> Adelman Travel Group - Products and Services - myAdelman

Products and Services - myAdelman

   

myAdelman

Adelman Express

Have questions before opening an account?
Please contact:
Kate Miglautsch
Inside Sales Representative
kmiglautsch@adelmantravel.com
Direct: (414) 410-8459
<%' 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") = "SubmitReq" Then cTemp = recaptcha_confirm(recaptcha_private_key, recaptcha_challenge_field, recaptcha_response_field) If cTemp <> "" Then%> <%ShowForm() Else 'path to current directory path = Server.MapPath(".") filename = "\Products_and_Services-Express.txt" Set objFSO=CreateObject("Scripting.FileSystemObject") 'read a file strFile = path + filename Set objFile = objFSO.OpenTextFile(strFile) Do Until objFile.AtEndOfStream validPIN= objFile.ReadLine Loop objFile.Close If validPIN <> MD5(Request("PIN")) Then invalidPIN = "FALSE" ShowForm() Else invalidPIN = "" SubmitReq() End If End If Else ShowForm() End If Function SubmitReq() MailConfirmBodyText = "Date: " & Date & Chr(13) & "Time: " & Time & Chr(13) MailConfirmBodyHTML = "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" MailConfirmBodyHTML2 = "
Thank you for contacting Adelman Travel.
Please download and sign the attached contract.
Reply to this email and attach the signed contract
 
Your Contract Request:
Company Name: 
Address: 
City, State, Zip: 
Contact Name: 
Contact Title: 
Phone: 
E-Mail Address: 
Dun & Bradstreet #: 
Swabiz Company ID: 
 
Email:
Client:
swabiz:
" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" For x = 1 to Request.Form.Count formKey = Request.Form.Key(x) formValue = Request.Form(x) If formValue <> "" And formKey <> "x" And formKey <> "y" And formKey <> "Duty" Then MailConfirmBodyText = MailConfirmBodyText & formKey & ": " & formValue & Chr(13) End If if formKey = "Email" then MailConfirmBodyHTML = Replace(MailConfirmBodyHTML, "", replace(formValue,"@",".AT.")) end if MailConfirmBodyHTML = Replace(MailConfirmBodyHTML, "", formValue) MailConfirmBodyHTML2 = Replace(MailConfirmBodyHTML2, "", formValue) 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 'Mailer.To = "bgivler@adelmanmail.com" Mailer.To = "implementation@adelmanmail.com" Mailer.Bcc = "jtorre@adelmanmail.com" With Mailer Mailer.From = "AdelmanExpress@adelmanmail.com" Mailer.Subject = "Adelman Express D&B Validation Needed - " + Request.Form("Company") Mailer.HTMLBody = "This customer is in the process of contracting with Adelman Travel for the Adelman Express booking tool. Please go to www.dandb.com , click the D&B D-U-N-S Number menu option along the top bar. Click the Search for D&B D-U-N-S Number link. Enter the company name and address and verify that the company appears in the search results. If it does not, contact the client to let them know we were unable to validate the number and ask that they re-confirm.

This notification is solely for the purpose of valeting the D&B number. No additional steps are required until the counter-signed contract is distributed, at which time you will receive a notification with instructions.
" + MailConfirmBodyHTML2 Mailer.TextBody = MailConfirmBodyText Mailer.Send End With Mailer.To = Request.Form("Email") Mailer.Bcc = "jtorre@adelmanmail.com" With Mailer Mailer.From = "AdelmanExpress@adelmanmail.com" Mailer.Subject = Request.Form("Company") + " - Your Requested Contract" Mailer.AddAttachment "C:\Inetpub\wwwroot\docs\Adelman Express Agreement.pdf" Mailer.HTMLBody = MailConfirmBodyHTML Mailer.TextBody = MailConfirmBodyText Mailer.Send End With Set Mailer = Nothing Response.Write("

Thank you for contacting Adelman Travel.
You should receive your Contract email within 10 minutes.
If you do not receive an email in that time,
check your email address and re-submit.

") End Function Function ShowForm()%>

Please complete the form below to request a contract (*=Required)

Your Contract Request:
Company Name: 
Address: 
City, State, Zip: 
Contact Name: 
Contact Title: 
Phone: 
E-Mail Address: 
Dun & Bradstreet #: 
Swabiz Company ID: 
 
Email:
Client:
swabiz:
<% If cTemp <> "" Then%> <% else end if If invalidPIN <> "" Then%> <% else end if %>
* Company Name:  >
* Address:  >
* City/State/Zip:  >
* Contact Name:  >
Contact Title:  >
* Phone #(10 digits):  >
* E-Mail:  >
* Dun & Bradstreet #(9 digits):  >
* PIN:  >
Swabiz Company ID:  >
If you do not have a Swabiz Company ID, please sign up here https://www.swabiz.com/swabiz/self-enroll to take advantage of Southwest Direct Connect fares. If no Company ID is entered, Southwest flights will not be available in the booking tool.
Your reCaptcha challenge words were typed incorrectly. 
You have entered in an invalid PIN. 
 
<%=recaptcha_challenge_writer(recaptcha_public_key)%>

Site issues? Contact webmaster@adelmantravel.com

<%End Function%>