<% Dim strPageTitle strPageTitle = "Routes & Schedules" %> <% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) %>

<%'//LEFT AREA %>		JFK <-> ºÏºÎ NJ ¼ÅƲ¹ö½º <% Set rsVal = funcGetContents(objQuery) IF rsVal.EOF AND rsVal.BOF Then Response.write "There is no data!" Else %> ¼ÅƲ¹ö½º ÀÌ¿ë¾È³»   To JFK To BERGEN COUNTY <%=Trim(rsVal("location1"))%> <%=Trim(rsVal("location1_time1"))%> <%=Trim(rsVal("location1_time2"))%> <%=Trim(rsVal("location2"))%> <%=Trim(rsVal("location2_time1"))%> <%=Trim(rsVal("location2_time2"))%> <%=Trim(rsVal("location3"))%> <%=Trim(rsVal("location3_time1"))%> <%=Trim(rsVal("location3_time2"))%> <%=Trim(rsVal("location4"))%> <%=Trim(rsVal("location4_time1"))%> <%=Trim(rsVal("location4_time2"))%> <%=Trim(rsVal("page_desc1"))%> <%=Trim(rsVal("page_desc2"))%> <% End IF %>

<% End Sub %>