<%@ LANGUAGE="VBScript" %> <% 'コネクション Set objConn = Server.CreateObject("ADODB.Connection") strDSn = "shochu" objConn.Open strDSN %> ＊焼酎フェスタ＊
焼酎紀行特産倶楽部頒布会
アンケート結果速報
Q1 名前を知っている焼酎は？

<% 'データーベース検索 strSQL = "" strSQL = strSQL & "Select * from Ｑ１順位表;" 'レコードセット Set objRS = objConn.Execute(strSQL) 'Set objRS = Server.CreateObject("ADODB.Recordset") 'objRS.Open strSQL,objConn,1,1 for i=1 to 10 %> <% strShcd = left(objRS("項番"),2) 'ＳＱＬ商品台帳検索 'データーベース検索 strSQL = "" strSQL = strSQL & "Select * from 焼酎フェスタ（商品台帳）" strSQL = strSQL & " where 商品企画番号=" & "'" & strShcd & "';" Set objRS1 = objConn.Execute(strSQL) %> <% objRS.MoveNext next 'objRS.Close 'Set objRS = Nothing %>
<% =i %>
<% strDsp = "" if objRS1("参加") = "参加" then Response.Write strDsp & vbCrLf Response.Write objRS1("商品名")&"" else Response.Write objRS1("商品名") end if %> <%=objRS("応募数") %>票

Q2 飲んでみたい焼酎は？

<% 'データーベース検索 strSQL = "" strSQL = strSQL & "Select * from Ｑ２順位表;" 'レコードセット Set objRS = objConn.Execute(strSQL) 'Set objRS = Server.CreateObject("ADODB.Recordset") 'objRS.Open strSQL,objConn,1,1 for i=1 to 10 %> <% strShcd = left(objRS("項番"),2) 'ＳＱＬ商品台帳検索 'データーベース検索 strSQL = "" strSQL = strSQL & "Select * from 焼酎フェスタ（商品台帳）" strSQL = strSQL & " where 商品企画番号=" & "'" & strShcd & "';" Set objRS1 = objConn.Execute(strSQL) %> <% objRS.MoveNext next 'objRS.Close Set objRS = Nothing %>
<% =i %>
<% strDsp = "" if objRS1("参加") = "参加" then Response.Write strDsp & vbCrLf Response.Write objRS1("商品名")&"" else Response.Write objRS1("商品名") end if %> <%=objRS("応募数") %>票

Q3 日頃飲んでいる焼酎は？

<% 'データーベース検索 strSQL = "" strSQL = strSQL & "Select * from Ｑ３順位表;" 'レコードセット Set objRS = objConn.Execute(strSQL) 'Set objRS = Server.CreateObject("ADODB.Recordset") 'objRS.Open strSQL,objConn,1,1 for i=1 to 10 %> <% strShcd = left(objRS("項番"),2) 'ＳＱＬ商品台帳検索 'データーベース検索 strSQL = "" strSQL = strSQL & "Select * from 焼酎フェスタ（商品台帳）" strSQL = strSQL & " where 商品企画番号=" & "'" & strShcd & "';" Set objRS1 = objConn.Execute(strSQL) %> <% objRS.MoveNext next objRS.Close Set objRS = Nothing objConn.Close %>
<% =i %>
<% strDsp = "" if objRS1("参加") = "参加" then Response.Write strDsp & vbCrLf Response.Write objRS1("商品名")&"" else Response.Write objRS1("商品名") end if %> <%=objRS("応募数") %>票