% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim SyohinCD SyohinCD = Request("SyohinCD") Dim RouteType RouteType = Request("RouteType") Dim Mode Mode = Request("Mode") Dim Query Dim Content Dim SoukoRiyo Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SoukoRiyo = "" & Content.Fields("‘qŒÉ•”—˜—p") End If 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 Dim Kaishibi, Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If If Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") If BunsyoSyuruiCD = "" Then BunsyoSyuruiCD = "MG" End If %> <% If Mode <> "Shiwake" Then %> <% = HtmlHeader("sj3tyoboblack11") %> <% Else %> <% = HtmlHeader("sj3tyobored11") %> <% End If %>