<% '==================================================================== ' Wine Research '==================================================================== %> <% Call NoCaching() Call DBOpen() Dim strTable : strTable = "wine_research_wine" Dim intNo_RS : intNo_RS = Request("intNo_RS") If intNo_RS = "" Then intNo_RS = GetResearchNo() Dim intYear, intMonth, strImg_title, strImg_Wine1, strImg_Wine2, strImg_Wine3, strImg_Wine4 Dim blnResult Dim strPath Dim objRs, sql set objRs = Server.CreateObject("ADODB.Recordset") sql = "select intYear, intMonth, strImg_title, strImg_Wine1, strImg_Wine2, strImg_Wine3, strImg_Wine4 from wine_research " sql = sql & " where intNo_RS=" & CInt(intNo_RS) objRs.Open sql, objConn, 0,1,1 If objRs.Eof Then JsMsg "","location.href='/';",True Else intYear = objRs("intYear") intMonth = objRs("intMonth") strImg_title = objRs("strImg_title") strImg_Wine1 = objRs("strImg_Wine1") strImg_Wine2 = objRs("strImg_Wine2") strImg_Wine3 = objRs("strImg_Wine3") strImg_Wine4 = objRs("strImg_Wine4") End If objRs.Close strPath = GetImgPathWeb_Research(intYear, intMonth) strPath = strPath & "/" sql = "select * from " & strTable sql = sql & " where intNo_RS=" & intNo_RS & " order by intPoint desc" objRs.CursorLocation = adUseClient objRs.open sql, objConn, 3,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 %>
<% ' Top 10 Image If strImg_Wine1 <> "" Then Response.Write "
" Response.Write "
" End If %> 		<% ' Wine Top 10 List If blnResult Then Dim intLoop For intLoop = 1 To 10 Response.Write "
" Response.Write "" & Right("0" & intLoop,2) & "/ " Response.Write objRs("strName_Eng") & " " & objRs("intYear_Make") Response.Write "
" objRs.MoveNext If objRs.Eof Then Exit For Next objRs.sort = "strWineCode" objRs.MoveFirst End If %>
<% ' 내용부분 이미지 1,2,3 If strImg_Wine2 <> "" Then Response.Write "
" Response.Write "
" End If If strImg_Wine3 <> "" Then Response.Write "
" Response.Write "
" End If If strImg_Wine4 <> "" Then Response.Write "
" Response.Write "
" End If %> 		<% ' Wine List -------------------------------------------------------------------------------------- If blnResult Then Response.Write "" Do While Not objRs.Eof Response.Write "" & vbcrlf Response.Write "" & vbcrlf objRs.MoveNext Loop Response.Write "
" & vbcrlf Response.Write "" & vbcrlf Response.WRite "" & objRs("strName_Eng") & " " & objRs("intYear_Make") & vbcrlf Call ChkPointImg(objRs("intPoint")) Response.Write "
" End If ' Wine List End -------------------------------------------------------------------------------------- %>
<% objRs.Close Set objRs = Nothing Call DBClose() %>