<%@ Language=VBScript %> <% Option Explicit Response.Expires = -1 Response.AddHeader "Pragma", "No-Cache" Response.AddHeader "Cache-Control", "No-Store" %> <% Dim objConn, rows Dim gCash, eCash, lBonus, ticketCnt Dim TabNum, i '============================================================================ ' ±ÇÇÑüũ '============================================================================ If Session("authID") < MEMBER Then Call FnComAlertGoUrl("Á¢¼Ó±ÇÇÑÀÌ ¾ø½À´Ï´Ù.", "", 1) End If '============================================================================ ' DB ¿¬°á '============================================================================ SbDBConn "Account", objConn '============================================================================ ' À¯ÀúÀÇ Æ÷ÀÎÆ®ÀÜ¾× Á¶È¸ '============================================================================ SBGetCash Session("userNo"), G_CASH, gCash SBGetCash Session("userNo"), E_CASH, eCash SBGetBonus Session("userNo"), lBonus ticketCnt = FnGetLotEventCnt(Session("userNo")) '============================================================================ ' DB ¿¬°á ÇØÁ¦ '============================================================================ SbDBClose objConn '============================================================================ ' µî±Þº°ÅÇ '============================================================================ TabNum = Request.QueryString("TabNum") If TabNum = "" Then TabNum = "1" End If %>

»Ì±â È®·ü

µî±Þº° 1 : 3 : 4 : 1 : 1 (10ȸÀ̳»¿¡ 1µî±Þ ¾ÆÀÌÅÛÁß Çϳª´Â ¹Ýµå½Ã »ÌÀ» ¼ö ÀÖ½À´Ï´Ù.)

    <% For i = 1 To 5 If i = TabNum + 0 Then %>
  • <%=i%>µî±Þ
  • <% Else %>
  • <%=i%>µî±Þ
  • <% End if Next %>
    <% For i = 0 To rows %>
  • <%=itemName(i)%>

    <%=itemName(i)%>

    • <%=itemName(i)%>
    • <%=itemName(i)%>
      <%=itemName(i)%>
      <%=itemDescript(i)%>
    • ÀÚ¼¼È÷
  • <% Next %>