<!-- #include file="../../include.asp" --> <% '<!-- '################################################ ' 名称 :自社情報登録 ' 作成日:2002/8/30 ' 作成者:山崎 ' 目的 :自社情報を登録する ' 概要 : ' <<表示>> ' ・自社情報を登録に必要な入力フィールドが表示 ' 2002/9/30:山崎:修正:会社略名称を追加 '################################################ '--> ' ' %> <% 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 , "<br>", 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 %> <html> <% = HtmlHeader("") %> <SCRIPT LANGUAGE="JavaScript"> <!-- ExitFlg = 1; HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; --> </SCRIPT> <body onkeyudown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form name="form1" method="POST" action="regcorp_bin.asp" autocomplete="off"> <input type="hidden" name="SelectType" value=""> <input type="hidden" name="WBCLB" value="<% = Request("WBCLB") %>"> <% 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("", "")) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="20" BGCOLOR="#FFFFFF" style="BORDER:1px solid #000000" HEIGHT="100"> <TR> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="100%" HEIGHT="100"> <TR ALIGN="CENTER" VALIGN="BOTTOM"> <TD HEIGHT="25" ALIGN="CENTER" VALIGN="BOTTOM"> <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="25" CLASS="tx1618"> <TR> <TD ALIGN="LEFT" valign="top">自社設定に必要な情報を入力してください</TD> <TD ALIGN="RIGHT"> </TD> </TR> </TABLE> </TD> </TR> <TR ALIGN="CENTER"> <TD VALIGN="MIDDLE" ALIGN="CENTER"> <TABLE HEIGHT="100" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border:solid 1px #FF66BB"> <TR> <TD> <table border="0" height="<% If PackageMode <> "1" Then %>470<% Else %>200<% End If %>" cellpadding="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" CLASS="tx1416"> <tr> <td nowrap width="90" align="right"> 会社名称 </td> <td nowrap width="540"> <input OnKeyDown="FormKeyDown(this)" type="text" name="KaisyaMeisyo" size="52" value="<% = KaisyaMeisyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,40,true)"></td> </tr> <tr> <td nowrap align="right"> 会社略名 </td> <td nowrap> <input OnKeyDown="FormKeyDown(this)" type="text" name="KaisyaRyakuMeisyo" size="12" value="<% = KaisyaRyakuMeisyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,10,true)"> <span class="tx1214">※類似商号がある場合は、会社を設立できません。</span></td> </tr> <% If PackageMode = "1" Then %> <input type="hidden" name="GyosyuCD" value="S"> <input type="hidden" name="ShijyoCD" value="1"> <input type="hidden" name="KitakuGaisyaCD" value=""> <% If 0=1 Then %> <input type="hidden" name="YubinBango" value="<% = YubinBango %>"> <input type="hidden" name="Jyusyo1" value="<% = Jyusyo1 %>"> <input type="hidden" name="Jyusyo2" value="<% = Jyusyo2 %>"> <input type="hidden" name="TEL" value="<% = TEL %>"> <input type="hidden" name="FAX" value="<% = FAX %>"> <% End If %> <input type="hidden" name="DaityoTorishimariyaku" value="<% = DaityoTorishimariyaku %>"> <input type="hidden" name="DaityoTorishimariyakuJyusyo" value="<% = DaityoTorishimariyakuJyusyo %>"> <input type="hidden" name="Kabushiki1" value="<% = ConvIntToMoney(Kabushiki1, false, false) %>"> <input type="hidden" name="Torishimariyaku1" value="<% = Torishimariyaku1 %>"> <input type="hidden" name="Torishimariyaku1Jyusyo" value="<% = Torishimariyaku1Jyusyo %>"> <input type="hidden" name="Kabushiki2" value="<% = ConvIntToMoney(Kabushiki2, false, false) %>"> <input type="hidden" name="Torishimariyaku2" value="<% = Torishimariyaku2 %>"> <input type="hidden" name="Torishimariyaku2Jyusyo" value="<% = Torishimariyaku2Jyusyo %>"> <input type="hidden" name="Kabushiki3" value="<% = ConvIntToMoney(Kabushiki3, false, false) %>"> <input type="hidden" name="Hokkinin4" value="<% = Hokkinin4 %>"> <input type="hidden" name="Hokkinin4Jusho" value="<% = Hokkinin4Jusho %>"> <input type="hidden" name="Kabushiki4" value="<% = ConvIntToMoney(Kabushiki4, false, false) %>"> <input type="hidden" name="Hokkinin5" value="<% = Hokkinin5 %>"> <input type="hidden" name="Hokkinin5Jusho" value="<% = Hokkinin5Jusho %>"> <input type="hidden" name="Kabushiki5" value="<% = ConvIntToMoney(Kabushiki5, false, false) %>"> <input type="hidden" name="Gakumen" value="<% = Gakumen %>"> <input type="hidden" name="Shihonkin" value="<% = Shihonkin %>"> <input type="hidden" name="Mokuteki" value="<% = Mokuteki %>"> <% End If %> <% If PackageMode <> "1" Then %> <tr> <td nowrap align="right"> 業 種 </td> <td nowrap> <select size="1" name="GyosyuCD" class="tbox4"> <option value="">※ 選択してください ※</option> <% Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','業種CD'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("<option value=""" & Content.Fields("区分CD") & """") If Content.Fields("区分CD") = GyosyuCD Then Response.Write(" selected") End If Response.Write(">" & Content.Fields("区分名称") & "</option>" & vbCrLf) Content.MoveNext Loop %> </select> </td> </tr> <tr> <td nowrap align="right"> 市 場 </td> <td nowrap> <select size="1" name="ShijyoCD" class="tbox4"> <option value="">※ 選択してください ※</option> <% Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & GB_EnshuCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("<option value=""" & Content.Fields("市場CD") & """") If Content.Fields("市場CD") = ShijyoCD Then Response.Write(" selected") End If Response.Write(">" & Content.Fields("市場名称") & "</option>" & vbCrLf) Content.MoveNext Loop %> </select> <span class="tx1214">※特に指示が無い場合は、一番上の市場を選択してください。</span> </td> </tr> <input type="hidden" name="KitakuGaisyaCD" value="<% = KitakuGaisyaCD %>"> <!-- 寄託倉庫会社は契約後に発生させる(061225小野)--> <% End If %> <tr> <td nowrap align="right"> 住 所 </td> <td nowrap>〒<input OnKeyDown="FormKeyDown(this)" name="YubinBango" size="10" value="<% = YubinBango %>" class="tbox4" onkeyup="FormStrLeft(this,8,false,false)" onkeypress="FormStrLeft(this,8,false,false)" onBlur="FormStrLeftEdge(this,8,true,false);FormStrTrim(this,true);"><br> <input OnKeyDown="FormKeyDown(this)" name="Jyusyo1" size="49" value="<% = Jyusyo1 %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,36,true)"><input OnKeyDown="FormKeyDown(this)" name="Jyusyo2" size="30" value="<% = Jyusyo2 %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,36,true)"></td> </tr> <tr> <td nowrap align="right"> TEL </td> <td nowrap> <table border="0" cellpadding="0" cellspacing="0" class="tx1214"> <tr> <td nowrap><input OnKeyDown="FormKeyDown(this)" name="TEL" size="15" value="<% = TEL %>" class="tbox4" onKeyup="FormStrLeft(this,14,false,false)" onKeypress="FormStrLeft(this,14,false,false)" onBlur="FormStrLeftEdge(this,14,true,false);FormStrTrim(this,true);"></td> <td nowrap> FAX </td> <td nowrap><input OnKeyDown="FormKeyDown(this)" name="FAX" size="15" value="<% = FAX %>" class="tbox4" onKeyup="FormStrLeft(this,14,false,false)" onKeypress="FormStrLeft(this,14,false,false)" onBlur="FormStrLeftEdge(this,14,true,false);FormStrTrim(this,true);"></td> </tr> </table> </td> </tr> <% If PackageMode <> "1" Then %> <tr> <td nowrap></td> <td nowrap valign="bottom" height="10"> <% If GB_IEmode <> "1" Then %> <% End If %> 氏名 <% If GB_IEmode <> "1" Then %> <% End If %> 住所 <% If GB_IEmode <> "1" Then %> <% End If %> 株式数 </td> </tr> <tr> <td nowrap align="right"> 発起人① </td> <td nowrap> <input OnKeyDown="FormKeyDown(this)" name="DaityoTorishimariyaku" size="19" value="<% = DaityoTorishimariyaku %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,18,true)"><input OnKeyDown="FormKeyDown(this)" name="DaityoTorishimariyakuJyusyo" size="52" value="<% = DaityoTorishimariyakuJyusyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)"><input OnKeyDown="FormKeyDown(this)" name="Kabushiki1" size="6" value="<% = ConvIntToMoney(Kabushiki1, false, false) %>" class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);SetGokei();" onFocus="FormStrCommaReplace(this);">株 <BR> </td> </tr> <tr> <td nowrap align="right"> 発起人② </td> <td nowrap> <input OnKeyDown="FormKeyDown(this)" name="Torishimariyaku1" size="19" value="<% = Torishimariyaku1 %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,18,true)"><input OnKeyDown="FormKeyDown(this)" name="Torishimariyaku1Jyusyo" size="52" value="<% = Torishimariyaku1Jyusyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)"><input OnKeyDown="FormKeyDown(this)" name="Kabushiki2" size="6" value="<% = ConvIntToMoney(Kabushiki2, false, false) %>" class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);SetGokei();" onFocus="FormStrCommaReplace(this);">株 <br> </td> </tr> <tr> <td nowrap align="right"> 発起人③ </td> <td nowrap> <input OnKeyDown="FormKeyDown(this)" name="Torishimariyaku2" size="19" value="<% = Torishimariyaku2 %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,18,true)"><input OnKeyDown="FormKeyDown(this)" name="Torishimariyaku2Jyusyo" size="52" value="<% = Torishimariyaku2Jyusyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)"><input OnKeyDown="FormKeyDown(this)" name="Kabushiki3" size="6" value="<% = ConvIntToMoney(Kabushiki3, false, false) %>" class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);SetGokei();" onFocus="FormStrCommaReplace(this);">株 <br> </td> </tr> <tr> <td nowrap align="right"> 発起人④ </td> <td nowrap> <input OnKeyDown="FormKeyDown(this)" name="Hokkinin4" size="19" value="<% = Hokkinin4 %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,18,true)"><input OnKeyDown="FormKeyDown(this)" name="Hokkinin4Jusho" size="52" value="<% = Hokkinin4Jusho %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)"><input OnKeyDown="FormKeyDown(this)" name="Kabushiki4" size="6" value="<% = ConvIntToMoney(Kabushiki4, false, false) %>" class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);SetGokei();" onFocus="FormStrCommaReplace(this);">株 <br> </td> </tr> <tr> <td nowrap align="right"> 発起人⑤ </td> <td nowrap> <input OnKeyDown="FormKeyDown(this)" name="Hokkinin5" size="19" value="<% = Hokkinin5 %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,18,true)"><input OnKeyDown="FormKeyDown(this)" name="Hokkinin5Jusho" size="52" value="<% = Hokkinin5Jusho %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)"><input OnKeyDown="FormKeyDown(this)" name="Kabushiki5" size="6" value="<% = ConvIntToMoney(Kabushiki5, false, false) %>" class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);SetGokei();" onFocus="FormStrCommaReplace(this);">株 <br> </td> </tr> <tr> <td nowrap align="right"> 株式の額面</td> <td nowrap><input OnKeyDown="FormKeyDown(this)" name="Gakumen" size="14" value="<% = ConvIntToMoney(Gakumen, false, false) %>" class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);SetGokei();" onFocus="FormStrCommaReplace(this);">円</td> </tr> <tr> <td nowrap align="right"> 資 本 金 </td> <!--<td nowrap><input OnKeyDown="FormKeyDown(this)" name="Shihonkin" size="14" value="<% = ConvIntToMoney(Shihonkin, false, false) %>" class="tbox5" onkeyup="ChangeMoney(this)" onblur="SetMoney(this, false, true);">円</td>--> <td nowrap><input OnKeyDown="FormKeyDown(this)" name="Shihonkin" size="14" value="<% = ConvIntToMoney(Shihonkin, false, false) %>" class="tbox5_ro" readonly onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);" tabindex="-1">円</td> </tr> <tr> <td nowrap align="right"> 事業目的 </td> <td nowrap><textarea rows="3" wrap="hard" name="Mokuteki" cols="40" class="tarea2_ime" style="height:62px;" onBlur="FormStrLeftIME(this,120,true)"><% = Mokuteki %></textarea></td> </tr> <% End If %> </table> </TD> </TR> </TABLE> </TD> </TR> <TR> <TD HEIGHT="35" align="right"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" width="100%"> <TR> <TD align="right"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="form1.SelectType.value=1;SubmitCheck()" BGCOLOR="#33CCFF" CLASS="tbtn11"> <TR> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"> </TD> <TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" WIDTH="110"><% If PackageMode = "1" Then %>会社作成<% Else %>定款の作成<% End If %></TD> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"> </TD> </TR> </TABLE> </td> </tr> </table> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </div> </form> </body> <SCRIPT LANGUAGE="JavaScript"> //資本金自動計算(080924小野) function SetGokei() { //額面および株式数1~5いずれかが入力されたら動作(ゼロは未入力と見なす) if (form1.Gakumen.value != "" && form1.Gakumen.value != "0" && (form1.Kabushiki1.value != "" && form1.Kabushiki1.value != "0" || form1.Kabushiki2.value != "" && form1.Kabushiki2.value != "0" || form1.Kabushiki3.value != "" && form1.Kabushiki3.value != "0" || form1.Kabushiki4.value != "" && form1.Kabushiki4.value != "0" || form1.Kabushiki5.value != "" && form1.Kabushiki5.value != "0")) { var Kabushiki = 0; for (ii=1; ii<=5; ii++) { if (form1["Kabushiki" + ii].value != "") { Kabushiki = Kabushiki + ConvMoneyToInt(form1["Kabushiki" + ii].value); } } form1.Shihonkin.value = ConvIntToMoney(Kabushiki * ConvMoneyToInt(form1.Gakumen.value)); } else { form1.Shihonkin.value = "<% = MotoShihonkin %>"; } } function SubmitCheck() { if(form1.KaisyaMeisyo.value == "") { alert("会社名称を入力してください "); form1.KaisyaMeisyo.focus(); return false; } if(form1.KaisyaRyakuMeisyo.value == "") { alert("会社略名称を入力してください "); form1.KaisyaRyakuMeisyo.focus(); return false; } if(form1.GyosyuCD.value == "") { alert("業種を選択してください "); form1.GyosyuCD.focus(); return false; } if(form1.ShijyoCD.value == "") { alert("市場を選択してください "); form1.ShijyoCD.focus(); return false; } if(form1.Shihonkin.value != "") { if(form1.Shihonkin.value.length > 13) { alert("資本金が10桁以内に収まるよう\n株式数または株式の額面を設定してください "); form1.Gakumen.focus(); return false; } } if((form1.DaityoTorishimariyakuJyusyo.value != "" || form1.Kabushiki1.value != "") && form1.DaityoTorishimariyaku.value == "") { alert("発起人①を入力してください "); form1.DaityoTorishimariyaku.focus(); return false; } if((form1.Torishimariyaku1Jyusyo.value != "" || form1.Kabushiki2.value != "") && form1.Torishimariyaku1.value == "") { alert("発起人②を入力してください "); form1.Torishimariyaku1.focus(); return false; } if((form1.Torishimariyaku2Jyusyo.value != "" || form1.Kabushiki3.value != "") && form1.Torishimariyaku2.value == "") { alert("発起人③を入力してください "); form1.Torishimariyaku2.focus(); return false; } if((form1.Hokkinin4Jusho.value != "" || form1.Kabushiki4.value != "") && form1.Hokkinin4.value == "") { alert("発起人④を入力してください "); form1.Hokkinin4.focus(); return false; } if((form1.Hokkinin5Jusho.value != "" || form1.Kabushiki5.value != "") && form1.Hokkinin5.value == "") { alert("発起人⑤を入力してください "); form1.Hokkinin5.focus(); return false; } if((form1.DaityoTorishimariyaku.value != "" || form1.DaityoTorishimariyakuJyusyo.value != "") && form1.Kabushiki1.value == "") { alert("発起人①の株式数を入力してください "); form1.Kabushiki1.focus(); return false; } if((form1.Torishimariyaku1.value != "" || form1.Torishimariyaku1Jyusyo.value != "") && form1.Kabushiki2.value == "") { alert("発起人②の株式数を入力してください "); form1.Kabushiki2.focus(); return false; } if((form1.Torishimariyaku2.value != "" || form1.Torishimariyaku2Jyusyo.value != "") && form1.Kabushiki3.value == "") { alert("発起人③の株式数を入力してください "); form1.Kabushiki3.focus(); return false; } if((form1.Hokkinin4.value != "" || form1.Hokkinin4Jusho.value != "") && form1.Kabushiki4.value == "") { alert("発起人④の株式数を入力してください "); form1.Kabushiki4.focus(); return false; } if((form1.Hokkinin5.value != "" || form1.Hokkinin5Jusho.value != "") && form1.Kabushiki5.value == "") { alert("発起人⑤の株式数を入力してください "); form1.Kabushiki5.focus(); return false; } SubmitReal(form1); return true; } </script> <% = HtmlFooter %> </html> <% End Sub %>