%
'====================================================================
' Winies Magazine
'====================================================================
%>
<%
Call NoCaching()
Call DBOpen()
Dim strTable : strTable = "wine_magazine_list"
Dim intNo_MG : intNo_MG = Request("intNo_MG")
If intNo_MG = "" Then intNo_MG = GetMagazineNo()
Dim intYear, intMonth, strTitle,strImg_Cover
Dim objRs, sql, intRecs
Dim blnResult
Dim strPath
blnResult = GetMagazineInfo2(intNo_MG, intYear, intMonth, strTitle, strImg_Cover)
If Not blnResult Then
JsMsg "","location.href='/';",True
Else
strPath = GetImgPathWeb_Magazine(intYear, intMonth)
strPath = strPath & "/"
End If
set objRs = Server.CreateObject("ADODB.Recordset")
sql = "select idx, intGroupNo, intGroupOrder, intSubOrder, strTitle, strImg_Banner, blnContent from " & strTable
sql = sql & " where intNo_MG=" & intNo_MG & " order by intGroupOrder, intSubOrder"
objRs.open sql, objConn, 3,2,1 'adOpenForwardOnly, adLockReadOnly, adCmdText
If objRs.Eof Then
JsMsg "µî·Ï µÈ Wine Wine MagazineÀÌ ¾ø½À´Ï´Ù.","location.href='/';",True
Else
intRecs = objRs.RecordCount
End If
'¸ñÂ÷ Ŭ·¡½º»ý¼º
Function GetTitleClass(intSubOrder)
If intSubOrder = 0 Then
GetTitleClass = "title"
Else
GetTitleClass = "txt"
End If
End Function
'»óÀ§, ÇÏÀ§ ¸ñÂ÷ ±¸ºÐÀ̹ÌÁö
Function Getbullet(intSubOrder)
If intSubOrder = 0 Then
Getbullet = ""
Else
Getbullet = ""
End If
End Function
%>
<%
' list------------------------------------------------------------------------------------------------------------
Dim intLoop : intLoop = 1
Dim idx, intGroupNo, intGroupOrder, intSubOrder, strImg_Banner, blnContent
Dim strClass
Dim blnMakeTD : blnMakeTD = False
Do while Not objRs.Eof
If Not blnMakeTD Then
If intLoop > 1 And intLoop > CInt(intRecs/2) Then
If intGroupNo <> objRs("intGroupNo") Then
Response.Write "
"
blnMakeTD = True
End If
End If
End If
idx = objRs("idx")
intGroupNo = objRs("intGroupNo")
intGroupOrder = objRs("intGroupOrder")
intSubOrder = objRs("intSubOrder")
strTitle = ChgTextMode(objRs("strTitle"),False)
strImg_Banner = objRs("strImg_Banner")
blnContent = objRs("blnContent")
strClass = GetTitleClass(intSubOrder)
Response.Write "