<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim EnshuCD EnshuCD = Request("EnshuCD") Dim KaisyaCD KaisyaCD = Request("KaisyaCD") Dim KaisyaName Dim GazoFile 'GazoFile = "akubi_egg_7_32.gif" Query = "exec SPM会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaisyaName = "" & Content.Fields("会社名称") If GB_Admin >= 1 Then GazoFile = Content.Fields("トップ画像マスタ") Else GazoFile = Content.Fields("トップ画像") End If End If Dim ErrMsg ErrMsg = Request("ErrMsg") If ErrMsg = "1" Then ErrMsg = "登録されました" ElseIf ErrMsg = "2" Then ErrMsg = "削除されました" Else ErrMsg = "" End If Dim RouteType RouteType = Request("RouteType") '運用管理用フラグ Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim SortMode SortMode = Request("SortMode") Dim ShijoCD ShijoCD = Request("ShijoCD") %> <% = HtmlHeader("") %> "" Then %> onLoad="alert('<% = ErrMsg %> ');"<% End If %>>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn('/" & HomeAlias & "/admin/master/fm_master_select.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "会社マスター", "tblbtn('/" & HomeAlias & "/admin/master/kaisya/fm_kaisya_view.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "トップ画像", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "トップ画像", "", "", "", "", "")) End If Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If GB_Admin >= 1 Then Response.Write(HttpL3_1("戻る", "tblbtn('/" & HomeAlias & "/admin/master/kaisya/fm_kaisya_view.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "保存", "SubmitCheck(0)", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s4.asp')", "保存", "SubmitCheck(0)", "", "", "", "", "", "")) End If Response.Write(HttpL4("トップ画像", "")) ' Response.Write(HttpL5("" & ErrMsg & "")) Response.Write(HttpL5(ErrMsg)) %>
<% = HtmlFooter %> <% End Sub %>