<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If '会社セッション初期化(演習状況記帳チェック後の対処) KaisyaCD = "" GB_KaisyaCD = "" KaisyaMeisyo = "" GB_KaisyaMeisyo = "" KaisyaRyakuMeisyo = "" GB_KaisyaRyakuMeisyo = "" Session(HomeAlias & "KaisyaCD") = "" Session(HomeAlias & "Gyosyu") = "" Session(HomeAlias & "GyosyuMeisyo") = "" Session(HomeAlias & "KaisyaMeisyo") = "" Session(HomeAlias & "KaisyaRyakuMeisyo") = "" Session(HomeAlias & "JisyaFlag") = "" Session(HomeAlias & "ShijyoCD") = "" Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim EnshuName Dim Query Dim Content Dim TmpEnshuKubun TmpEnshuKubun = ConvEnshuKubun(EnshuCD) Dim SortMode SortMode = Request("SortMode") If SortMode = "" Then SortMode = "2" End If Dim Keyword Keyword = Request("Keyword") Dim Page Page = Request("Page") If Page <> "" Then Page = ConvMoneyToInt(Page) Else Page = 0 End If Dim PageRow PageRow = 100 %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "送信メール一覧", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) 'Response.Write(HttpL3_1("再表示", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "')", "印刷", "PrintoutRealInline('" & Replace(Request.ServerVariables("URL"), ".asp", "_print.asp") & "?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "');", "", "", "", "", "", "")) Response.Write(HttpL3_1("再表示", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "')", "", "", "", "", "", "", "", "")) 'Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) If TmpEnshuKubun = "P" Then If HyojiFlg = "1" Then Response.Write(HttpL3_2("マスター会社を非表示", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "')", "書類一覧", "tblbtn('fm_tyohyo.asp')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("マスター会社を表示", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "&HyojiFlg=1')", "書類一覧", "tblbtn('fm_tyohyo.asp')", "", "", "", "", "", "")) End If Else Response.Write(HttpL3_2("書類一覧", "tblbtn('fm_tyohyo.asp')", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("送信メール一覧", "")) Response.Write(HttpL5("")) %>
<% = HtmlFooter %> <% End Sub %>