<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If %> <% = AppTitle %> <% Response.Write(HtmlDesign(9)) Response.Write(HttpL1(4)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/sj3web/user/bk/')", "名刺作成", "tblbtn('/sj3web/user/manner/default.asp')", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("" , "")) %> <% = HtmlFooter %> <% End Sub %>