<%@ Language=VBScript %> <%if request.Form("Submit")="Submit" then Set RsGuestList = Server.CreateObject ("ADODB.Recordset") RsGuestList.ActiveConnection = OBJdbConnection RsGuestList.CursorType = 1 RsGuestList.LockType = 3 RsGuestList.Open "select BusinessEmail, EmailSystem from SystemSetup where fixed=fixed" ToEmail=RsGuestList("BusinessEmail") EmailSystem=RsGuestList("EmailSystem") FromEmail=Request.Form("ShipperEmail") RsGuestList.Close if Request.Form("ShipperName")<>"" then ShipperName="
Name: "&Request.Form("ShipperName") else ShipperName="
Name: N/A" end if if Request.Form("ShipperCompany")<>"" then ShipperCompany="
Company: "&Request.Form("ShipperCompany") else ShipperCompany="
Company: N/A" end if if Request.Form("ShipperIndustry")<>"" then ShipperIndustry="
Industry: "&Request.Form("ShipperIndustry") else ShipperIndustry="
Industry: N/A" end if if Request.Form("ShipperAddress")<>"" then ShipperAddress="
Address: "&Request.Form("ShipperAddress") else ShipperAddress="
Address: N/A" end if if Request.Form("ShipperCity")<>"" then ShipperCity="
City: "&Request.Form("ShipperCity") else ShipperCity="
City: N/A" end if if Request.Form("ShipperCountry")<>"" then ShipperCountry="
Country: "&Request.Form("ShipperCountry") else ShipperCountry="
Country: N/A" end if if Request.Form("ShipperEmail")<>"" then ShipperEmail="
Email: "&Request.Form("ShipperEmail") else ShipperEmail="
Email: N/A" end if if Request.Form("ShipperPhone")<>"" then ShipperPhone="
Phone: "&Request.Form("ShipperPhone") else ShipperPhone="
Phone: N/A" end if if Request.Form("ShipperFax")<>"" then ShipperFax="
Fax: "&Request.Form("ShipperFax") else ShipperFax="
Fax: N/A" end if if Request.Form("ConsigneeName")<>"" then ConsigneeName="
Name: "&Request.Form("ConsigneeName") else ConsigneeName="
Name: N/A" end if if Request.Form("ConsigneeCompany")<>"" then ConsigneeCompany="
Company: "&Request.Form("ConsigneeCompany") else ConsigneeCompany="
Company: N/A" end if if Request.Form("ConsigneeAddress")<>"" then ConsigneeAddress="
Address: "&Request.Form("ConsigneeAddress") else ConsigneeAddress="
Address: N/A" end if if Request.Form("ConsigneeCity")<>"" then ConsigneeCity="
City: "&Request.Form("ConsigneeCity") else ConsigneeCity="
City: N/A" end if if Request.Form("ConsigneeCountry")<>"" then ConsigneeCountry="
Country: "&Request.Form("ConsigneeCountry") else ConsigneeCountry="
Country: N/A" end if if Request.Form("ConsigneeEmail")<>"" then ConsigneeEmail="
Email: "&Request.Form("ConsigneeEmail") else ConsigneeEmail="
Email: N/A" end if if Request.Form("ConsigneePhone")<>"" then ConsigneePhone="
Phone: "&Request.Form("ConsigneePhone") else ConsigneePhone="
Phone: N/A" end if if Request.Form("ConsigneeFax")<>"" then ConsigneeFax="
Fax: "&Request.Form("ConsigneeFax") else ConsigneeFax="
Fax: N/A" end if if Request.Form("ReceiptCity")<>"" then ReceiptCity="
City: "&Request.Form("ReceiptCity") else ReceiptCity="
City: N/A" end if if Request.Form("ReceiptState")<>"" then ReceiptState="
State/Province: "&Request.Form("ReceiptState") else ReceiptState="
State/Province: N/A" end if if Request.Form("ReceiptCountry")<>"" then ReceiptCountry="
Country: "&Request.Form("ReceiptCountry") else ReceiptCountry="
Country: N/A" end if if Request.Form("ReceiptPOL")<>"" then ReceiptPOL="
Port of loading: "&Request.Form("ReceiptPOL") else ReceiptPOL="
Port of loading: N/A" end if if Request.Form("ReceiptAddress")<>"" then ReceiptAddress="
Pick up address: "&Request.Form("ReceiptAddress") else ReceiptAddress="
Pick up address: N/A" end if if Request.Form("DeliveryCity")<>"" then DeliveryCity="
City: "&Request.Form("DeliveryCity") else DeliveryCity="
City: N/A" end if if Request.Form("DeliveryState")<>"" then DeliveryState="
State/Province: "&Request.Form("DeliveryState") else DeliveryState="
State: N/A" end if if Request.Form("DeliveryCountry")<>"" then DeliveryCountry="
Country: "&Request.Form("DeliveryCountry") else DeliveryCountry="
Country: N/A" end if if Request.Form("DeliveryVessel")<>"" then DeliveryVessel="
Vessel name: "&Request.Form("DeliveryVessel") else DeliveryVessel="
Vessel name: N/A" end if if Request.Form("DeliveryDischarge")<>"" then DeliveryDischarge="
Port of discharge: "&Request.Form("DeliveryDischarge") else DeliveryDischarge="
Port of discharge: N/A" end if if Request.Form("DeliveryAddress")<>"" then DeliveryAddress="
Delivery ddress: "&Request.Form("DeliveryAddress") else DeliveryAddress="
Delivery address: N/A" end if if (Request.Form("Import")="") and (Request.Form("Export")="") and (Request.Form("Clearing")="") and (Request.Form("Insurance")="") and (Request.Form("InlandTransportation")="") then Service="
Required service: N/A" else Service="
Required service: " if Request.Form("Import")<>"" then Import="
Import" end if if Request.Form("Export")<>"" then Export="
Export" end if if Request.Form("Clearing")<>"" then Clearing="
Clearing" end if if Request.Form("Insurance")<>"" then Insurance="
Insurance" end if if Request.Form("InlandTransportation")<>"" then InlandTransportation="
Inland Transportation" end if if Request.Form("Transportation")<>"" then Transportation="
Mode of transportation: "&Request.Form("Transportation") else Transportation="
Mode of transportation: N/A" end if if Request.Form("Commodity")<>"" then Commodity="
Commodity: "&Request.Form("Commodity") else Commodity="
Commodity: N/A" end if if Request.Form("Type")<>"" then Typ="
Type: "&Request.Form("Type") else Typ="
Type: N/A" end if if Request.Form("Quantity")<>"" then Quantity="
Quantity: "&Request.Form("Quantity") else Quantity="
Quantity: N/A" end if if Request.Form("Volume")<>"" then Volume="
Volume: "&Request.Form("Volume") else Volume="
Volume: N/A" end if if Request.Form("Description")<>"" then Description="
Additional description: "&Request.Form("Description") else Description="
Additional description: N/A" end if if Request.Form("Freight")<>"" then Freight="
Freight: "&Request.Form("Freight") else Freight="
Freight: N/A" end if if Request.Form("Carrier")<>"" then Carrier="
Carrier: "&Request.Form("Carrier") else Carrier="
Carrier: N/A" end if if EmailSystem="CDONTS" then '================Email to Admin office=============== set objSendMail =CreateObject("CDONTS.NewMail") objSendMail.From = FromEmail objSendMail.To = ToEmail objSendMail.Subject ="Standard Rate Request" objSendMail.Body =""&_ "SHIPPER INFORMATION"&ShipperName&ShipperCompany&ShipperIndustry&ShipperAddress&ShipperCity&ShipperCountry&ShipperEmail&ShipperPhone&ShipperFax&_ "

CONSIGNEE INFORMATION"&ConsigneeName&ConsigneeCompany&ConsigneeAddress&ConsigneeCity&ConsigneeCountry&ConsigneeEmail&ConsigneePhone&ConsigneeFax&_ "

ROUTING INFORMATION"&_ "
1. Place of Receipt:"&ReceiptCity&ReceiptState&ReceiptCountry&ReceiptPOL&ReceiptAddress&_ "

2. Place of Delivery:"&DeliveryCity&DeliveryState&DeliveryCountry&DeliveryVessel&DeliveryDischarge&DeliveryAddress&_ "

SERVICE INFORMATION"&Service&Import&Export&Clearing&Insurance&InlandTransportation&Transportation&_ "

CARGO DESCRIPTION"&Commodity&Typ&Quantity&Volume&Description&Freight&Carrier&_ "
" objSendMail.BodyFormat= 0 objSendMail.MailFormat = 0 objSendMail.Send Set objSendMail=Nothing elseif EmailSystem="CDO" then '================Email to Admin office (CDO) ================== Set objSendMail = CreateObject("CDO.Message") objSendMail.From = FromEmail objSendMail.To = ToEmail objSendMail.Subject ="Standard Rate Request" objSendMail.HTMLBody = ""&_ "SHIPPER INFORMATION"&ShipperName&ShipperCompany&ShipperIndustry&ShipperAddress&ShipperCity&ShipperCountry&ShipperEmail&ShipperPhone&ShipperFax&_ "

CONSIGNEE INFORMATION"&ConsigneeName&ConsigneeCompany&ConsigneeAddress&ConsigneeCity&ConsigneeCountry&ConsigneeEmail&ConsigneePhone&ConsigneeFax&_ "

ROUTING INFORMATION"&_ "
1. Place of Receipt:"&ReceiptCity&ReceiptState&ReceiptCountry&ReceiptPOL&ReceiptAddress&_ "

2. Place of Delivery:"&DeliveryCity&DeliveryState&DeliveryCountry&DeliveryVessel&DeliveryDischarge&DeliveryAddress&_ "

SERVICE INFORMATION"&Service&Import&Export&Clearing&Insurance&InlandTransportation&Transportation&_ "

CARGO DESCRIPTION"&Commodity&Typ&Quantity&Volume&Description&Freight&Carrier&_ "
" 'objMessage.AddAttachment " " objSendMail.Send Set objSendMail=Nothing end if msg="sent" end if %> TRANS MISR shipping, clearing and trading <% '============ Random Images Function ======================================================= Function RandomImage(strPath,strDefault) On Error Resume Next Randomize Timer Dim objFSO, objFolder, objFiles, objFile Dim strFiles, strImages, strPhysical, strFile Const strValid = ".gif.jpg.png.swf" If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47) strPhysical = Server.MapPath(strPath) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysical) Set objFiles = objFolder.Files For Each objFile in objFiles strFile = LCase(objFile.Name) If Instr(strValid,Right(strFile,4)) Then strFiles = strFiles & strFile & vbTab End If Next strImages = Split(strFiles,vbTab) If UBound(strImages) > 1 Then RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages))) Else RandomImage = strDefault End If End Function %>

  Date:

  About Us | Services | Rate Query | Shipment Tracking | FAQ | Careers | Contact Us
 
<%if ((session("username")="") or (session("password")="")) then %> <%else%> <%end if%>
 

 

 

User Name:

Password:

 
 

  Rate Query ->> Standard Rate Request

" width="160" height="100">

" width="160" height="100">

"> " pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj34" width="160" height="100" quality="High">

<%if msg="sent" then%> <%else%> <%end if%>

Your request was submitted successfully to our sales office, one of our sales agents will contact you shortly regarding your request. Thank you for your interest in Trans Misr services.

<%'========================= Form table starts here =======================================%>

 Shipper Information:
 Name:
 Company name: *
 Industry: *
 Company address: *
 City: *
 Country: *
 Email: *
 Phone: *
 Fax: *
 Consignee Information:
 Name:
 Company name: *
 Company address: *
 City: *
 Country: *
 Email: *
 Phone: *
 Fax: *
 Routing Information:
 1. Place of receipt
 City: *
 State / Province:
 Country: *
 Port of loading: *
 Pick up address: *
 2. Place of delivery
 City: *
 State / Province:
 Country: *
 Vessel name:
 Port of discharge: *
 Delivery address: *
 Service Information:
 Required service:
"Check all that apply"
Import          Export          Clearing 
Insurance      Inland Transportation
 Mode of transportation:
 Cargo Description:
 Commodity: *
 Type: *
 Quantity: *
 Volume: *

 Additional description:
 Additional requirements:

 Freight: *
 Carrier: "if preference"

<%'========================= Form table ends here =======================================%>
PAGE TOP Terms and Conditions l Privacy Statement l Sitemap