<% ' ' ' %> <% Dim WK_Zandaka_KanjyoCD() Dim WK_Zandaka_KanjyoName() Dim WK_Zandaka_KariKingaku() Dim WK_Zandaka_KashiKingaku() Dim WK_Zandaka_KanjyoKubun() Dim WK_Zandaka_TaisyakuKubun() Dim WK_Zandaka_SyukeiCD() Dim ShowCount, MaxCount main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content Dim tmp Dim Kaishibi Dim Syuryobi Dim TanaorosiFlg Dim TanaorosiKubun Dim PageType PageType = "‘ÝŽØ‘ÎÆ•\" Dim bExistSyuseiKinyu bExistSyuseiKinyu = 0 Query = "exec SPK“`•[WŒvŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', -1, -1, 9" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then bExistSyuseiKinyu = 1 End If Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") TanaorosiKubun = Request("TanaorosiKubun") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim RouteType RouteType = Request("RouteType") Dim KanjyoCDShiire, KanjyoCDKurikoshiSyohin Dim KanjyoCDKisyuSyohinTanaoroshidaka, KanjyoCDKimatsuSyohinTanaoroshidaka Query = "exec SPMŠ¨’è‰È–ڎ擾“Á•ÊŠ¨’è '" & GB_SystemCD & "','" & EnshuCD & "', ''" Set Content = OpenQuery(Query) Do While Not(Content.BOF OR Content.EOF) If Content.Fields("“Á•ÊŠ¨’è‹æ•ª") = "DL" Then KanjyoCDShiire = Content.Fields("Š¨’èCD") ElseIf Content.Fields("“Á•ÊŠ¨’è‹æ•ª") = "DG" Then KanjyoCDKisyuSyohinTanaoroshidaka = Content.Fields("Š¨’èCD") ElseIf Content.Fields("“Á•ÊŠ¨’è‹æ•ª") = "DH" Then KanjyoCDKimatsuSyohinTanaoroshidaka = Content.Fields("Š¨’èCD") ElseIf Content.Fields("“Á•ÊŠ¨’è‹æ•ª") = "DJ" Then KanjyoCDKurikoshiSyohin = Content.Fields("Š¨’èCD") End If Content.MoveNext Loop %> <% = HtmlHeader("") %>
<% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) 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—•”", "", "Ž©“®“]‹L’ •ë", "", "‘ÝŽØ‘ÎÆ•\", "", "", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("ƒƒCƒ“ƒƒjƒ…[" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "à–±”•\", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac5.asp')", "‘ÝŽØ‘ÎÆ•\", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "ŽÐ’·ŽºE‘–±•”", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "à–±”•\", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s41.asp')", "‘ÝŽØ‘ÎÆ•\", "tblbtn( 'rm_taisyakutaisyouhyohoukoku_main.asp')", "", "")) End If Response.Write(HttpL3("ˆóü", "PrintoutReal()", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("ˆóü", "PrintoutReal()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %>
<% = HtmlFooter %> <% End Sub %>