<% ' ' ' %> <% 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 %>
<% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) ElseIf InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HtmlDesign(2)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("ƉïEWŒvƒEƒBƒ“ƒhƒE" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "Œo—•”", "", "•â••ë", "", PageType, "", "", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("ƒƒCƒ“ƒƒjƒ…[" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "Ž©“®“]‹L’ •ë", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.asp?MenuType=Jido')", "¤•i—L‚’ ", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HttpL2("•â••ëƒEƒBƒ“ƒhƒE" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp?RouteType=" & RouteType & "')", PageType, "", "", "", "", "","", "", "", "")) ElseIf RouteType = "Seihin" Then Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "»‘¢•”", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", PageType, "", "", "", "", "")) ElseIf RouteType = "Zairyo" Then Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "»‘¢•”", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", PageType, "", "", "", "", "")) ElseIf RouteType = "Souko" Then Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "‘qŒÉ•”", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s7.asp')", "¤•iÝŒÉ", "", "", "", "", "")) ElseIf RouteType = "Hanbai" Then Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "”Ì”„•”", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", "¤•iÝŒÉ", "", "", "", "", "")) ElseIf InStr(RouteType, "Keiribu") > 0 Then Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "Œo—•”", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "’ •ë", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp')", PageType, "", "", "")) Else'If RouteType = "Shiire" Then Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "Žd“ü•”", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", "¤•iÝŒÉ", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("ˆóü", "PrintoutReal()", "", "", "", "", "", "", "", "")) ' If InStr(RouteType, "ViewOnly") > 0 Then If Mode <> "Shiwake" Then Response.Write(HttpL3_2(Label & "ˆê——‚Ö–ß‚é", "tblbtn('rm_syohinzaiko.asp?RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) End If ' Else ' Response.Write(HttpL3_2("“ü—Í", "tblbtn( 'fk_Syohinaridakatyo.asp?RouteType=" & RouteType & "&SyohinCD=" & SyohinCD &"')", "", "", "", "", "", "", "", "")) ' End If Response.Write(HttpL4(PageType, "")) %> <% = HtmlFooter %> <% End Sub %>