<% = AppTitle %>

<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content Dim RouteType Dim RiyoMailKubun RiyoMailKubun = GetEnshuParam(EnshuCD, "メール利用") %> <% = AppTitle %> <% Response.Write("" & vbCrLf) %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) If GB_Gyosyu <> "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/sj4web/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/sj4web/user/bk/menu_s4.asp')", "受発信文書", "", "", "", "", "")) RouteType="syatyo" Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/sj4web/user/bk/')", ConvKubunMeisyo("業種CD", GB_Gyosyu) , "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "受発信文書", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("受発信文書", "")) %>

【受発信文書】

<% If RiyoMailKubun = "1" Then %> <% If Tvvariable > 0 Then %> <% End If %>

メール

<% End If %>

受信文書

発信文書

FAX

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