<% ' ' ' %> <% 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 %>