<%
if request( "r" ) <> "" then
session( "r_number" ) = request( "r" )
end if
Dim dbs,rs
dim VER_DB,MDB_NAME
dim sql
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 レシピマスター where レシピNo=" & session("r_number")
rs.open sql, dbs, 3, 3
if rs.eof = false then
r_name = rs.Fields("料理名")
r_cal = rs.Fields("カロリー")
r_tm = rs.Fields("調理時間")
r_man = rs.Fields("人数")
r_hit = rs.Fields("hit")
r_chef = rs.Fields("提供者")
r_cat1 = rs.Fields("カテゴリ１")
r_cat2 = rs.Fields("カテゴリ２")
if r_hit = "" then
r_hit = 0
end if
end if
rs.close
r_hit = r_hit + 1
dbs.execute "update レシピマスター set hit=" & r_hit & " where レシピNo=" & session("r_number")
%>
<%=r_name%>
<%
if trim(r_cal)<>"" then
response.write "
" & r_cal & "
" & vbcrlf
end if
%>
<%
if trim(r_tm)<>"" then
response.write "
" & r_tm & "" & vbcrlf
end if
%>
………………………
<%
if trim(r_name)<>"" then
response.write "（材料：" & r_man & "）
" & vbcrlf
end if
%>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * FROM 材料タイトル where レシピNo=" & session("r_number") & " order by 順番 asc"
rs.open sql, dbs, 3, 3
do while rs.eof = false
response.write "
" & rs.Fields("タイトル") & "
" & vbcrlf
Set rss = Server.CreateObject("ADODB.RecordSet")
sql = "select * FROM 材料 where レシピNo=" & session("r_number") & " and タイトルNo=" & rs.Fields("タイトルNo") & " order by 順番 asc"
rss.open sql, dbs, 3, 3
do while rss.eof = false
response.write "" & rss.Fields("材料") & "" & vbcrlf
response.write "" & rss.Fields("分量") & "
" & vbcrlf
rss.movenext
loop
rss.close
Set rss = Server.CreateObject("ADODB.RecordSet")
sql = "select * FROM 材料備考 where レシピNo=" & session("r_number") & " and タイトルNo=" & rs.Fields("タイトルNo")
rss.open sql, dbs, 3, 3
if rss.eof = false then
response.write "
"& rss.Fields("備考") & "
"
end if
rss.close
rs.movenext
response.write "
"
loop
rs.close
%>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * FROM 作り方タイトル where レシピNo=" & session("r_number") & " order by 順番 asc"
rs.open sql, dbs, 3, 3
do while rs.eof = false
response.write "" & vbcrlf
response.write "" & vbcrlf
response.write "" & rs.Fields("タイトル") & "" & vbcrlf
response.write "" & vbcrlf
Set rss = Server.CreateObject("ADODB.RecordSet")
sql = "select * FROM 作り方 where レシピNo=" & session("r_number") & " and タイトルNo=" & rs.Fields("タイトルNo") & " order by 順番 asc"
rss.open sql, dbs, 3, 3
do while rss.eof = false
response.write "- " & rss.Fields("作り方") & "
" & vbcrlf
rss.movenext
loop
rss.close
rs.movenext
response.write "
" & vbcrlf
response.write "
" & vbcrlf
loop
rs.close
if r_memo<>"" then
response.write "
"& r_memo & ""
end if
%>
<%=r_chef%> 提供
戻る
<%
dbs.close
%>
![](/admin/image/pict/pb_<%=session("r_number")%>.jpg)
