<% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) Dim sLeftTitleImg sLeftTitleImg = "" Dim subMenu subMenu = "NT" %>
 
<% Dim rsCart, isCart Set rsCart = funcGetCartInfo(objQuery, Trim(SESSION("SHOP_USERID")), SESSION("GUID")) %> <% IF rsCart.EOF AND rsCart.BOF Then isCart = false %> <% Else isCart = True Dim rsProd Dim cart_cnt cart_cnt = 0 '//»óǰ ǰ¸ñ °³¼ö total_buy_price = 0 '//Ãѱ¸¸Å ±Ý¾× Do Until rsCart.eof cart_cnt = cart_cnt + 1 Set rsProd = funcGetCartPordInfo(objQuery, rsCart("prod_cd")) '//»óǰÁ¤º¸ IF rsProd.EOF = False AND rsProd.BOF = False Then %> "> <% End IF rsProd.close Set rsProd = Nothing rsCart.movenext Loop End IF %>
No. ¿©Çà»óǰ »óǰ°¡ Ãâ¹ß¿¹Á¤ÀÏ Àοø »èÁ¦
ÇöÀç ¿¹¾àµÈ ¿©Çà»óǰÀÌ ¾ø½À´Ï´Ù.
<%=cart_cnt%>  <%=rsProd("prod_name")%> <%IF CDbl(rsCart("price")) > 0 Then%>$<%=PriceFormat(rsCart("price"))%><%Else%>¹®ÀÇ<%End IF%> <%=rsCart("option1")%> <%=rsCart("option2")%>
<% rsCart.close Set rsCart = Nothing %>
<%IF isCart Then %> <%if strcomp(SESSION("User_Group"),"MEMBER") = 0 then%> <%else%> <%end if%> <%end if%>
<% End Sub %>