<% traffic_date=request.Form("traffic_date") direction = request.Form("direction") if (direction="")or IsNull(direction) then direction = 1 %>

RAFIMAR

International Multimodal Transport

Member of Rafimar Group

| Profile | Activities | Egyptian Ports | Suez Canal | Calculate Sues Canal Tolls | Daily SC Traffic  | Empty Movement |

 
 

:: Welcome, Daily Suez Canal Traffic ::

Abbreviations for type of vessels


Choose Date

Date

<% sqlstat ="select * from Directions" Set rs = Server.CreateObject("ADODB.Recordset") rs.open sqlstat, data_source %>

Vessels Traffic

 


<% qstring=CStr(Request.ServerVariables ("QUERY_STRING")) if((request.Form("action") = "1")or (qstring <>"")) then %>

<%=traffic_date%>

 

<% sql = "select a.id as id,direction_id,vessel_name,traffic_date,type,agent,description"&_ " from DailyTraffic a,Directions b where a.direction_id=b.id"&_ " and direction_id ="&direction&_ " and traffic_date like '"&traffic_date&"'" Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql, data_source if rs.EOF then msg="No Vessels Found" else msg=rs.fields.item("description").value end if %> <%do until rs.eof %> <% rs.movenext loop rs.Close set rs=nothing %>

<%=msg%>

AGENT

TYPE

VESSEL'S NAME

<%=rs.fields.item("agent").value%> <%=rs.fields.item("type").value%> <%=rs.fields.item("vessel_name").value%>
<% end if%>

 

 

Copyright 2010 Rafimar Inc. All rights reserved

 

| Profile | Our activities | Egyptian Ports | Suez Canal | Calculate SC Tolls | SCA Circulars | Daily SC Traffic |
|
Jobs | shipping declaration | Related Links | Feed back  | Contacts | Site Map |