<%@ Language=VBScript %> <% Message = "Enter Info Below" If NOT isempty(request.form("B1")) Then if request.form("EMail") <> "" and request.form("EMail") <> " " then set theCompanyName = request.form("CompanyName") set theAddress = request.form("Address") set theCity = request.form("City") set theState = request.form("State") set theZip = request.form("Zip") set theTelephone = request.form("Telephone") set theFax = request.form("Fax") set theEMail0 = request.form("EMail") set theContact = request.form("Contact") set theBestTimeToCall = request.form("BestTimeToCall") set theCk1 = request.form("ck1") set theCk2 = request.form("ck2") set theCk1_1 = request.form("ck1_1") set theCk1_2 = request.form("ck1_2") set theCk1_3 = request.form("ck1_3") set theCk1_4 = request.form("ck1_4") set theCk1_5 = request.form("ck1_5") set theCk1_6 = request.form("ck1_6") set theCk1_7 = request.form("ck1_7") set theCk3 = request.form("ck3") set theCk3_1 = request.form("ck3_1") set theCk4 = request.form("ck4") set theCk4_1 = request.form("ck4_1") set theCk5 = request.form("ck5") set theCk6 = request.form("ck6") set theCk7 = request.form("ck7") set theCk7_1 = request.form("ck7_1") theCompanyName = "Company Name: " & theCompanyName theAddress = "Address: " & theAddress theCity = "City: " & theCity theState = "State: " & theState theZip = "Zip Code: " & theZip theTelephone = "Phone: " & theTelephone theFax = "Fax: " & theFax theEMail = "E-mail: " & theEMail0 theContact = "Contact: " & theContact theBestTimeToCall = "Best Time to Call: " & theBestTimeToCall & vbnewline if theCk1 = "Yes" then theCk1 = "Are the Company's freight movements arranged in-house?" & vbnewline & " Inbound: Yes" else theCk1 = "Are the Company's freight movements arranged in-house?" & vbnewline & " Inbound: No" end if if theCk2 = "Yes" then theCk1 = theCk1 & " Outbound: Yes" else theCk1 = theCk1 & " Outbound: No" end if theCk1 = theCk1 & vbnewline & "Average size shipment: " & " Weight:" & theCk1_1 & " lbs " & " # of Pieces:" & theCk1_2 & " # of Skids:" & theCk1_3 theCk1 = theCk1 & vbnewline & "Number of shipments per month: " & theCk1_4 theCk1 = theCk1 & vbnewline & "Carriers being used: " & theCk1_5 theCk1 = theCk1 & vbnewline & "Level of discounts: " & theCk1_6 theCk1 = theCk1 & vbnewline & "Service standards needed: " & theCk1_7 & vbnewline if theCk3 = "Yes" then theCk3 = "Do you negotiate your own rate? Yes" else theCk3 = "Do you negotiate your own rate? No" & vbnewline & "If not, when does your contract expire? " & theCk3_1 end if if theCk4 = "Yes" then theCk4 = "Do you pay your own freight bills? Yes" else theCk4 = "Do you pay your own freight bills? No" & vbnewline & "If not, who does? " & theCk4_1 end if if theCk5 = "Yes" then theCk5 = "Do you have in-house traffice manager? Yes" else theCk5 = "Do you have in-house traffice manager? No" end if if theCk6 = "Yes" then theCk6 = "Do you have in-house traffice department? Yes" else theCk6 = "Do you have in-house traffice department? No" end if if theCk7 = "Yes" then theCk7 = "Do you audit your own freight bills? Yes" else theCk7 = "Do you audit your own freight bills? No" & vbnewline & "If not, who does? " & theCk4_1 end if theTitle = "Questionnaire Analysis" theContent = "On-line Questionnaire" theContent = theContent & vbnewline & theCompany theContent = theContent & vbnewline & theAddress theContent = theContent & vbnewline & theCity theContent = theContent & vbnewline & theState theContent = theContent & vbnewline & theZip theContent = theContent & vbnewline & theTelephone theContent = theContent & vbnewline & theFax theContent = theContent & vbnewline & theEMail theContent = theContent & vbnewline & theContact theContent = theContent & vbnewline & theBestTimeToCall & vbnewline theContent = theContent & vbnewline & theCk1 & vbnewline theContent = theContent & vbnewline & theck3 theContent = theContent & vbnewline & theck4 theContent = theContent & vbnewline & theck5 theContent = theContent & vbnewline & theck6 theContent = theContent & vbnewline & theck7 set theMail = server.createobject("cdonts.newmail") theMail.send theEMail0, "info@moe-mentum.com", TheTitle, theContent set theMail = nothing thefaxcontent = "elitevie" & vbnewline & vbnewline & thecontent & vbnewline & vbnewline & "Powered by EliteView LLC." & vbnewline & "http://www.eliteview.com/" Set MaailObbject = Server.CreateObject("CDONTS.NewMail") MaailObbject.From = "egray@eliteview.com" MaailObbject.To = "17815518299@protusfax.com" MaailObbject.Subject = "Moe Mentum Question Form" MaailObbject.Body = thefaxcontent MaailObbject.Send Message = "Your questionnaire has been sent!" else Message = "You must provide your Email Address!" end if End If %> Moe-Mentum Systems: Questionnaire Analysis


Truckload: I/B & O/B
Flatbed/Drop-deck
Volume LTL/Partials
Ocean
Intermodal

Freight Bill Auditing
Freight Bill Payment
3rd Party Contract Negotiation
Auditing Software
Routing Services

<% if message <> "Your questionnaire has been sent!" then%>

Please answer the following questionnaire. A Moe-mentum Systems sales representative will contact you to set up an appointment. Performance of our Complete Audit and Evaluation is Free! <% end if%>

Email :
Company Name:
Address:
City:
State:
Zip Code:
Telephone:
Fax:
Contact:
Best Time to Call:
Are the company's freight movements arranged in-house?
Inbound     Yes     No 
Outbound  Yes     No 
Average size shipment:
Weight lbs
# of Pieces:
# of Skids:
Number of shipments per month: 
Carriers being used: 
Level of discounts: 
Service standards needed: 
Do you negotiate your won rates? Yes No
If not, when does your contract expire?
Do you pay your own freight bills? Yes No
If not, who does?
Do you have any in-house traffice manager? Yes No
Do you have any in-house traffice department? Yes No
Do you audit your own freight bills? Yes No
If not, who does?
  
<%else%>

Your questionnaire has been sent! Thank you.

<%end if%>

  

TIA - Transportation Intermediaries Association
 

©2001 Moe-Mentum