<% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) Dim sLeftTitleImg sLeftTitleImg = "" Dim subMenu subMenu = "NT" %>
 
<% Dim order_val, search_type, search_val '------------------------------------------------ order_val = Trim(Request("order_val")) search_type = Trim(Request("search_type")) search_val = Trim(Request("search_val")) Dim order_cd order_cd = Trim(Request("order_cd")) Dim curPage curPage = Trim(Request("curPage")) Dim getTrade Set getTrade = funcGetRsOrderMain(objQuery, order_cd) Dim i %>
Order Number : <%=order_cd%> Order Date/Time : <%=getTrade("insert_date")%>
Status : <%IF Trim(getTrade("status")) = 1 Then%>¿¹¾àÁ¢¼ö<%End IF%> <%IF Trim(getTrade("status")) = 2 Then%>ÇöÀç ¿¹¾à ó¸®Áß<%End IF%> <%IF Trim(getTrade("status")) = 3 Then%>¿¹¾à¿Ï·á<%End IF%> <%IF Trim(getTrade("status")) = 4 Then%>¿¹¾àÃë¼Ò<%End IF%> Payment : <%IF Trim(getTrade("bPay")) = "N" Then%>°áÁ¦ ´ë±âÁß<%End IF%> <%IF Trim(getTrade("bPay")) = "Y" Then%>°áÁ¦ ¿Ï·á<%End IF%>

<% Dim rsCart, ix Set rsCart = funcGetOrderItemsInfo(objQuery, order_cd) Dim rsProd, opt Dim icon_imgType Dim optionArr, tprice Dim cart_cnt, total_buy_price, totalM cart_cnt = 0 '//»óǰ ǰ¸ñ °³¼ö total_buy_price = 0 '//Ãѱ¸¸Å ±Ý¾× ix = 0 Do Until rsCart.eof ix = ix + 1 Set rsProd = funcGetCartPordInfo(objQuery, rsCart("prod_cd")) '//»óǰÁ¤º¸ IF rsProd.EOF = False AND rsProd.BOF = False Then %> <%IF cdbl(rsCart("curr_price")) > 0 Then%> <%Else%> <%End iF%> <% End IF rsProd.close Set rsProd = Nothing rsCart.movenext Loop rsCart.close Set rsCart = Nothing %>
#Item ¿©Çà»óǰ »óǰ°¡ Àοø Ãâ¹ß¿¹Á¤ÀÏ
<%=ix%> <%=rsProd("prod_name")%> $ <%=PriceFormat(rsCart("curr_price"))%>¹®Àǹٶ÷<%=rsCart("option2")%> <%=rsCart("option1")%>

E-mail <%=getTrade("email")%>
À̸§ (ÇѱÛ) <%=getTrade("Nick_Name")%>
À̸§ (¿µ¹®) <%=getTrade("name_first")%> <%=getTrade("name_mid")%> <%=getTrade("name_last")%>
ÁÖ¼Ò1 <%=getTrade("adr1")%>
ÁÖ¼Ò2 <%=getTrade("adr2")%>
City <%=getTrade("city")%>
State/ Zip <%=getTrade("state")%>, <%=getTrade("zip")%>
Country <%=getTrade("country")%>
ÀüÈ­¹øÈ£ <%=getTrade("tel_1")%>-<%=getTrade("tel_2")%>-<%=getTrade("tel_3")%>
°í°´¸Þ¸ð <%=replace(getTrade("comment"), chr(10), "
") %>

<% getTrade.close Set getTrade = Nothing %>
<% End Sub %>