<% '****************************************************************************************************************** '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 idx idx = Trim(Request("idx")) Dim iPage, IsSearch iPage = Trim(Request("iPage")) IsSearch = Trim(Request("IsSearch")) Dim rsVal Set rsVal = funcGetRsTicket(objQuery, idx) IF rsVal.eof = False And rsVal.bof = False Then Dim departure_country Dim departure_airport Dim arrival_country Dim arrival_airport Dim airline, airline_card Dim start_date Dim end_date Dim ticket_type1 Dim ticket_type2 Dim adult Dim kid, baby Dim seat_type Dim passenger Dim buyer Dim email Dim tel Dim description departure_country = Trim(rsVal("departure_country")) departure_airport = Trim(rsVal("departure_airport")) arrival_country = Trim(rsVal("arrival_country")) arrival_airport = Trim(rsVal("arrival_airport")) start_date = Trim(rsVal("start_date")) end_date = Trim(rsVal("end_date")) airline = Trim(rsVal("airline")) airline_card = Trim(rsVal("airline_card")) ticket_type1 = Trim(rsVal("ticket_type1")) ticket_type2 = Trim(rsVal("ticket_type2")) adult = Trim(rsVal("adult")) kid = Trim(rsVal("kid")) IF kid = "" Then kid = 0 End If baby = Trim(rsVal("baby")) IF baby = "" Then baby = 0 End IF seat_type = Trim(rsVal("seat_type")) passenger = Trim(rsVal("passenger")) buyer = Trim(rsVal("buyer")) email = Trim(rsVal("email")) tel = Trim(rsVal("tel")) description = Trim(rsVal("description")) End IF %> <%'Start ========================================================================================================================%>
Ç×°ø±Ç ¿¹¾àÀÏ : <%=Trim(rsVal("insert_date"))%> ¿¹¾àÀÚ¸í : <%=rsVal("buyer")%>
Status :

Ãâ¹ßµµ½Ã
<%=departure_country%>   <%Select Case departure_country%> <%Case "AMERICA"%> <%Case "KOREA"%> <%Case "JAPAN"%> <%Case "CHINA"%> <%Case "SOUTH ASIA"%> <%Case "OCEANIA"%> <%Case "EUROPE"%> <%End Select%>
µµÂøµµ½Ã
<%=arrival_country%>   <%Select Case arrival_country%> <%Case "AMERICA"%> <%Case "KOREA"%> <%Case "JAPAN"%> <%Case "CHINA"%> <%Case "SOUTH ASIA"%> <%Case "OCEANIA"%> <%Case "EUROPE"%> <%End Select%>
Ãâ±¹ÀÏÀÚ
±Í±¹ÀÏÀÚ
Ç×°ø»ç ±¸ºÐ checked<%End IF%>>¾Æ½Ã¾Æ³ª     checked<%End IF%>>´ëÇÑÇ×°ø     checked<%End IF%>>±×¿Ü Ç×°ø»ç
Ç×°ø»ç ¸¶Àϸ®Áö Ä«µå
¿Õº¹/Æíµµ ±¸ºÐ checked<%End IF%>>¿Õº¹     checked<%End IF%>>Æíµµ
ƼÄÏ ±¸ºÐ checked<%End IF%>>Á÷Ç×     checked<%End IF%>>°æÀ¯
ž½ÂÀÚ Á¤º¸
¼ºÀΠ  ¾Æµ¿(¸¸ 12¼¼ ¹Ì¸¸)   À¯¾Æ  
 
<%IF passenger <> "" Then%> <%=replace(passenger, chr(10), "
") %> <%End IF%>
Á¼®±¸ºÐ checked<%End IF%>>ÀϹݼ®     checked<%End IF%>>ºñÁö´Ï½º     checked<%End IF%>>Àϵ
¿¹¾àÀÚ¸í
À̸ÞÀÏ
ÀüÈ­¹øÈ£
ÀüÇÏ½Ç ¸»¾¸ <%=replace(description, chr(10), "
") %>


   
<% rsVal.close Set rsVal = Nothing %> <%'End =========================================================================================================================%>