<%
Dim dbs,rs,rss,rsss
dim VER_DB,MDB_NAME
dim sql
dim i,j
MDB_NAME = Server.MapPath("/admin/wada.mdb")
VER_DB = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MDB_NAME
Set dbs = Server.CreateObject("ADODB.Connection")
dbs.Open VER_DB
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * FROM システム"
rs.open sql, dbs, 3, 3
if rs.eof = false then
hit = rs.Fields("今月のお勧め")
end if
if hit = "" then
hit = 1
end if
rs.close
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * FROM レシピマスター where レシピNo=" & hit
rs.open sql, dbs, 3, 3
if rs.eof = false then
hit_name = rs.Fields("料理名")
end if
rs.close
dim Cat1_cnt,Cat1_Id(10),Cat1_Name(10)
dim Cat2_cnt(10),Cat2_Info(10,100,3)
Cat1_cnt = 0
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * FROM カテゴリ１ order by ID asc"
rs.open sql, dbs, 3, 3
do while rs.eof = false
Cat1_Id(Cat1_cnt) = rs.Fields("ID")
Cat1_Name(Cat1_cnt) = rs.Fields("名称")
Set rss = Server.CreateObject("ADODB.RecordSet")
sql = "select * FROM カテゴリ２ where カテゴリ１ID=" & Cat1_Id(Cat1_cnt) & " order by ID asc"
rss.open sql, dbs, 3, 3
Cat2_cnt(Cat1_cnt) = 0
do while rss.eof = false
Cat2_Info(Cat1_cnt,Cat2_cnt(Cat1_cnt),0) = rss.Fields("ID")
Cat2_Info(Cat1_cnt,Cat2_cnt(Cat1_cnt),1) = rss.Fields("名称")
Cat2_Info(Cat1_cnt,Cat2_cnt(Cat1_cnt),2) = Cat1_Id(Cat1_cnt)
sql = "select * FROM レシピマスター where 表示=1 and カテゴリ１=" & Cat1_Id(Cat1_cnt) & " and カテゴリ２=" & Cat2_Info(Cat1_cnt,Cat2_cnt(Cat1_cnt),0)
Set rsss = Server.CreateObject("ADODB.RecordSet")
rsss.open sql, dbs, 3, 3
if rsss.RecordCount>0 then
Cat2_cnt(Cat1_cnt) = Cat2_cnt(Cat1_cnt) + 1
end if
rsss.close
rss.movenext
Loop
rss.close
if Cat2_cnt(Cat1_cnt)>0 then
Cat1_cnt = Cat1_cnt + 1
end if
rs.movenext
Loop
rs.close
%>
「リストランテ アルポンテ」
原シェフの
スペシャルレシピ公開中
◆今月のｵｽｽﾒ◆
･･････････････････
･･････････････････
<%
for i=0 to Cat1_cnt-1
response.write "§" & Cat1_Name(i) & "
" & vbcrlf
for j=0 to Cat2_cnt(i)-1
if j>=Cat2_cnt(i)-1 then
response.write "└"
else
response.write "├"
end if
response.write " " & Cat2_Info(i,j,1) & "
" & vbcrlf
next
response.write "
" & vbcrlf
next
%>
戻る
<%
dbs.close
%>
