<% Dim strPageTitle strPageTitle = "Contents Management" %> <% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) %>

<%'//LEFT AREA %>		<%'// Contents Start ------------------------------------------------------------------------------------------------------ Set rsVal = funcGetContents(objQuery) IF rsVal.EOF AND rsVal.BOF Then Response.write "There is no data!" Else %> Season * selected<%End IF%>>ÇÏ°è(SUMMER SEASON) selected<%End IF%>>µ¿°è(WINTER SEASON) Season Start * " size="10" maxlength="10" readonly> 1st Location * " class="input"> To JFK To BERGEN COUNTY " class="input"> " class="input"> 2nd Location * " class="input"> To JFK To BERGEN COUNTY " class="input"> " class="input"> 3rd Location * " class="input"> To JFK To BERGEN COUNTY " class="input"> " class="input"> 4th Location * " class="input"> To JFK To BERGEN COUNTY " class="input"> " class="input"> Description <%=Trim(rsVal("page_desc1"))%> Comment <%=Trim(rsVal("page_desc2"))%> <% End IF %> <%'// Contents End ------------------------------------------------------------------------------------------------------%>

<% End Sub %>