Weekly Saipan, Guam, Yap, Koror & Davao Service <% Set cnnCTSI = Server.CreateObject("ADODB.Connection") cnnCTSI.Open "provider=sqloledb; data source=ctsiwebsrv; initial catalog=marianaweb; user id=sa; password=061701" Set rsSchedule = Server.CreateObject("ADODB.Recordset") rsSchedule.ActiveConnection = cnnCTSI rsSchedule.Source = "SELECT * FROM mellschedule where area='saipanguam' order by schedcode" rsSchedule.CursorType = 1 rsSchedule.CursorLocation = 2 rsSchedule.LockType = 3 rsSchedule.Open %> <% do until rsSchedule.eof %> <% rsSchedule.movenext loop %>
Vessel Name Voyage Number HongKong Kaoshung Saipan Guam Yap Koror Davao CEBU
<%=(rsSchedule.Fields.Item("shipname").Value)%>  <%=(rsSchedule.Fields.Item("voy").Value)%>  <%=(rsSchedule.Fields.Item("sched1").Value)%>  <%=(rsSchedule.Fields.Item("sched2").Value)%>  <%=(rsSchedule.Fields.Item("sched3").Value)%>  <%=(rsSchedule.Fields.Item("sched4").Value)%>  <%=(rsSchedule.Fields.Item("sched5").Value)%>  <%=(rsSchedule.Fields.Item("sched6").Value)%> <%=(rsSchedule.Fields.Item("sched7").Value)%> <%=(rsSchedule.Fields.Item("sched8").Value)%>
<% Set cnnCTSI = Server.CreateObject("ADODB.Connection") cnnCTSI.Open "provider=sqloledb; data source=ctsiwebsrv; initial catalog=marianaweb; user id=sa; password=061701" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = cnnCTSI rs.Source = "SELECT * FROM mellschedule where area='footer' order by schedcode" rs.CursorType = 1 rs.CursorLocation = 2 rs.LockType = 3 rs.Open %>

<%=rs("shipname")%>

 

<% Set rsSchedule = Server.CreateObject("ADODB.Recordset") rsSchedule.ActiveConnection = cnnCTSI rsSchedule.Source = "SELECT * FROM mellschedule where area='cebudavao' order by schedcode" rsSchedule.CursorType = 1 rsSchedule.CursorLocation = 2 rsSchedule.LockType = 3 rsSchedule.Open %> <% do until rsSchedule.eof %> <% rsSchedule.movenext loop %>
Vessel Name Voyage Number Hongkong Manila(South) Cebu Davao Koror Yap Davao
 <%=(rsSchedule.Fields.Item("shipname").Value)%>  <%=(rsSchedule.Fields.Item("voy").Value)%>  <%=(rsSchedule.Fields.Item("sched1").Value)%>  <%=(rsSchedule.Fields.Item("sched2").Value)%>  <%=(rsSchedule.Fields.Item("sched3").Value)%>  <%=(rsSchedule.Fields.Item("sched4").Value)%>  <%=(rsSchedule.Fields.Item("sched5").Value)%>  <%=(rsSchedule.Fields.Item("sched6").Value)%>  <%=(rsSchedule.Fields.Item("sched7").Value)%>

 

 

<% Set rsSchedule = Server.CreateObject("ADODB.Recordset") rsSchedule.ActiveConnection = cnnCTSI rsSchedule.Source = "SELECT * FROM mellschedule where area='kororyap' order by schedcode" rsSchedule.CursorType = 1 rsSchedule.CursorLocation = 2 rsSchedule.LockType = 3 rsSchedule.Open %> <% do until rsSchedule.eof %> <% rsSchedule.movenext loop %>
Vessel Name Voyage Number Hongkong Kaosiung Saipan Guam Yap Koror Davao
 <%=(rsSchedule.Fields.Item("shipname").Value)%>  <%=(rsSchedule.Fields.Item("voy").Value)%>  <%=(rsSchedule.Fields.Item("sched1").Value)%>  <%=(rsSchedule.Fields.Item("sched2").Value)%>  <%=(rsSchedule.Fields.Item("sched3").Value)%>  <%=(rsSchedule.Fields.Item("sched4").Value)%>  <%=(rsSchedule.Fields.Item("sched5").Value)%>  <%=(rsSchedule.Fields.Item("sched6").Value)%>  <%=(rsSchedule.Fields.Item("sched7").Value)%>