% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim Mode Mode = Request("Mode") Dim ColorFlg If Mode = "Seizo" Then ColorFlg = "o" Else ColorFlg = "r" End If Dim KanriKubun '管理区分 Dim EnshuName '演習名称 Dim KaisyaMeisyo, kaisyaKanamei '会社コード、会社名称、会社カナ名称 Dim ZipCode, Adr1, Adr2 '郵便番号、住所1、住所2 Dim Tel, Fax, GyosyuCD, GyosyuName 'Tel、Fax、業種CD、業種名称 Dim KaisyaRyakuMeisyo '会社略名称 Dim JisyaFlg, GakuseiBango Dim Query Dim Content Dim ShijyoCD, ShijyoMeisyo Dim DaityoTorishimariyaku, Shihonkin Dim DaityoTorishimariyakuJyusyo Dim Torishimariyaku1, Torishimariyaku2, Mokuteki Dim Torishimariyaku1Jyusyo, Torishimariyaku2Jyusyo Dim BunsyoNaiyoCD Dim TantosyaCD Dim KanKatsu TantosyaCD = "" Dim Kitakuriyou, KitakuKaisyaCD, KitakuKaisyaMei Dim Genkariyou KanriKubun = Session(HomeAlias & "KanriKubun") '演習名称GET EnshuName = ConvEnshuMeisyo(EnshuCD) '対象データGET Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ShijyoCD = Content.Fields("市場CD") KaisyaMeisyo = Content.Fields("会社名称") KaisyaRyakuMeisyo = Content.Fields("会社略名称") kaisyaKanamei = Content.Fields("会社カナ名称") ZipCode = Content.Fields("郵便番号") Adr1 = Content.Fields("住所1") Adr2 = Content.Fields("住所2") Tel = Content.Fields("TEL") Fax = Content.Fields("FAX") GyosyuCD = Content.Fields("業種CD") GyosyuName = Content.Fields("業種名称") GakuseiBango = Content.Fields("学生番号") JisyaFlg = Content.Fields("自社フラグ") ShijyoMeisyo = Content.Fields("市場名称") KitakuKaisyaCD = Content.Fields("寄託会社CD") DaityoTorishimariyaku = Content.Fields("代表取締役") DaityoTorishimariyakuJyusyo = Content.Fields("代表取締役住所") Torishimariyaku1 = Content.Fields("取締役1") Torishimariyaku2 = Content.Fields("取締役2") Torishimariyaku1Jyusyo = Content.Fields("取締役1住所") Torishimariyaku2Jyusyo = Content.Fields("取締役2住所") Shihonkin = Content.Fields("資本金") Mokuteki = "" & Content.Fields("事業目的") End If If KaisyaCD = "" Then KaisyaMeisyo = "(自社のマスター)" End If Dim RouteType RouteType = Request("RouteType") %> <% = HtmlHeader("") %>
<% = HtmlFooter %> <% End Sub %>