<% Dim DefFontSize DefFontSize = 14 Dim FontSize Query = "exec SPMカテゴリ取得 null, 1" 'サブカテゴリID=1のみ・・・カテゴリ一覧 Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("有効") = "1" Then FontSize = DefFontSize If "" & Content.Fields("文字サイズ") <> "" Then FontSize = FontSize + Content.Fields("文字サイズ") End If %> <% If "" & Content.Fields("カテゴリID") = Cat Then Query = "exec SPMカテゴリ取得 " & Content.Fields("カテゴリID") & ", null" 'サブカテゴリ一覧 Set Content2 = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content2.BOF Or Content2.EOF) If "" & Content2.Fields("サブカテゴリ有効") = "1" Then FontSize = DefFontSize If "" & Content2.Fields("サブカテゴリ文字サイズ") <> "" Then FontSize = FontSize + Content2.Fields("サブカテゴリ文字サイズ") End If %> <% End If Content2.MoveNext Loop End If End If Content.MoveNext Loop %>

カテゴリでさがす

<% = ActionButton3Image("CategoryLast", "images/btn02g.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, "最後に選択したカテゴリ", "tx1416", "left", "location.href='" & HomeAliasSL & "?CatRet=1&Order=" & Order & "';") %>

<% If "" & Content.Fields("カテゴリID") = Cat And SubCat = "" Then %> <% = ActionButton3Image("Category" & Content.Fields("カテゴリID"), "images/btn02o.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, Content.Fields("名称"), "tx" & FontSize & (FontSize + 2), "left", "location.href='" & HomeAliasSL & "?Cat=" & Content.Fields("カテゴリID") & "&Order=" & Order & "';") %> <% Else %> <% = ActionButton3Image("Category" & Content.Fields("カテゴリID"), "images/btn02g.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, Content.Fields("名称"), "tx" & FontSize & (FontSize + 2), "left", "location.href='" & HomeAliasSL & "?Cat=" & Content.Fields("カテゴリID") & "&Order=" & Order & "';") %> <% End If %>

<% If "" & Content2.Fields("カテゴリID") = Cat And "" & Content2.Fields("サブカテゴリID") = SubCat Then %> <% = ActionButton3Image("Category" & Content2.Fields("カテゴリID") & "Sub" & Content2.Fields("サブカテゴリID"), "images/btn03o.png", "images/btn03o.png", 30, "images/spacer.gif", "images/spacer.gif", 150, "images/spacer.gif", "images/spacer.gif", 0, 20, Content2.Fields("サブカテゴリ名称"), "tx" & FontSize & (FontSize + 2), "left", "location.href='" & HomeAliasSL & "?Cat=" & Content2.Fields("カテゴリID") & "&SubCat=" & Content2.Fields("サブカテゴリID") & "&Order=" & Order & "';") %> <% Else %> <% = ActionButton3Image("Category" & Content2.Fields("カテゴリID") & "Sub" & Content2.Fields("サブカテゴリID"), "images/btn03g.png", "images/btn03o.png", 30, "images/spacer.gif", "images/spacer.gif", 150, "images/spacer.gif", "images/spacer.gif", 0, 20, Content2.Fields("サブカテゴリ名称"), "tx" & FontSize & (FontSize + 2), "left", "location.href='" & HomeAliasSL & "?Cat=" & Content2.Fields("カテゴリID") & "&SubCat=" & Content2.Fields("サブカテゴリID") & "&Order=" & Order & "';") %> <% End If %>

<% Query = " SELECT * FROM TM地方 ORDER BY 地方CD " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) ' If "" & Content.Fields("有効") = "1" Then %> <% If "" & Content.Fields("地方CD") = Area Then Query = " SELECT * FROM TM都道府県 WHERE 地方CD = " & Area & " ORDER BY 都道府県CD " Set Content2 = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content2.BOF Or Content2.EOF) ' If "" & Content2.Fields("サブカテゴリ有効") = "1" Then %> <% ' End If Content2.MoveNext Loop End If ' End If Content.MoveNext Loop %>

地域でさがす

<% If "" & Content.Fields("地方CD") = Area And Pref = "" Then %> <% = ActionButton3Image("Area" & Content.Fields("地方CD"), "images/btn02o.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, Content.Fields("名称"), "tx1416", "left", "location.href='" & HomeAliasSL & "?Area=" & Content.Fields("地方CD") & "&Order=" & Order & "';") %> <% Else %> <% = ActionButton3Image("Area" & Content.Fields("地方CD"), "images/btn02b.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, Content.Fields("名称"), "tx1416", "left", "location.href='" & HomeAliasSL & "?Area=" & Content.Fields("地方CD") & "&Order=" & Order & "';") %> <% End If %>

<% If "" & Content2.Fields("地方CD") = Area And "" & Content2.Fields("都道府県CD") = Pref Then %> <% = ActionButton3Image("Area" & Content2.Fields("地方CD") & "Pref" & Content2.Fields("都道府県CD"), "images/btn03o.png", "images/btn03o.png", 30, "images/spacer.gif", "images/spacer.gif", 150, "images/spacer.gif", "images/spacer.gif", 0, 20, Content2.Fields("表示名称"), "tx1517", "left", "location.href='" & HomeAliasSL & "?Area=" & Content2.Fields("地方CD") & "&Pref=" & Content2.Fields("都道府県CD") & "&Order=" & Order & "';") %> <% Else %> <% = ActionButton3Image("Area" & Content2.Fields("地方CD") & "Pref" & Content2.Fields("都道府県CD"), "images/btn03b.png", "images/btn03o.png", 30, "images/spacer.gif", "images/spacer.gif", 150, "images/spacer.gif", "images/spacer.gif", 0, 20, Content2.Fields("表示名称"), "tx1517", "left", "location.href='" & HomeAliasSL & "?Area=" & Content2.Fields("地方CD") & "&Pref=" & Content2.Fields("都道府県CD") & "&Order=" & Order & "';") %> <% End If %>