%
Sub SubMain(ByRef objQuery)
Call SubContent(objQuery)
End Sub
Sub SubContent(ByRef objQuery)
Dim sLeftTitleImg
sLeftTitleImg = "
"
Dim subMenu
subMenu = "NT"
%>
<%
Dim rsVal
Set rsVal = funcGetUserInformation(objQuery, SESSION("SHOP_USERID"))
%>
 |
|
<%IF strcomp(SESSION("User_Group"),"MEMBER") = 0 Then%>
<%Else%>
·Î±×ÀεÇÁö ¾Ê¾Ò°Å³ª ¼¼¼ÇÀÌ Á¾·áµÇ¾î ȸ¿øÁ¤º¸¸¦ Á¶È¸ÇÒ ¼ö ¾ø½À´Ï´Ù. |
<%End IF%>
|
|
|
<%
Set rsVal = Nothing
End Sub
%>