<% ' ' ' %> <% main() Sub main() Dim SyohinCD Dim Kaishibi Dim Query Dim Content Dim i Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim RouteType RouteType = Request("RouteType") Dim Mode Mode = Request("Mode") Dim PageType Dim Label Dim Palam If RouteType = "Zairyo" Then PageType = "Þ—¿ÝŒÉ" Label = "Þ—¿" Palam = "Zairyo" ElseIf RouteType = "Seihin" Then PageType = "»•iÝŒÉ" Label = "»•i" Palam = "Seihin" ElseIf Mode = "Shiwake" Then PageType = "¤•i—L‚’ iŽ©“®j" Label = "¤•i" Palam = "Shiwake" Else PageType = "¤•iÝŒÉ" Label = "¤•i" Palam = "" End If SyohinCD = Request("SyohinCD") Dim Syuryobi Syuryobi = Request("Syuryobi") %> <% If Mode <> "Shiwake" Then %> <% = HtmlHeader("sj3tyoboblackPRT09") %> <% Else %> <% = HtmlHeader("sj3tyoboredPRT09") %> <% End If %> <% = PrintScriptX %> <% Response.Write(HojyoboSyohinAridakatyo(EnshuCD, KaisyaCD, KaisyaCD, BunsyoSyuruiCD, SyohinCD, 1, 1, Syuryobi, Palam, "")) 'Þ—¿ƒ‚[ƒh‚Ì‚ÝParam‚ª“ü‚é %> <% End Sub %>