<%@ 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("OwnerEmail") RsGuestList.Close if Request.Form("OwnerName")<>"" then OwnerName="
Name: "&Request.Form("OwnerName") else OwnerName="
Name: N/A" end if if Request.Form("OwnerCompany")<>"" then OwnerCompany="
Company: "&Request.Form("OwnerCompany") else OwnerCompany="
Company: N/A" end if if Request.Form("OwnerIndustry")<>"" then OwnerIndustry="
Industry: "&Request.Form("OwnerIndustry") else OwnerIndustry="
Industry: N/A" end if if Request.Form("OwnerAddress")<>"" then OwnerAddress="
Address: "&Request.Form("OwnerAddress") else OwnerAddress="
Address: N/A" end if if Request.Form("OwnerCity")<>"" then OwnerCity="
City: "&Request.Form("OwnerCity") else OwnerCity="
City: N/A" end if if Request.Form("OwnerCountry")<>"" then OwnerCountry="
Country: "&Request.Form("OwnerCountry") else OwnerCountry="
Country: N/A" end if if Request.Form("OwnerEmail")<>"" then OwnerEmail="
Email: "&Request.Form("OwnerEmail") else OwnerEmail="
Email: N/A" end if if Request.Form("OwnerPhone")<>"" then OwnerPhone="
Phone: "&Request.Form("OwnerPhone") else OwnerPhone="
Phone: N/A" end if if Request.Form("OwnerFax")<>"" then OwnerFax="
Fax: "&Request.Form("OwnerFax") else OwnerFax="
Fax: N/A" end if if Request.Form("OperatorAddress")<>"" then OperatorAddress="
Address of operator: "&Request.Form("OperatorAddress") else OperatorAddress="
Address of operator: N/A" end if if Request.Form("MasterName")<>"" then MasterName="
Master's name: "&Request.Form("MasterName") else MasterName="
Master's name: N/A" end if if Request.Form("CrewNumber")<>"" then CrewNumber="
Number of crew: "&Request.Form("CrewNumber") else CrewNumber="
Number of crew: N/A" end if if Request.Form("GRT")<>"" then GRT="
GRT: "&Request.Form("GRT") else GRT="
GRT: N/A" end if if Request.Form("NRT")<>"" then NRT="
NRT: "&Request.Form("NRT") else NRT="
NRT: N/A" end if if Request.Form("GWT")<>"" then GWT="
GWT: "&Request.Form("GWT") else GWT="
GWT: N/A" end if if Request.Form("Draft")<>"" then Draft="
Draft: "&Request.Form("Draft") else Draft="
Draft: N/A" end if if Request.Form("Flag")<>"" then Flag="
Flag: "&Request.Form("Flag") else Flag="
Flag: N/A" end if if Request.Form("Beam")<>"" then Beam="
Beam: "&Request.Form("Beam") else Beam="
Beam: N/A" end if if Request.Form("BuiltYear")<>"" then BuiltYear="
Year of built: "&Request.Form("BuiltYear") else BuiltYear="
Year of built: N/A" end if if Request.Form("OverallLength")<>"" then OverallLength="
Overall length: "&Request.Form("OverallLength") else OverallLength="
Overall length: N/A" end if if Request.Form("CallPort")<>"" then CallPort="
Port of call: "&Request.Form("CallPort") else CallPort="
Port of call: N/A" end if if Request.Form("Commodity")<>"" then Commodity="
Commodity: "&Request.Form("Commodity") else Commodity="
Commodity: N/A" end if if Request.Form("Quantity")<>"" then Quantity="
Quantity: "&Request.Form("Quantity") else Quantity"
Quantity: N/A" end if if Request.Form("OperationType")<>"" then OperationType="
Operation type: "&Request.Form("OperationType") else OperationType="
Operation type: N/A" end if if Request.Form("PortDays")<>"" then PortDays="
No. of days at port: "&Request.Form("PortDays") else PortDays"
No. of days at port: N/A" end if if Request.Form("LayCan")<>"" then LayCan="
Lay / Can: "&Request.Form("LayCan") else LayCan"
Lay / Can: N/A" end if if Request.Form("Message")<>"" then Message="
Message: "&Request.Form("Message") else Message"
Message: 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 ="Vessel D/A Request" objSendMail.Body =""&_ "SHIP OWNER INFORMATION"&OwnerName&OwnerCompany&OwnerIndustry&OwnerAddress&OwnerCity&OwnerCountry&OwnerEmail&OwnerPhone&OwnerFax&OperatorAddress&MasterName&CrewNumber&_ "

VESSEL SPECIFICATIONS"&GRT&NRT&GWT&Draft&Flag&Beam&BuiltYear&OverallLength&CallPort&_ "

CARGO AND OTHER DETAILS"&Commodity&Quantity&OperationType&PortDays&LayCan&_ "

SPECIAL INSTRUCTIONS"&Message&_ "
" 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 ="Vessel D/A Request" objSendMail.HTMLBody = ""&_ "SHIP OWNER INFORMATION"&OwnerName&OwnerCompany&OwnerIndustry&OwnerAddress&OwnerCity&OwnerCountry&OwnerEmail&OwnerPhone&OwnerFax&OperatorAddress&MasterName&CrewNumber&_ "

VESSEL SPECIFICATIONS"&GRT&NRT&GWT&Draft&Flag&Beam&BuiltYear&OverallLength&CallPort&_ "

CARGO AND OTHER DETAILS"&Commodity&Quantity&OperationType&PortDays&LayCan&_ "

SPECIAL INSTRUCTIONS"&Message&_ "
" '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 ->> Vessel D/A 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 =======================================%>

 1. Ship Owner Information:
 Name:
 Company name: *
 Industry: *
 Company address: *
 City: *
 Country: *
 Email: *
 Phone: *
 Fax:*
 Address of operator: *
 Master’s name:
 Number of crew:
 2. Vessel Specifications:
 GRT: *
 NRT: *
 GWT: *
 Draft:  *
 Flag:*
 Beam: *
 Year of built: *
 Length overall (in Meter): *
 Port of call: *
 3. Cargo and Other Details:
 Commodity: *
 Quantity (in Tons):
 Operation type: *
 No. of days at port:
 Lay / Can:
 4. Special Instructions:
 Message:

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