<%@ Language=VBScript %> <% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" %> <% m_from=Request.Form("from_m") y_from=Request.Form("fromyear") m_to=Request.Form("To_m") y_to=Request.Form("toyear") if Request.Form("from_m")="" then m_from=month(date()) if Request.Form("fromyear")="" then y_from=year(date()) if Request.Form("To_m")="" then m_to=month(DateAdd ("d", +30, Date)) if Request.Form("toyear")="" then y_to=year(DateAdd ("d", +30, Date)) Set RsSchedules = Server.CreateObject ("ADODB.Recordset") RsSchedules.ActiveConnection = OBJdbConnection RsSchedules.CursorType = 1 RsSchedules.LockType = 3 sqlstring="SELECT * FROM Sailing_Schedules WHERE (((Sailing_Schedules.ETA)>=#"&m_from&"/1/"&y_from&"#)" sqlstring=sqlstring&" AND ((Sailing_Schedules.ETA)<#"&m_to&"/1/"&y_to&"#) AND ((Sailing_Schedules.RORO)=FALSE))" sqlstring=sqlstring&" ORDER BY Sailing_Schedules.DESTINATION, Sailing_Schedules.ETA;" RsSchedules.Open sqlstring dim remarkrow_no remarkrow_no=0 dim remakvcalue dim remakcount while not RsSchedules.EOF remarkrow_no=remarkrow_no+1 if RsSchedules("Remark")<>"" then remakcount=remakcount+1 remakvcalue=remakvcalue&remakcount&") "&RsSchedules("Remark")&"
" end if RsSchedules.MoveNext wend RsSchedules.close Set RsSchedules = Server.CreateObject ("ADODB.Recordset") RsSchedules.ActiveConnection = OBJdbConnection RsSchedules.CursorType = 1 RsSchedules.LockType = 3 RsSchedules.Open sqlstring %> Falcon Freight Group
top_link
 
Home
About Us
Services
Agents
Sailing Schedules
Shipment Tracking
News
Quotation
Resources
Careers
Contact US
Spacer
Spacer
 
<% Set Rsroro = Server.CreateObject ("ADODB.Recordset") Rsroro.ActiveConnection = OBJdbConnection Rsroro.CursorType = 1 Rsroro.LockType = 3 sqlstring_roro="SELECT * FROM Sailing_Schedules WHERE (((Sailing_Schedules.ETA)>=#"&m_from&"/1/"&y_from&"#)" sqlstring_roro=sqlstring_roro&" AND ((Sailing_Schedules.ETA)<#"&m_to&"/1/"&y_to&"#) AND ((Sailing_Schedules.RORO)=TRUE))" sqlstring_roro=sqlstring_roro&" ORDER BY Sailing_Schedules.DESTINATION, Sailing_Schedules.ETA;" Rsroro.Open sqlstring_roro remarkrow_no=0 remakvcalue="" remakcount=0 while not Rsroro.EOF remarkrow_no=remarkrow_no+1 if Rsroro("Remark")<>"" then remakcount=remakcount+1 remakvcalue=remakvcalue&remakcount&" )"&Rsroro("Remark")&"
" end if Rsroro.MoveNext wend Rsroro.close Set Rsroro = Server.CreateObject ("ADODB.Recordset") Rsroro.ActiveConnection = OBJdbConnection Rsroro.CursorType = 1 Rsroro.LockType = 3 Rsroro.Open sqlstring_roro %>

Sailing Schedules

 
From :      To :
 

<% rowcolor=1 draw_table=0 while not RsSchedules.EOF draw_table=draw_table+1 %> <%if draw_table=1 then%> <%end if%> <% RsSchedules.MoveNext wend if draw_table=0 then %> <% end if %>
DESTINATION DAY ETA POL T.T VESSEL'S NAME Remarks
<%=RsSchedules("DESTINATION")%>
"><%=RsSchedules("DAY")%> "><%=RsSchedules("ETA")%> "><%=RsSchedules("POL")%> "><%=RsSchedules("T_T")%> "><%=RsSchedules("VESSEL_NAME")%><%=remakvcalue%>
There are currently no scheduled vessels for the period chosen
 

Trailers on RORO Vessels Schedules

 
<% rowcolor=1 draw_table=0 while not Rsroro.EOF draw_table=draw_table+1 %> <%if draw_table=1 then%> <%end if%> <% Rsroro.MoveNext wend if draw_table=0 then %> <% end if %>
DESTINATION DAY ETA POL T.T VESSEL'S NAME Remarks
<%=Rsroro("DESTINATION")%>
"><%=Rsroro("DAY")%> "><%=Rsroro("ETA")%> "><%=Rsroro("POL")%> "><%=Rsroro("T_T")%> "><%=Rsroro("VESSEL_NAME")%><%=remakvcalue%>
There are currently no scheduled vessels for the period chosen