<% '==================================================================== ' Wine Research '==================================================================== %> <% Call NoCaching() Call DBOpen() Dim strTable : strTable = "wine_research_consent" 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 set objRs = Server.CreateObject("ADODB.Recordset") sql = "select * from " & strTable sql = sql & " where intNo_RS=" & intNo_RS & " order by idx" objRs.open sql, objConn, 0,1,1 If objRs.Eof Then blnResult = False Else blnResult = True End If %> +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 Response.Write "" Dim strCompany, strTel, strProduct Do While Not objRs.Eof strCompany = ChgTextMode(objRs("strCompany"),False) strTel = ChgTextMode(objRs("strTel"),False) strProduct = objRs("strProduct") Response.Write "" Response.Write "" Response.Write "" objRs.MoveNext Loop Response.Write "
" & strCompany & "" & strProduct & "" & strTel & "
" End If ' 와인협찬 List End --------------------------------------------------------------------------------------- %>
<% objRs.Close Set objRs = Nothing Call DBClose() %>