<% '==================================================================== ' Wine Research '==================================================================== %> <% Call NoCaching() Call DBOpen() Dim strTable : strTable = "wine_research_group" Dim intNo_RS : intNo_RS = Request("intNo_RS") If intNo_RS = "" Then intNo_RS = GetResearchNo() Dim intYear, intMonth, strTitle, strWriter, strImg_title, strImg_Content1, strIntro Dim blnResult Dim strPath blnResult = GetResearchInfo2(intNo_RS, intYear, intMonth, strTitle, strWriter, strImg_title, strImg_Content1, strIntro) If Not blnResult Then JsMsg "","location.href='/';",True strPath = GetImgPathWeb_Research(intYear, intMonth) strPath = strPath & "/" Dim objRs, sql Dim AllRec, Rows, Cols, arrSize, intHalf Dim intLoop, intLoop2 Dim strName, strPicture set objRs = Server.CreateObject("ADODB.Recordset") sql = "select strName, strPicture, strIntro from " & strTable sql = sql & " where intNo_RS=" & intNo_RS & " order by idx" objRs.open sql, objConn, 3,1,1 If objRs.Eof Then blnResult = False Else blnResult = True AllRec = objRs.GetString(2, 100) 'RS.PageSize) 'adClipString Rows = Split(AllRec,chr(13)) arrSize = Ubound(Rows) If arrSize = 1 Then intHalf = 0 Else intHalf = CInt(arrSize/2) - 1 End If End If objRs.Close Set objRs = Nothing %> +W I N I E S* 와이니즈-와인에 열정을 가진 사람들
<% Call WriteSelectBox_Research(intNo_RS) %> <% Call WriteMagazineSubBanner(intYear, intMonth) %> <% Call WriteInfoSubBanner(intYear, intMonth) %>
<% ' Title Image If strImg_Title <> "" Then Response.Write "
" Response.Write "
" End If %>



<% ' 좌측사진 List ----------------------------------------------- If blnResult Then For intLoop=0 To intHalf Cols = Split(Rows(intLoop),chr(9)) strPicture = Trim(Cols(1)) ' strPicture Response.Write "

" Next End If ' 좌측사진 List End ----------------------------------------------- %>

<% ' 평가단 이름,설명 List----------------------------------------------- If blnResult Then Response.Write "" For intLoop2=0 To arrSize-1 Cols = Split(Rows(intLoop2),chr(9)) strName = ChgTextMode(Trim(Cols(0)),False) strIntro = ChgTextMode(Trim(Cols(2)),False) Response.Write "" & vbcrlf Response.Write "" & vbcrlf Next Response.Write "
" & strName & "" & strIntro & "
" End If ' 평가단 이름,설명 List End ----------------------------------------------- %>


<% ' 우측 사진 List ----------------------------------------------- If blnResult Then IntLoop2 = intLoop For IntLoop2=intLoop To Ubound(Rows)-1 Cols = Split(Rows(intLoop2),chr(9)) strPicture = Trim(Cols(1)) ' strPicture Response.Write "

" Next End If ' 우측 사진 List End ----------------------------------------------- %>
<% Call DBClose() %>