|
|
<%
Dim rsCart, isCart
Set rsCart = funcGetCartInfo(objQuery, Trim(SESSION("SHOP_USERID")), SESSION("GUID"))
%>
No. |
¿©Çà»óǰ |
»óǰ°¡ |
Ãâ¹ß¿¹Á¤ÀÏ |
Àοø |
»èÁ¦ |
<%
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
%>
<%
rsCart.close
Set rsCart = Nothing
%>
|
<%IF isCart Then %>
<%if strcomp(SESSION("User_Group"),"MEMBER") = 0 then%>
<%else%>
<%end if%>
<%end if%>
|
|
|
|