% ' ' ' %> <% 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("") %>
<% = HtmlFooter %> <% End Sub %>