<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="../Inc/config.asp" -->

<link href="../other/admin.css" rel="stylesheet" type="text/css">
<title><%=appname%></title>
<%id=Trim(Request("classid"))%>
	<script language="javascript">
<!--
function ockgo()
{
 if (document.form1.HTdanweiID1.value=="")
	 {
		alert("請輸入");
		return false;
	 }
 if (document.form1.HTname.value=="")
	 {
		alert("請輸入名稱");
		return false;
	 }
 if (document.form1.HTdanweiID2.value=="")
	 {
		alert("ERROR");
		return false;
	 } 
 else
	 document.Form1.submit();
}
-->
</script>
<base  oncontextmenu=self.event.returnValue=false>
<form name="form1" method="post" action="SaveAddHTong.asp">
  <div align="center">
    <table width="796" height="175" border="0" cellpadding="1" cellspacing="0">
      <tr class="back_southidc">
        <td height="14" colspan="6"><div align="center">添加合同</div></td>
      </tr>
      <tr class="tr_southidc">
        <td width="101" height="14">合同編號 : </td>
        <td width="144"><input name="htid" type="text" id="htid" value="<%=ht%>" readonly=""></td>
        <td width="96">合同名稱 : </td>
        <td colspan="3"><input name="HTname" type="text" id="HTname" size="70"></td>
      </tr>
      <tr class="tr_southidc">
        <td height="14">合同類型 :</td>
        <td><select name="HTclassID" id="HTclassID">
		
		<%set rs = server.CreateObject("adodb.recordset")
  sql="select * from pro_HTClass ORDER by ID desc"
  rs.Open sql,conn,0,2,1
  while not (rs.bof or rs.eof)  %>
          <option value="<%=rs("HTclassID")%>" <%if rs("HTclassID")=id then response.write "selected" end if%>><%=rs("htclassName")%></option>
         <%
		      rs.movenext
			  	wend
				rs.close
				set rs=nothing
				
		%>
		
		
        </select></td>
        <td>業務員 : </td>
        <td width="158"><select name="HTywyID" id="HTywyID">
		<%set rs = server.CreateObject("adodb.recordset")
  sql="select * from pro_HTywy ORDER by ID desc"
  rs.Open sql,conn,0,2,1
  while not (rs.bof or rs.eof)  %>
          <option value="<%=rs("HTywyID")%>"><%=rs("htywyName")%></option>
         <%
		      rs.movenext
			  	wend
				rs.close
				set rs=nothing
				
		%>
        </select></td>
        <td width="100">合同金額 : </td>
        <td width="185"> &yen;<input name="HTmoney" type="text" id="HTmoney">
       </td>
      </tr>
      <tr class="tr_southidc">
        <td height="14">簽定日期 : </td>
        <td><input name="HTqidingtime" type="text" id="HTqidingtime" value="<%=date%>"></td>
        <td class="blue">合同開始日期:</td>
        <td><input name="HTstartime" type="text" id="HTstartime" value="<%=date%>"></td>
        <td class="blue">合同截止日期:</td>
        <td><input name="HTovertime" type="text" id="HTovertime"></td>
      </tr>
      <tr class="tr_southidc">
        <td height="14">合同主要內容 : </td>
        <td colspan="5"><textarea name="HTneirong" cols="70" rows="10" id="HTneirong"></textarea></td>
      </tr>
      <tr class="tr_southidc">
        <td height="14" class="red">合同異常描述:</td>
        <td colspan="5"><textarea name="HTmiaoshu" cols="70" rows="10" id="HTmiaoshu"></textarea></td>
      </tr>
      <tr class="tr_southidc">
        <td height="14" class="blue">甲方單位 : </td>
        <td colspan="2"><input name="HTdanweiID1" type="text" id="HTdanweiID1" readonly="">
        &nbsp;<span class="red">&nbsp;[</span><a href="#" onclick="window.open('XZHTdanwei.asp?id=1', 'danweiid', 'width=400, height=260')">點擊選擇</a><span class="red">]</span></td>
        <td class="blue">乙方單位 : </td>
        <td colspan="2"><input name="HTdanweiID2" type="text" id="HTdanweiID2" readonly=""> 
        &nbsp;<span class="red">[</span><a href="#"onclick="window.open('XZHTdanwei.asp?id=2', 'danweiid', 'width=400, height=260')">點擊選擇</a><span class="red">]</span>&nbsp;</td>
      </tr>
      <tr class="tr_southidc">
        <td height="14">甲方負責人:</td>
        <td><input name="HTjiafangren" type="text" id="HTjiafangren"></td>
        <td>&nbsp;</td>
        <td>乙方負責人 : </td>
        <td colspan="2"><input name="HTyifangren" type="text" id="HTyifangren"></td>
      </tr>
      <tr class="tr_southidc">
        <td height="14">其他相關文件　：</td>
        <td colspan="3"><input name="HTfile" type="text" id="HTfile" size="50"> 
        [支持doc/txt] </td>
        <td colspan="2"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=down"></iframe></td>
      </tr>
      <tr class="tr_southidc">
        <td>&nbsp;</td>
        <td colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
          <input name="HT" type="radio" value="收" checked>
          收款 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
          <input type="radio" name="HT" value="付">
          付款</td>
        <td class="red">合同狀態 : </td>
        <td colspan="2"><select name="HTflagid" id="HTflagid">
		<%set rs = server.CreateObject("adodb.recordset")
  sql="select * from pro_HTflag ORDER by ID desc"
  rs.Open sql,conn,0,2,1
  while not (rs.bof or rs.eof)  %>
          <option value="<%=rs("HTflagID")%>" selected><%=rs("htflagName")%></option>
         <%
		      rs.movenext
			  	wend
				rs.close
				set rs=nothing
				
		%>
        </select></td>
      </tr>
      <tr class="tr_southidc">
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td><input type="submit" name="Submit" value=" 提 交 " onclick="javascript:return ockgo();"></td>
        <td><input type="reset" name="Submit2" value=" 重 置 "></td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
    </table>
    <br>
    <span class="blue">文件類型請自行修改
:UpLoad.asp  </span> </div>
</form>
<%call endconn()%>