<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query,Content Dim SakuseiKaisyaCD Dim MailCD, Sakuseibi, TorihikisakiCD, Kenmei, Naiyo, KaifuFlg, SakujyoFlg, TorihikisakiMaisyo MailCD = Request("MailCD") TorihikisakiCD = Request("TorihikisakiCD") Dim RouteType RouteType = Request("RouteType") Dim KaisyaMeisyo Dim FAX Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaisyaMeisyo = Content.Fields("会社名称") FAX = Content.Fields("FAX") 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 Naiyo = "" Naiyo = Naiyo & "拝啓" & vbCrLf Naiyo = Naiyo & "" & vbCrLf Naiyo = Naiyo & "" & vbCrLf Naiyo = Naiyo & "" & vbCrLf Naiyo = Naiyo & "" & vbCrLf Naiyo = Naiyo & "" & vbCrLf Naiyo = Naiyo & "" & vbCrLf Naiyo = Naiyo & "" & vbCrLf Naiyo = Naiyo & "下記の通り送付致しますので、宜しくご査収のほどお願い申し上げます。" & vbCrLf Naiyo = Naiyo & "" & vbCrLf Naiyo = Naiyo & "　　　　　　　　　　　　　　　　　　　　　　　　　　　　　敬具" & vbCrLf Naiyo = Naiyo & "" & vbCrLf Naiyo = Naiyo & "" & vbCrLf Naiyo = Naiyo & "　　　　　　　　　　　　　　　　　　　　　　" & KaisyaMeisyo & vbCrLf Naiyo = Naiyo & "" & vbCrLf Naiyo = Naiyo & "　　　　　　　　　　　　　　　　　　　　　　FAX:" & FAX & vbCrLf Naiyo = Naiyo & "" & vbCrLf Naiyo = Naiyo & "" & vbCrLf %> <% = HtmlHeader("") %>
<% If InStr(RouteType, "MailOnly") > 0 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("受発信文書ウィンドウ" ,"", "", "", "", "", "", "", "", "", "", "")) 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/')", "メール" , "", "", "")) 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/')", "メール", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "" ,"", "", "", "", "", "", "", "", "", "", "", "")) If InStr(RouteType, "MailOnly") > 0 Then Response.Write(HttpL3_1("送信", "SubmitCheck()", "送信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=SendFAX&RouteType=" & RouteType & "')", "受信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=RecvFAX&RouteType=" & RouteType & "')", "", "", "", "")) Else Response.Write(HttpL3_1("送信", "SubmitCheck()" , "", "", "", "", "", "", "", "")) 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("FAX", "FAX送信")) %>
<% = HtmlFooter %> <% End Sub %>