<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Label Dim PageType PageType = Request("PageType") If PageType = "" Then PageType = "SendFAX" End If If PageType = "SendFAX" Then Label = "送信FAX" Else Label = "受信FAX" End If Dim RouteType RouteType = Request("RouteType") Dim FAXCD Dim TorihikisakiCD TorihikisakiCD = Request("TorihikisakiCD") FAXCD = Request("FAXCD") '生徒単位でのメール送信拒否設定を取得（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 RouteType = "MailOnly" Then Response.Write(HttpL2("メールウィンドウ" ,"", "", "", "", "", "" , "", "", "", "", "")) 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("照会","syokaibtn();", "削除", "SubmitCheck()", "送信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=SendFAX&RouteType=" & RouteType & "')", "", "", "", "")) Else Response.Write(HttpL3_1("照会","syokaibtn();", "削除", "SubmitCheck()", "送信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=SendFAX&RouteType=" & RouteType & "')", "新規送信", "tblbtn( 'fn_fax.asp?RouteType=" & RouteType & "')", "", "")) End If Else '生徒単位でメール送信拒否設定されている場合は新規送信ボタンを表示しない（091013小野） If MailSendKyohi = "1" Then Response.Write(HttpL3_1("照会","syokaibtn();", "削除", "SubmitCheck()", "受信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=RecvFAX&RouteType=" & RouteType & "')", "", "", "", "")) Else Response.Write(HttpL3_1("照会","syokaibtn();", "削除", "SubmitCheck()", "受信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=RecvFAX&RouteType=" & RouteType & "')", "新規送信", "tblbtn( 'fn_fax.asp?RouteType=" & RouteType & "')", "", "")) End If End If Else If PageType = "RecvFAX" Then '生徒単位でメール送信拒否設定されている場合は新規送信ボタンを表示しない（091013小野） If MailSendKyohi <> "1" Then Response.Write(HttpL3_1("照会","syokaibtn();", "削除", "SubmitCheck()", "新規送信", "tblbtn( 'fn_fax.asp?RouteType=" & RouteType & "')", "", "", "", "")) Else Response.Write(HttpL3_1("照会","syokaibtn();", "削除", "SubmitCheck()", "", "", "", "", "", "")) End If Else '生徒単位でメール送信拒否設定されている場合は新規送信ボタンを表示しない（091013小野） If MailSendKyohi <> "1" Then Response.Write(HttpL3_1("照会","syokaibtn();", "削除", "SubmitCheck()", "新規送信", "tblbtn( 'fn_fax.asp?RouteType=" & RouteType & "')", "", "", "", "")) Else Response.Write(HttpL3_1("照会","syokaibtn();", "削除", "SubmitCheck()", "", "", "", "", "", "")) End If 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 & "')", "送信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=SendFAX&RouteType=" & RouteType & "')", "", "", "", "", "", "")) End If Response.Write(HttpL4(Label , "一覧")) %>

<% If PageType = "RecvFAX" Then %> <% Else %> <% End If %>

　

<% If PageType = "RecvFAX" Then Response.Write("受信日") Else Response.Write("送信日") End If %>

<% If PageType = "RecvFAX" Then Response.Write("送信者") Else Response.Write("受信者") End If %>

件名

開封

受信側
開封

削除

<% Dim FAXCD2, FAXCD3, Sakuseibi, Kenmai, Naiyo, KaifuFlg, GakuseiBango, SakujyoFlg, Kaisyamei, HyojiyoAtesakiMei Dim Query Dim Content Dim ii, jj, iiDef ii = 0 iiDef = -1 If PageType = "RecvFAX" Then Query = "exec SPNFAX一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'R'" Else Query = "exec SPNFAX一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'S'" End If Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) FAXCD2 = "" & Content.Fields("FAXCD") If FAXCD = FAXCD2 Then iiDef = ii End If FAXCD3 = "" & Content.Fields("FAXCD") & "::::::::::::" & Content.Fields("作成会社CD") Sakuseibi = SetTimeYYYYMMDD(Content.Fields("作成日")) Kenmai = Content.Fields("件名") Naiyo = Content.Fields("送付状") KaifuFlg = Content.Fields("開封フラグ") If PageType = "SendFAX" Then KaifuFlg = Content.Fields("対象開封フラグ") '送信一覧の場合は受信側の開封フラグを取得 End If SakujyoFlg = "" & Content.Fields("削除フラグ") GakuseiBango = Content.Fields("学生番号") If SakujyoFlg = "0" Then If PageType = "RecvFAX" Then TorihikisakiCD = Content.Fields("作成会社CD") Else TorihikisakiCD = Content.Fields("宛先CD") End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ' If PageType = "RecvFAX" Then Response.Write("" & vbCrLf) ' End If Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") End If Content.MoveNext Loop For jj = ii To 25 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ' If PageType = "RecvFAX" Then Response.Write("" & vbCrLf) ' End If Response.Write("" & vbCrLf) Response.Write("") Next %>

	" & Sakuseibi & "	" & ConvKaisyaRyakuMeisyo(TorihikisakiCD) & "	" & Kenmai & "	") If KaifuFlg = 0 Then Response.Write("未") Else Response.Write("済") End If Response.Write("	") Response.Write("") Response.Write("
					") Response.Write("

<% = HtmlFooter %>　 <% End Sub %>