<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim DaihyoTorishimariyaku Dim ref ref = Request("ref") Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If "" & Content.Fields("自社フラグ") = "1" Then DaihyoTorishimariyaku = Content.Fields("代表取締役") End If End If %> <% = HtmlHeader("") %>
"> <% Response.Write(HtmlDesign(9)) Response.Write(HttpL1(0)) If PackageMode = 1 Then Response.Write(HttpL2("代表取締役" , "", "", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択", "tblbtn( 'default.asp')","代表取締役" , "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "","" ,"", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("", "")) %>
<% = HtmlFooter %> <% End Sub %>