%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
%>
<% = AppTitle %>
<%
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')", "受発信文書", "", "", "", "", ""))
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("受発信文書", ""))
%>
<% = HtmlFooter %>
<%
End Sub
%>