<% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) Dim sLeftTitleImg sLeftTitleImg = "" Dim subMenu subMenu = "NT" %>
 
<% Dim oDBconn SET oDBconn = GetDBConn() Dim curPage curPage = Trim(Request("curPage")) IF curPage = "" Then curPage = 1 End IF Dim post_qry post_qry = " SELECT * FROM E_Order_Main " Dim where_qry where_qry = " WHERE userid = '"& Session("SHOP_USERID") &"' " Dim orderby_qry orderby_qry = " Order By idx DESC" post_qry = post_qry & where_qry Dim rsPost Set rsPost = ExecutePage(oDBconn, post_qry, curPage, orderby_qry) Dim totCount totCount = ExecuteCount(oDBconn, post_qry) Dim strParam strParam = "" %>
Results: [ <%=totCount%> ] Found
<% Dim ii, rowNumber, nTotalAmt ii = 0 If totCount > 0 Then rowNumber = totCount - ((curPage - 1) * G_PAGE_SIZE) End IF %> <%IF CInt(totCount) = 0 Then 'Àå¹Ù±¸´Ï ¹°Ç° ¾øÀ½%> <% Else Do Until rsPost.EOF ii = ii + 1 %> <% rsPost.MoveNext rowNumber = rowNumber - 1 Loop End If rsPost.close set rsPost = Nothing %>
¿¹¾à Á¢¼öÀÏ ¿¹¾à¹øÈ£ ¿¹¾àÀÚ¸í ÃÑ °áÁ¦¾× ¿¹¾àÁøÇà»óÅ °áÁ¦
You don't have any order information.
<%=rsPost("insert_date")%> &curPage=<%=curPage%>"><%=rsPost("order_cd")%> <%=rsPost("Nick_Name")%>  $ <%=PriceFormat(rsPost("bPay_amount"))%>  <%IF Trim(rsPost("status")) = 1 Then%>¿¹¾àÁ¢¼ö<%End IF%> <%IF Trim(rsPost("status")) = 2 Then%>ÇöÀç ¿¹¾à ó¸®Áß<%End IF%> <%IF Trim(rsPost("status")) = 3 Then%>¿¹¾à¿Ï·á<%End IF%> <%IF Trim(rsPost("status")) = 4 Then%>¿¹¾àÃë¼Ò<%End IF%> <%IF Trim(rsPost("bPay")) = "N" Then%>°áÁ¦ ´ë±âÁß<%End IF%> <%IF Trim(rsPost("bPay")) = "Y" Then%>°áÁ¦ ¿Ï·á<%End IF%>
<%Response.Write ShowPageBar(curPage,"","",strParam)%>
<% End Sub %>