<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim FaxDir FaxDir = "/" & HomeAlias & "/data/fax" Dim FileExt Dim Query,Content Dim SakuseiKaisyaCD Dim FAXCD, Sakuseibi, TorihikisakiCD, Kenmei, Naiyo, KaifuFlg, SakujyoFlg, HyojiyoAtesakiCD, HyojiyoAtesakiMei Dim PageType Dim RouteType Dim i HyojiyoAtesakiMei = "" FAXCD = Request("FAXCD") TorihikisakiCD = Request("TorihikisakiCD") PageType = Request("PageType") RouteType = Request("RouteType") Dim Soushinsha If PageType = "RecvFAX" Then Soushinsha = TorihikisakiCD Else Soushinsha = KaisyaCD End If Dim Label If PageType = "RecvFAX" Then Label = "受信FAX" Else Label = "送信FAX" End If If TorihikisakiCD <> "" Then Query = "exec SPNFAX開封 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & Soushinsha & "', '" & FAXCD & "'" Set Content = OpenQuery(Query) End If Query = "exec SPNFAX取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & Soushinsha & "', '" & FAXCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SakuseiKaisyaCD = Content.Fields("作成会社CD") FAXCD = Content.Fields("FAXCD") TorihikisakiCD = Content.Fields("宛先CD") Sakuseibi = SetTimeYYYYMMDD(Content.Fields("作成日")) Kenmei = Content.Fields("件名") Naiyo = Content.Fields("送付状") FileExt = Content.Fields("拡張子") KaifuFlg = Content.Fields("開封フラグ") SakujyoFlg = Content.Fields("削除フラグ") End If '生徒単位でのメール送信拒否設定を取得(091013小野) Dim MailSendKyohi Query = "exec SPV演習履歴取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then MailSendKyohi = "" & Content.Fields("メール送信拒否") End If %> <% = HtmlHeader("") %>
<% If RouteType = "MailOnly" Then Response.Write(HtmlDesign(6)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "MailOnly") > 0 Then Response.Write(HttpL2("受発信文書ウィンドウ" ,"tblbtn( 'fn_fax_ichiran.asp?PageType=" & PageType & "&RouteType=" & RouteType & "&FAXCD=" & FAXCD & "')", "", "", "", "", "", "", "", "", "", "")) ElseIf GB_Gyosyu <> "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "受発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/')", "FAX" , "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", ConvKubunMeisyo("業種CD", GB_Gyosyu) , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "受発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/')", "FAX", "", "", "", "", "")) End If Response.Write(HttpL3("", "" ,"", "" ,"", "", "", "", "", "", "", "", "", "", "", "")) If InStr(RouteType, "MailOnly") > 0 Then If PageType = "RecvFAX" Then '生徒単位でメール送信拒否設定されている場合は新規送信ボタンを表示しない(091013小野) If MailSendKyohi = "1" Then Response.Write(HttpL3_1("受信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=RecvFAX&RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("受信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=RecvFAX&RouteType=" & RouteType & "')", "新規送信", "tblbtn( 'fn_fax.asp?RouteType=" & RouteType & "')", "", "", "", "", "", "")) End If Else '生徒単位でメール送信拒否設定されている場合は新規送信ボタンを表示しない(091013小野) If MailSendKyohi = "1" Then Response.Write(HttpL3_1("送信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=SendFAX&RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("送信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=SendFAX&RouteType=" & RouteType & "')", "新規送信", "tblbtn( 'fn_fax.asp?RouteType=" & RouteType & "')", "", "", "", "", "", "")) End If End If Else If PageType = "RecvFAX" Then Response.Write(HttpL3_1("新規送信", "tblbtn( 'fn_fax.asp?RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("新規送信", "tblbtn( 'fn_fax.asp?RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) End If End If If InStr(RouteType, "MailOnly") > 0 Then Response.Write(HttpL3_2("受信文書", "tblbtn( 'fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=" & RouteType & "')", "発信文書", "tblbtn( 'fn_jyuhasshinbunsyo.asp?PageType=Send&RouteType=" & RouteType & "')", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=" & RouteType & "')", "受信メール", "tblbtn( 'fn_mailsakusei_ichiran.asp?PageType=RecvMail&RouteType=" & RouteType & "')" ,"送信メール", "tblbtn( 'fn_mailsakusei_ichiran.asp?PageType=SendMail&RouteType=" & RouteType & "')")) Else Response.Write(HttpL3_2("受信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=RecvFAX&RouteType=" & RouteType & "&FAXCD=" & FAXCD & "')", "送信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=SendFAX&RouteType=" & RouteType & "&FAXCD=" & FAXCD & "')", "", "", "", "", "", "")) End If Response.Write(HttpL4("FAX", Label & "照会")) %>
<% = HtmlFooter %> <% End Sub %>