<% '****************************************************************************************************************** 'System Name : ELIS Ver 1.0 '****************************************************************************************************************** 'File Name : order_m.asp 'File Description : ELIS Main Summary 'Developer : Taejin Kwon 'Date : 7/10/2009 'Modifier(Date) : None '****************************************************************************************************************** Dim G_MENU G_MENU = "ORDERS" %> <%Call SubGlobalMenu() %>

<% CALL subTabIndexLink("ORDERS") %>

<% CALL subTopMenu() %>

Orders

<% Dim IsSearch IsSearch = Trim(Request("IsSearch")) Dim name_last name_last = Trim(Request("name_last")) %> <%'Start ========================================================================================================================%> JFK <-> ÄÚ³×ƼÄÆ ¼ÅƲ¹ö½º ¿¹¾à "> "> Last Name Search    Clear  <% Dim objCommonList Dim objListProperty Set objCommonList = New CommonListClass Set objListProperty = New CommonListProperty IF IsSearch = "true" Then objListProperty.Query = funcSearchListQuery(name_last) Else objListProperty.Query = funcListQuery() '//Query End If objListProperty.PageRowSize = 15 '//ÆäÀÌÁö »çÀÌÁî objListProperty.ColumnTitle = Array("","¿¹¾àÀÚ¸í","À̸ÞÀÏ","ÀüÈ­","Ãâ¹ßÀÏ", "µµÂøÀÏ", "¼ºÀÎ","¿¹¾à¹øÈ£","ƼÄϹøÈ£","¿¹¾àÀÏ","Status") '// ù ÀÚ¸®´Â Ç×»ó Key°¡ µé¾î°¨ objListProperty.ColumnTableWidth = "100%" objListProperty.ColumnAlign = Array("","center","center","center","center","center","center","center","center","center","center") '//Key¸¦ À§ÇØ ÇÒ´çµÈ ÀÚ¸®À̹ǷΠ... objListProperty.TDSize = Array("","10%","15%","10%","10%","10%","5%","10%","10%","10%","10%") '//¹øÈ£¿­À» À§ÇØ Ç×»ó Àüü 95%·Î À¯Áö objListProperty.FontColor = Array("","#426BB5","#333333","#333333","#333333","#333333","#333333","#333333","#333333","#333333","#333333") objListProperty.AnchorColumn = 1'//Link¸¦ °É¾îÁÙ ¹è¿­¹øÈ£... 0ºÎÅÍ ½ÃÀÛÇÔ. objListProperty.DisplayNoMsg = "No Result" '// Result°¡ ¾øÀ» ¶§ ¸Þ½ÃÁö IF Trim(Request("IsSearch")) = "true" Then objListProperty.AnchorURL = "./order_bus1_detail.asp?IsSearch="&Request("IsSearch")&"&name_last="&name_last&"&idx=" objListProperty.CurrentURL = "./order_bus1.asp?IsSearch="&Request("IsSearch")&"&name_last="&name_last Else objListProperty.AnchorURL = "./order_bus1_detail.asp?idx=" objListProperty.CurrentURL = "./order_bus1.asp" End IF objCommonList.funcAddProperty objListProperty Set objListProperty = Nothing Set objCommonList = Nothing %> <%'End =========================================================================================================================%>

<% Function funcListQuery() Dim strQuery strQuery = " SELECT idx AS TD0, name_first+' '+name_m+' '+name_last AS TD1, email AS TD2, tel AS TD3, start_date AS TD4, end_date AS TD5, " &_ " adult AS TD6, reserve_num AS TD7, ticket_num AS TD8, insert_date AS TD9, Case status when '1' then '¿¹¾àÁ¢¼ö' when '2' then 'ÇöÀç ó¸®Áß' when '3' then '󸮿Ϸá' when '4' then '¿¹¾àÃë¼Ò' end AS TD10 " &_ " FROM E_Bus WHERE reserve_type = 'JFKCO' " &_ " ORDER BY idx desc" funcListQuery = strQuery End Function Function funcSearchListQuery(ByVal name_last) Dim strWhereCondition strWhereCondition = " WHERE reserve_type = 'JFKCO' " IF name_last <> "" Then strWhereCondition = strWhereCondition & " AND name_last like '%"&name_last&"%'" End IF Dim strQuery strQuery = " SELECT idx AS TD0, name_first+' '+name_m+' '+name_last AS TD1, email AS TD2, tel AS TD3, start_date AS TD4, end_date AS TD5, " &_ " adult AS TD6, reserve_num AS TD7, ticket_num AS TD8, insert_date AS TD9, Case status when '1' then '¿¹¾àÁ¢¼ö' when '2' then 'ÇöÀç ó¸®Áß' when '3' then '󸮿Ϸá' when '4' then '¿¹¾àÃë¼Ò' end AS TD10 " &_ " FROM E_Bus WHERE reserve_type = 'JFKCO' " & strWhereCondition &_ " ORDER BY Register_Date desc" 'Response.write strQuery funcSearchListQuery = strQuery End Function %>