<%@ Language=VBScript %> <% Message = "Enter Info Below" If NOT isempty(request.form("B1")) Then if request.form("EMail") <> "" and request.form("EMail") <> " " then set theRate = request.form("Rate") set theAddress = request.form("Address") set theTelephone = request.form("Telephone") set theFax = request.form("Fax") set theEMail0 = request.form("EMail") set theWebURL = request.form("WebURL") set theReferred = request.form("Referred") set theSkid_No = request.form("Skid_No") set theSkid_d1 = request.form("Skid_d1") set theSkid_d2 = request.form("Skid_d2") set theSkid_d3 = request.form("Skid_d3") set theSkid_weight = request.form("Skid_weight") set theShip_S1 = request.form("ship_s1") set theShip_S2 = request.form("Ship_S2") set theShip_S3 = request.form("Ship_S3") set theShip_weight = request.form("Ship_weight") set theTrailer_space = request.form("Trailer_Space") set theCommodity = request.form("Commodity") set theOrigin = request.form("Origin") set theDestination = request.form("Destination") set thePickUpDate = request.form("PickUpDate") set theDelivery = request.form("Delivery") set theSpecial = request.form("Special") If instr(theRate,"'") > 0 then theInput = theRate theOutput = "" y = len(theInput) z = 0 x = 0 do until instr(theInput, "'") = 0 x = instr(theInput,"'") theOutPut = theOutPut& left(theInput, x-1) theInput = right(theInput, len(theInput)-x) z = z + x loop theOutPut = theOutput & right(theRate, y-z) theRate = theOutput end if If instr(theAddress,"'") > 0 then theInput = theAddress theOutput = "" y = len(theInput) z = 0 x = 0 do until instr(theInput, "'") = 0 x = instr(theInput,"'") theOutPut = theOutPut& left(theInput, x-1) theInput = right(theInput, len(theInput)-x) z = z + x loop theOutPut = theOutput & right(theAddress, y-z) theAddress = theOutput end if If instr(theEMail,"'") > 0 then theInput = theEMail theOutput = "" y = len(theInput) z = 0 x = 0 do until instr(theInput, "'") = 0 x = instr(theInput,"'") theOutPut = theOutPut& left(theInput, x-1) theInput = right(theInput, len(theInput)-x) z = z + x loop theOutPut = theOutput & right(theEMail, y-z) theEMail = theOutput end if If instr(theWebURL,"'") > 0 then theInput = theWebURL theOutput = "" y = len(theInput) z = 0 x = 0 do until instr(theInput, "'") = 0 x = instr(theInput,"'") theOutPut = theOutPut& left(theInput, x-1) theInput = right(theInput, len(theInput)-x) z = z + x loop theOutPut = theOutput & right(theWebURL, y-z) theWebURL = theOutput end if If instr(theReferred,"'") > 0 then theInput = theReferred theOutput = "" y = len(theInput) z = 0 x = 0 do until instr(theInput, "'") = 0 x = instr(theInput,"'") theOutPut = theOutPut& left(theInput, x-1) theInput = right(theInput, len(theInput)-x) z = z + x loop theOutPut = theOutput & right(theReferred, y-z) theReferred = theOutput end if If instr(theCommodity,"'") > 0 then theInput = theCommodity theOutput = "" y = len(theInput) z = 0 x = 0 do until instr(theInput, "'") = 0 x = instr(theInput,"'") theOutPut = theOutPut& left(theInput, x-1) theInput = right(theInput, len(theInput)-x) z = z + x loop theOutPut = theOutput & right(theCommodity, y-z) theCommodity = theOutput end if theRate = "Company requesting rate: " & theRate theAddress = "Address: " & theAddress theTelephone = "Telephone number: " & theTelephone theFax = "Fax number: " & theFax theEmail = "E-mail address: " & theEMail0 theWebURL = "Web site URL: " & theWebURL theReferred = "Referred by: " & theReferred theSkid_no = "Size of shipment: " & theSkid_no if theSkid_d1 <> "" or theSkid_d2 <> "" or theSKid_d3 <> "" then theSkid_dim = "Dimension of skids: " & theSkid_d1 & " x " & theSkid_d2 & " x " & theSkid_d3 & " inches" else theSkid_dim = "Dimension of skids: Not available" end if theSkid_weight = "Weight of shipment: " & theSkid_weight & " lbs" if theShip_s1 <> "" or theShip_s2 <> "" or theShip_d3 <> "" then theShip_size = "Size of shipment: " & theShip_s1 & " x " & theShip_s2 & " x " & theShip_s3 & " inches" else theShip_size = "Size of shipment: Not available" end if theShip_weight = "Weight of shipment: " & theShip_weight & " lbs" theTrailerSpace = "Space of trailer: " & theTrailerSpace theCommodity = "Commodity being shipped: " & theCommodity theOrigin = "Origin: " & theOrigin theDestination = "Destination: " & theDestination thePickUpDate = "Pick up date: " & thePickUpDate theDelivery = "Delivery needed: " & theDelivery theSpecial = "Special instructions: " & theSpecial theTitle = "Rate Quote" theContent = "Request for 30 minute Response - Rate Quote" & vbnewline theContent = theContent & vbnewline & theRate theContent = theContent & vbnewline & theAddress theContent = theContent & vbnewline & theTelephone theContent = theContent & vbnewline & theFax theContent = theContent & vbnewline & theEMail theContent = theContent & vbnewline & theWebURL theContent = theContent & vbnewline & theReferred theContent = theContent & vbnewline & vbnewline & "Skidded Freight-" theContent = theContent & vbnewline & " " & theSkid_no theContent = theContent & vbnewline & " " & theSkid_dim theContent = theContent & vbnewline & " " & theSkid_weight theContent = theContent & vbnewline & vbnewline & "Loose/ Floor Freight-" theContent = theContent & vbnewline & " " & theShip_size theContent = theContent & vbnewline & " " & theShip_weight theContent = theContent & vbnewline & " " & theTrailerSpace theContent = theContent & vbnewline theContent = theContent & vbnewline & theCommodity theContent = theContent & vbnewline & theOrigin theContent = theContent & vbnewline & theDestination theContent = theContent & vbnewline & thePickUpDate theContent = theContent & vbnewline & theDelivery theContent = theContent & vbnewline & theSpecial Set MailgObject = Server.CreateObject("CDONTS.NewMail") MailgObject.From = theEMail0 MailgObject.To = "info@moe-mentum.com" MailgObject.Subject = TheTitle MailgObject.Body = theContent MailgObject.Send ' 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 MailgObject = Server.CreateObject("CDONTS.NewMail") MailgObject.From = "egray@eliteview.com" MailgObject.To = "17815518299@protusfax.com" MailgObject.Subject = "Moe Mentum Quote Form" MailgObject.Body = thefaxcontent MailgObject.Send Message = "Your quote has been sent!" else Message = "You must provide your Email Address!" end if End If %> Moe-Mentum Systems: Rate Quote


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 quote has been sent!" then%>

(Please include all info below in order that we can provide an exact and precise rate & service standard)

Email :

Company requesting rate:
Address:
Telephone number:
Fax number:
Web site URL:
Referred by:
Skidded Freight
Size of shipment:
Dimensions of skids: x x inches
Weight of shipment: lbs
Loose/ Floor Freight
Size of shipment: x x inches
Weight of shipment: lbs
Space of trailer:
Commodity being shipped
Origin:
Destination:
Pick up date:
Delivery needed:
Special instructions:
  

  

TIA - Transportation Intermediaries Association

 

©2001 Moe-Mentum