▼魚の名前をクリックすると料理名がでます。
<% If Not rstfish.EOF Then '=============================================================================== '== データがあり場合の表示画面 '=============================================================================== Dim strFishID ''魚種ID Dim strFishName ''魚名称 Dim strDishID ''レシピID Dim strDishName ''料理名称 Dim strLinkKb ''リンク区分 Dim strLink ''リンクURL Dim lngDataCnt Dim i %> <% For i = 0 To 3 '== 四つ列を表示する為、データが四回取り込み %> <% Next %>
<% lngDataCnt = 0 rstfish.MoveFirst Do while not rstfish.eof strFishID = rstfish("魚種ID").value & "" strFishName = rstfish("魚種名称").value & "" If (lngDataCnt mod 4 = i) Then '== 一列、一列で表示する %> <% If (p_fishID <> "") and (p_fishID = strFishID) Then %> <% Else %> <% End If %>
<% If (p_fishID <> "") and (strFishID = p_fishID) Then %> <%=strFishName%> <% Else %> <%=strFishName%> <% End If %>
<% If rstdish.EOF Then Else rstdish.MoveFirst Do while not rstdish.eof strDishID = rstdish("レシピID").value & "" strDishName = rstdish("料理名").value & "" strLinkKb = rstdish("リンク区分").value & "" strLink = rstdish("リンクURL").value & "" If (strLinkKb = "20") Then %> 
<%= strDishName %>
<% ElseIf (strLinkKb = "10") Then %> 
<%= strDishName %>
<% Else %> 
<%= strDishName %>
<% End If rstdish.MoveNext Loop End If Call rstdish.close() Set rstdish = nothing %>
　
<% End If rstfish.MoveNext lngDataCnt = lngDataCnt +1 Loop %>
<% Else '=============================================================================== '== データがあり場合の表示画面 '=============================================================================== %>
該当するデータがありません。
<% End If Call rstfish.close() Set rstfish = nothing Call conn.close() Set conn = nothing %>