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)%>