<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Session(HomeAlias & "GyosyuColorObj") = "w" Dim Query Dim Content Dim KaisyaKanaMeisyo, KaisyaMeisyo, KaisyaRyakuMeisyo, YubinBango Dim Jyusyo1, Jyusyo2, TEL, FAX, SetsuritsuNengappi Dim DaityoTorishimariyaku, Shihonkin Dim Torishimariyaku1, Torishimariyaku2, Mokuteki Dim Torishimariyaku1Jyusyo, Torishimariyaku2Jyusyo Dim ShijyoCD, GyosyuCD Dim DaityoTorishimariyakuJyusyo Dim KitakuGaisyaCD Dim Hokkinin4 Dim Hokkinin5 Dim Hokkinin4Jusho Dim Hokkinin5Jusho Dim Kabushiki1 Dim Kabushiki2 Dim Kabushiki3 Dim Kabushiki4 Dim Kabushiki5 Dim Gakumen Query = "exec SPV自社情報取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaisyaKanaMeisyo = Content.Fields("会社カナ名称") KaisyaMeisyo = Content.Fields("会社名称") KaisyaRyakuMeisyo = Content.Fields("会社略名称") YubinBango = Content.Fields("郵便番号") Jyusyo1 = Content.Fields("住所1") Jyusyo2 = Content.Fields("住所2") TEL = Content.Fields("TEL") FAX = Content.Fields("FAX") DaityoTorishimariyaku = Content.Fields("代表取締役") Shihonkin = Content.Fields("資本金") Mokuteki = Content.Fields("事業目的") Mokuteki = Replace(Mokuteki , "
", vbCrLf) Mokuteki = Server.HTMLEncode(Mokuteki) ShijyoCD = Content.Fields("市場CD") GyosyuCD = Content.Fields("業種CD") KitakuGaisyaCD = Content.Fields("寄託会社CD") Kabushiki1 = Content.Fields("発起人1株式数") Kabushiki2 = Content.Fields("発起人2株式数") Kabushiki3 = Content.Fields("発起人3株式数") Kabushiki4 = Content.Fields("発起人4株式数") Kabushiki5 = Content.Fields("発起人5株式数") Gakumen = Content.Fields("株式の額面") ' Dim tmp1, tmp2 ' tmp1 = Content.Fields("取締役") ' tmp2 = split(tmp1, "/") ' If UBound(tmp2) >= 1 Then ' Torishimariyaku1 = tmp2(0) ' Torishimariyaku2 = tmp2(1) ' End If Torishimariyaku1 = Content.Fields("取締役1") Torishimariyaku2 = Content.Fields("取締役2") Torishimariyaku1Jyusyo = Content.Fields("取締役1住所") Torishimariyaku2Jyusyo = Content.Fields("取締役2住所") DaityoTorishimariyakuJyusyo = Content.Fields("代表取締役住所") Hokkinin4 = Content.Fields("発起人4") Hokkinin5 = Content.Fields("発起人5") Hokkinin4Jusho = Content.Fields("発起人4住所") Hokkinin5Jusho = Content.Fields("発起人5住所") End If If "" & Gakumen = "" Then Gakumen = 50000 End If Dim MotoShihonkin MotoShihonkin = "" & ConvIntToMoney(Shihonkin, false, false) Dim Kitakuriyou Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = Content.Fields("寄託倉庫利用") 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("", "")) %>

自社設定に必要な情報を入力してください

470<% Else %>200<% End If %>" cellpadding="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" CLASS="tx1416"> <% If PackageMode = "1" Then %> <% If 0=1 Then %> <% End If %> <% End If %> <% If PackageMode <> "1" Then %> <% End If %> <% If PackageMode <> "1" Then %> <% End If %>

会社名称

会社略名

※類似商号がある場合は、会社を設立できません。

業　種

市　場

※特に指示が無い場合は、一番上の市場を選択してください。

住　所

〒

TEL

FAX

<% If GB_IEmode <> "1" Then %> <% End If %> 氏名 <% If GB_IEmode <> "1" Then %> <% End If %> 住所 <% If GB_IEmode <> "1" Then %> <% End If %> 株式数

発起人①

株

発起人②

株

発起人③

株

発起人④

株

発起人⑤

株

株式の額面

円

資本金

円

事業目的

<% If PackageMode = "1" Then %>会社作成<% Else %>定款の作成<% End If %>

<% = HtmlFooter %> <% End Sub %>