 |
|
contact_new เป็นตารางหลัก
contact_new_PRIC มี หลายค่า
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
<!--#include file="include/backheader.htm" --><!--#include file="include/Edit_Contac.asp" --><br>
<!--#include file="include/formcontrol.asp" -->
<table width="900" border="0" align="center" cellspacing="0" cellpadding="0" >
<tr>
<td width="10%"></td>
<td width="90%"></td>
</tr>
<tr>
<td colspan="2" valign="top"> <font face="ms sans serif" size=0></font>
<form action="Edit_Contact.asp" onSubmit="return checkform(this)" method=post>
<div align="center"><strong class="text_black">Search Contract_N</strong><font face="ms sans serif"> </font><font size="0" face="ms sans serif">
<input type=text name="keyword" size=20>
<input name="submit" type=submit value="Search">
<br>
</font>
</div>
</form>
</div>
</div>
<%
'-------------------------------------------------------------
' 1.ประกาศตัวแปร
Dim CO_CODE, Customby
Dim rs, sql, aCustomer
'-------------------------------------------------------------
' 2.เก็บข้อมูลจากหน้า
CO_CODE = Trim(Request.QueryString("CO_CODE"))
If CO_CODE = "" Then
Response.Write "<br><br><center><font size=+2 color=red face=MS Sans Serif, Microsoft Sans Serif><b>ไม่พบข้อมูล กรุณาเลือกอีกครั้ง<br>"
Response.Write "<a href=# onClick='history.back()'>ย้อนกลับ</a>"
Response.End
End If
'-------------------------------------------------------------
' 3.ติดต่อฐานข้อมูลเพื่อดึงข้อมูล
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=SQLOLEDB; DATA SOURCE=192.168.1.1;INITIAL CATALOG=shipping_report; USER ID=sa; PASSWORD=sa"
sql = "select * from contact_new " & _
"where CO_CODE="& CO_CODE &""
Set rs = Conn.Execute(sql)
If rs.BOF Or rs.EOF Then
Response.Write "<br><br><center><font size=+2 color=red face=MS Sans Serif, Microsoft Sans Serif><b>ไม่พบข้อมูล กรุณาเลือกอีกครั้ง<br>"
Response.Write "<a href=# onClick='history.back()'>ย้อนกลับ</a>"
Response.End
End If
aCustomer = rs.GetRows()
rs.Close
%>
<table width="900" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#A4CBFB">
<tr>
<td><form name="tstest" action="" method="get"><table width="900" border="0" align="center" cellspacing="1" cellpadding="0">
<tr class="tablehead">
<td colspan="4" align="center" bgcolor="#A4CBFB" class="tablelink"><div align="left" class="style2"><font face="Microsoft Sans Serif, MS Sans Serif, sans-serif" class="text_black_Bold">:::: NEW CONTRACT::::</font><br>
</div></td>
</tr>
<tr>
<td width="17%" class="tabledetail"><div align="right"> <span class="text_black"><strong class="text_black">Contact Number </strong>:</span> </div></td>
<td width="33%" class="tabledetail1"> <font face="MS Sans Serif, Microsoft Sans Serif" size="-1"><font face="MS Sans Serif, Microsoft Sans Serif" size="-1">
<input name="Contract_No" type="text" class="style3" id="Contract_No" value="<%=aCustomer(1,0)%>" size="40" maxlength="100">
</font></font></td>
<td valign="top" class="tabledetail1">
<div align="right" class="text_black"><strong><br>
Contact Sight Date:
</strong></div></td>
<td width="35%" valign="top" class="tabledetail1"><input type="Text" name="dateP" value="<%=aCustomer(3,0)%>" size="8" maxlength="10"readonly>
<a href="#" onClick="showCal('Calendar1')">[ปฎิทิน]</a><font face="MS Sans Serif, Microsoft Sans Serif" size="-1">
<br></td>
</tr>
<tr>
<td valign="top" class="tabledetail"><div align="right" class="text_black">
<strong> Contact Name: </strong>
</div></td>
<td class="tabledetail1"><font face="MS Sans Serif, Microsoft Sans Serif" size="-1">
<select name="Contract_Name">
<option value="">---เลือก Contract_Name---
<%
Dim rs2, sql2, Conn2
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open "PROVIDER=SQLOLEDB; DATA SOURCE=192.168.1.1;INITIAL CATALOG=shipping_report; USER ID=sa; PASSWORD=sa"
sql2 = "select * from CUSTOMER order by CU_CODE"
Set rs2 = Conn2.Execute(sql2)
If Not rs2.EOF Then
Do While Not rs2.EOF
%>
<option value="<%=rs2(1)%>" <%=selected(rs2(1),aCustomer(4,0))%>><%=rs2(2)%>
<%
rs2.MoveNext
Loop
End If
rs2.Close
%>
</select>
<span class="table detail1">
<a href="#" class="style6" onClick="javascript:window.open('ADD_Custom_pop.asp','mdml','width=325,height=200,toolbar=0,menubar=0,scrollbars=0,resizable=0,top=50,left=50');">[เพิ่ม]</a> </span><br>
</font></td>
<td width="15%" valign="top" class="table detail1"><div align="right"><span class="text_black"><strong><br>
Commodity : </strong></span></div></td>
<td class="tabledetail1"><font face="MS Sans Serif, Microsoft Sans Serif" size="-1">
<textarea name="Contrac_commo" cols="45" rows="3" id="Contrac_commo"><%=aCustomer(5,0)%><%=aCustomer(6,0)%></textarea>
</font></td>
</tr>
<tr>
<td colspan="4" bgcolor="#A4CBFB" class="tabledetail"><div align="center"><span class="text_black_Bold style7">Contact Detail รายการ</span><br>
<table width="100%" border="1" cellpadding="5" cellspacing="0" bordercolor="#CBE1FB" bgcolor="#FFFFFF">
<tr>
<% 'ติดต่อฐานข้อมูลเพื่อดึงข้อมูล
Dim rs3, sql3, Conn3
Set Conn3 = Server.CreateObject("ADODB.Connection")
Conn3.Open "PROVIDER=SQLOLEDB; DATA SOURCE=192.1.68.1.1;INITIAL CATALOG=shipping_report; USER ID=sa; PASSWORD=sa"
Set rs3=Server.CreateObject("ADODB.Recordset")
sql3 = "SELECT contact_new_PRIC.ITEM, contact_new_PRIC.DETAIL, contact_new_PRIC.COST, contact_new_PRIC.CURRENCY, contact_new_PRIC.RATE, contact_new_PRIC.R_DATE "
sql3=sql3&"FROM contact_new INNER JOIN contact_new_PRIC ON contact_new.CO_CODE = contact_new_PRIC.CO_CODE "
sql3=sql3&"where contact_new.CO_CODE "& CO_CODE &""
rs2.Open sql, conn2, 1,3
If rs2.RecordCount >= 1 Then
While Not rs2.EOF
%>
<td width="5%" bgcolor="#DFDFDF" class="text_black"><strong> Item </strong></td>
<td width="61%" bgcolor="#DFDFDF" class="text_black"><strong>Contact Detail </strong></td>
<td width="11%" bgcolor="#DFDFDF" class="text_black"><div align="center"><strong>Currency</strong></div></td>
<td width="23%" bgcolor="#DFDFDF" class="text_black"><div align="center"><strong>Summary Price. </strong></div></td>
</tr>
<tr>
<td><%=rs3("ITEM")%></td>
<td><span class="tabledetail1">
<input name="Port_of_Loading2" type="text" id="Port_of_Loading2" value="<%=rs3("DETAIL")%>" size="75" maxlength="50">
</span></td>
<td><div align="center"><span class="tabledetail1">
<input name="Port_of_Loading6" type="text" id="Port_of_Loading6" value="<%=rs3("CURRENCY")%>" size="10" maxlength="50">
</span></div></td>
<td><div align="center"><span class="tabledetail1">
<input name="Port_of_Loading10" type="text" id="Port_of_Loading10" value="<%=FormatNumber(rs3("COST"),2)%>" size="20" maxlength="50">
</span></div> </tr>
<% rs3.MoveNext
Wend
rs3.Close
conn3.close
end if
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"><div align="right"><strong>Purchase Requistion No :</strong></div></td>
<td colspan="3" bgcolor="#FFFFFF"><span class="tabledetail1">
<input name="Port_of_Loading105" type="text" id="Port_of_Loading105" value="<%=aCustomer(7,0)%>" size="70">
</span></td>
</tr>
<tr>
<td width="23%" bgcolor="#FFFFFF"><div align="right"><strong>Reguest By :</strong></div></td>
<td colspan="3" bgcolor="#FFFFFF"><span class="tabledetail1">
<input name="Port_of_Loading106" type="text" id="Port_of_Loading106" value="<%=aCustomer(8,0)%>" size="70">
</span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right"><strong>Delivery time Schedule :</strong><br>
<br>
<br>
<br>
<br>
</div></td>
<td width="44%" bgcolor="#FFFFFF"><span class="tabledetail1">
<textarea name="Port_of_Loading107" cols="60" rows="5" id="Port_of_Loading107"><%=aCustomer(28,0)%></textarea>
</span></td>
<td width="17%" bgcolor="#FFFFFF"><div align="right"><strong>Term of Payment : </strong></div></td>
<td width="16%" bgcolor="#FFFFFF"><span class="tabledetail1">
<input name="Port_of_Loading108" type="text" id="Port_of_Loading108" value="<%=aCustomer(9,0)%>" size="20" maxlength="50">
</span></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="4" bgcolor="#A4CBFB" class="tabledetail"><div align="center"><span class="text_black_Bold style7">Acceptance Committee
</span>
</div>
<table width="100%" border="1" cellpadding="5" cellspacing="0" bordercolor="#A4CBFB" bgcolor="#FFFFFF">
<tr>
<td width="9%" bgcolor="#DFDFDF" class="text_black"><strong>Item </strong></td>
<td width="41%" bgcolor="#DFDFDF" class="text_black"><strong>Name </strong></td>
<td width="50%" bgcolor="#DFDFDF" class="text_black"><strong><strong>Division</strong><strong></strong></strong></td>
</tr>
<tr>
<td>1.</td>
<td colspan="2"><span class="tabledetail1">
<input name="Port_of_Loading11" type="text" id="Port_of_Loading11" value="<%=aCustomer(17,0)%>" size="60">
<input name="Port_of_Loading112" type="text" id="Port_of_Loading112" value="<%=aCustomer(22,0)%>" size="60">
</span></td>
</tr>
<tr>
<td>2.</td>
<td colspan="2"><span class="tabledetail1">
<input name="Port_of_Loading9" type="text" id="Port_of_Loading9" value="<%=aCustomer(18,0)%>" size="60">
<input name="Port_of_Loading113" type="text" id="Port_of_Loading113" value="<%=aCustomer(23,0)%>" size="60">
</span></td>
</tr>
<tr>
<td>3.</td>
<td colspan="2"><span class="tabledetail1">
<input name="Port_of_Loading8" type="text" id="Port_of_Loading8" value="<%=aCustomer(19,0)%>" size="60">
<input name="Port_of_Loading114" type="text" id="Port_of_Loading114" value="<%=aCustomer(24,0)%>" size="60">
</span></td>
</tr>
<tr>
<td>4.</td>
<td colspan="2"><span class="tabledetail1">
<input name="Port_of_Loading7" type="text" id="Port_of_Loading7" value="<%=aCustomer(20,0)%><%=aCustomer(21,0)%>" size="60">
<input name="Port_of_Loading115" type="text" id="Port_of_Loading115" value="<%=aCustomer(25,0)%><%=aCustomer(26,0)%>" size="60">
</span></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr>
<td width="22%" bgcolor="#FFFFFF"><div align="right"><strong>Custom Clearance By :</strong></div></td>
<td width="22%" bgcolor="#FFFFFF"><span class="tabledetail1">
<select name="ClearanceBy">
<option value="">---เลือก ClearanceBy---
<%
Dim rs7, sql7, Conn7
Set Conn7 = Server.CreateObject("ADODB.Connection")
Conn7.Open "PROVIDER=SQLOLEDB; DATA SOURCE=192.168.1.1;INITIAL CATALOG=shipping_report; USER ID=sa; PASSWORD=sa"
sql7 = "select * from ClearanceBy order by CU_NUM"
Set rs7 = Conn7.Execute(sql7)
If Not rs7.EOF Then
Do While Not rs7.EOF
%>
<option value="<%=rs7(1)%>" <%=selected(rs7(1),aCustomer(10,0))%>><%=rs7(2)%>
<%
rs7.MoveNext
Loop
End If
rs7.Close
%>
</select>
</span></td>
<td width="21%" bgcolor="#FFFFFF"><div align="right"><span class="tabledetail1"><strong> Transportation By : </strong></span></div></td>
<td width="35%" bgcolor="#FFFFFF"><font face="MS Sans Serif, Microsoft Sans Serif" size="-1">
<select name="TranBy">
<option value="">---เลือก TranBy---
<%
Dim rs5, sql5, Conn5
Set Conn5 = Server.CreateObject("ADODB.Connection")
Conn5.Open "PROVIDER=SQLOLEDB; DATA SOURCE=192.168.1.1;INITIAL CATALOG=shipping_report; USER ID=sa; PASSWORD=sa"
sql5 = "select * from TransportationBy order by CU_NUM"
Set rs5 = Conn5.Execute(sql5)
If Not rs5.EOF Then
Do While Not rs5.EOF
%>
<option value="<%=rs5(1)%>" <%=selected(rs5(1),aCustomer(11,0))%>><%=rs5(2)%>
<%
rs5.MoveNext
Loop
End If
rs5.Close
%>
</select>
</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">
<p><strong><br>
Guarantee Period :</strong></p>
<p><br>
<br>
</p>
</div></td>
<td colspan="3" bgcolor="#FFFFFF"><span class="tabledetail1"><font face="MS Sans Serif, Microsoft Sans Serif" size="-1">
<textarea name="textarea" cols="100" rows="3" id="textarea"><%=aCustomer(12,0)%><%=aCustomer(13,0)%></textarea>
</font></span></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="4" class="tabledetail"></td>
</tr>
<tr>
<td colspan="4"><div align="center"><span class="tablehead"><font face="MS Sans Serif, Microsoft Sans Serif" size="-1">
<input type="submit" name="action" value="Update" onClick="return confirm('Update ข้อมูล ' );" class="button">
<span class="tabledetail"><font face="MS Sans Serif, Microsoft Sans Serif" size="-1">
<input type="submit" name="action2" value="Cancel" onClick="return confirm('ยกเลิกการแก้ไข ');" class="button">
</font></span></font></span></div></td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
</table>
มันไม่ปรากฎ ตาราง หลาย ค่า ครับ งงมากมาย
แต่ รายะลเอียด ของตารางหลักออกมา
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
10 ก.ย. 2551 12:06:01 |
By :
monclubza |
View :
1686 |
Reply :
1 |
|
 |
 |
 |
 |
|
|
|
|
 |
