<!-- #include file="../../include.asp" --> <% '<!-- '################################################ ' 名称 :自社情報登録 ' 作成日:2002/8/30 ' 作成者:山崎 ' 目的 :自社情報を登録する ' 概要 : ' <<表示>> ' ・自社情報を登録に必要な入力フィールドが表示 ' 2002/9/30:山崎:修正:会社略名称を追加 '################################################ '--> ' ' %> <% 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 %> <html> <% = HtmlHeader("") %> <SCRIPT LANGUAGE="JavaScript"> <!-- ExitFlg = 1; HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; --> </SCRIPT> <body onkeydown="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="daihyotorishimariyaku_bin.asp" autocomplete="off"> <input type="hidden" name="ref" value="<% = ref %>"> <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="0" BGCOLOR="#FFFFFF" style="BORDER:1px solid #000000" WIDTH="460" HEIGHT="250"> <TR> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="480" HEIGHT="200"> <TR ALIGN="CENTER" VALIGN="BOTTOM"> <TD HEIGHT="35" ALIGN="CENTER" VALIGN="BOTTOM"> <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" CLASS="tx1416"> <TR> <TD WIDTH="300"> 代表取締役のお名前を入力してください</TD> <TD ALIGN="RIGHT"> </TD> </TR> </TABLE> </TD> </TR> <TR ALIGN="CENTER"> <TD VALIGN="MIDDLE" ALIGN="CENTER"> <TABLE HEIGHT="100" WIDTH="400" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border:solid 1px #FF66BB"> <TR> <TD> <table border="0" height="100" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" CLASS="tx1214"> <tr> <td align="center"> <input OnKeyDown="FormKeyDown(this)" type="text" name="DaihyoTorishimariyaku" size="45" value="<% = DaihyoTorishimariyaku %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,20,true,true)">(10) </td> </tr> </table> </TD> </TR> </TABLE> </TD> </TR> <TR> <TD HEIGHT="35" align="right"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0"> <TR> <TD> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SubmitCheck()" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="130"> <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="100">決 定</TD> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"> </TD> <TD WIDTH="60" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> </TD> </TR> </TABLE> </td> </tr> </table> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </div> </form> </body> <SCRIPT LANGUAGE="JavaScript"> function SubmitCheck() { if(form1.DaihyoTorishimariyaku.value == "") { alert("お名前を入力して下さい"); form1.DaihyoTorishimariyaku.focus(); return false; } SubmitReal(form1); return true; } </script> <% = HtmlFooter %> </html> <% End Sub %>