<%@ 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("ConsigneeIndustry")<>"" then ConsigneeIndustry="
Industry: "&Request.Form("ConsigneeIndustry") else ConsigneeIndustry="
Industry: 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="
Airport of load: "&Request.Form("ReceiptPOL") else ReceiptPOL="
Airport of load: 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/Province: N/A" end if if Request.Form("DeliveryCountry")<>"" then DeliveryCountry="
Country: "&Request.Form("DeliveryCountry") else DeliveryCountry="
Country: N/A" end if if Request.Form("DeliveryDischarge")<>"" then DeliveryDischarge="
Airport of discharge: "&Request.Form("DeliveryDischarge") else DeliveryDischarge="
Airport of discharge: N/A" end if if Request.Form("DeliveryAddress")<>"" then DeliveryAddress="
Delivery address: "&Request.Form("DeliveryAddress") else DeliveryAddress="
Delivery address: N/A" end if if Request.Form("CargoType")<>"" then CargoType="
Cargo type: "&Request.Form("CargoType") else CargoType="
Cargo type: N/A" end if if Request.Form("Class")<>"" then Clas="Class: "&Request.Form("Class") else Clas="
Class: N/A" end if if Request.Form("Airline")<>"" then Airline="
Airline / Flight: "&Request.Form("Airline") else Airline="
Airline / Flight: N/A" end if if Request.Form("Weight1")<>"" then Weight1="
Exact weight: "&Request.Form("Weight1") else Weight1="
Exact weight: N/A" end if if Request.Form("Weight2")<>"" then Weight2="
Weight range: "&Request.Form("Weight2") else Weight2="
Weight range: N/A" end if if Request.Form("Height")<>"" and Request.Form("Length")<>"" and Request.Form("Width")<>"" then Measurements="
Measurements: H "&Request.Form("Height")&" x L "&Request.Form("Length")&" x W "&Request.Form("Width") else Measurements="
Measurements: N/A" end if if Request.Form("Instructions")<>"" then Instructions="
Instructions: "&Request.Form("Instructions") else Instructions="
Instructions: 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 ="Air Rate Request" objSendMail.Body =""&_ "SHIPPER INFORMATION"&ShipperName&ShipperCompany&ShipperIndustry&ShipperAddress&ShipperCity&ShipperCountry&ShipperEmail&ShipperPhone&ShipperFax&_ "

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

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

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

CARGO DESCRIPTION"&CargoType&Clas&Airline&Weight1&Weight2&Measurments&Instructions&_ "
" 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 ="Air Rate Request" objSendMail.HTMLBody = ""&_ "SHIPPER INFORMATION"&ShipperName&ShipperCompany&ShipperIndustry&ShipperAddress&ShipperCity&ShipperCountry&ShipperEmail&ShipperPhone&ShipperFax&_ "

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

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

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

CARGO DESCRIPTION"&CargoType&Clas&Airline&Weight1&Weight2&Measurments&Instructions&_ "
" '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 ->> Air 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: *
 Industry: *
 Company address: *
 City: *
 Country: *
 Email: *
 Phone: *
 Fax: *
 Routing Information:
 1. Place of receipt
 City: *
 State / Province:
 Country: *
 Airport of loading: *
 Pick up address: *
 2. Place of delivery
 City: *
 State / Province:
 Country: *
 Airport of discharge: *
 Delivery address: *
 Cargo Description:
 Cargo type: *
 Class (if IMO):
 Airline / Flight:
 Weight (in KG): * or choose
 Measurements (in CM): * Height: X Length:   X Width:

 Special instructions:

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