<% '==================================================================== ' 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 %> +W I N I E S* 와이니즈-와인에 열정을 가진 사람들
<% Call WriteCoverImg(intYear, intMonth, strImg_Cover) %> <% Call WriteSelectBox_Magazine(intNo_MG) %> <% Call WriteInterviewSubBanner(intYear, intMonth) %> <% Call WriteMagazineSubBanner(intYear, intMonth) %> <% Call WriteInfoSubBanner(intYear, intMonth) %>
 | <%=intYear & "년 " & intMonth & "월호" %>
<% ' 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 "
" Response.Write Getbullet(intSubOrder) & " " If blnContent Then Response.Write " " & strTitle Response.Write "" Else Response.Write strTitle End If If strImg_Banner <> "" Then If blnContent Then Response.Write "" Response.Write "
" If blnContent Then Response.Write "
" End If Response.Write "
" intLoop = intLoop + 1 objRs.MoveNext Loop ' list end ------------------------------------------------------------------------------------------ %>
<% objRs.Close Set objRs = Nothing Call DBClose() %>