Editing: research/addtotemp.asp

<!--#INCLUDE FILE="cksession.asp"--> <!--#INCLUDE FILE="Connectdb.asp"--> <form name="frm1" id="frm1" Action = "addtotemp.asp?meas_id_select=<%=mea_id_m%>" method="post"> <table border="0" width="75%" cellspacing="0" cellpadding="0" width="75%" bgcolor="#FF99FF" align="center"> <tr><td ><div align="center"><strong>���͡��������ͧ����Ѵ</strong> <% '================================================================================ 'set ors=server.createobject("adodb.recordset") ' sqlmark="select * from temp_id" ' ors.open sqlmark,Conn,1,3 ' ors.movelast 'if id_res_new="" then ' id_res_new=ors("search_id")+1 '=============================================================================== dim ors meas_id_select=request("mea_id_m") search_id=session("searchid") response.write "meas_id"&search_id sql_selm="select * from measurement_ms order by meas_id" set ors_selm=server.createobject("adodb.recordset") ors_selm.open sql_selm,conn,1,3 ors_selm.movefirst 'response.write "res_id_select"& res_id_select&"...." response.write "<select name='mea_id_m' onChange='javascript:window.document.frm1.submit();'>" do while not ors_selm.eof meas_id=ors_selm("meas_id") %> <option value =<%=ors_selm("meas_id") %>> <%=ors_selm("meas_id")%></option> <% ors_selm.movenext loop ors_selm.close %> </select></div> <% 'meas_id_select=request("meas_id_select") if meas_id_select="" then response.write "����բ�����" 'mea_id_select=request("id") else 'res_id_select=request("res_id_select") 'end if sql_select="select * from measurement_ms where meas_id = " & meas_id_select & " " set ors_select=server.createobject("ADODB.RECORDSET") ors_select.open sql_select,conn,1,3 response.write "<tr><td> ��������ͧ����Ѵ���س���͡ == <a href=add_temp.asp?res_id_select="&ors_select("meas_id")&"&search_id="&search_id&">"& ors_select("meas_id")&"</a>" response.write "<tr><td> ��������ͧ =="& ors_select("meas_name") meas_ref=ors_select("meas_ref") if meas_ref=0 then response.write "<font color='#990000'><em><strong> ����ͧ����Ѵ��� �ѧ���١��" else response.write "<font color='#990000'><em><strong> ����ͧ����Ѵ��� �١������� ����������ж١᷹���ѹ�շ��س���͡" end if end if response.write "</td></tr></table>" response.write "</form>" 'On Error Resume Next 'ors_select.Close dim ors_1 '---------------------------------------------------------------------------------------------------------------------------------- %> <table width="75%" border="0" cellpadding="0" cellspacing="0" align ="center"> <tr bgcolor="#660000"> <td><div align="center"><strong><font color="#CCFFCC">��������ͧ����Ѵ</font></strong></div></td> <td><div align="center"><strong><font color="#CCFFCC">��������ͧ����Ѵ</font></strong></div></td> <td><div align="center"><strong><font color="#CCFFCC">ź</font></strong></div></td></tr> <% sqlselectall="select * from temp where search_id = "&search_id&" order by meas_id " set orsselectall=server.createobject("adodb.recordset") orsselectall.open sqlselectall,conn,1,3 if not orsselectall.eof then 'response.write sqlselectall colorv=1 orsselectall.movefirst 'on error resume next do while not orsselectall.eof valuecolor = colorv mod 2 if valuecolor = 0 then vcolor = "#ffffff" else vcolor = "#FFFFCC" end if response.write"<tr bgcolor ="& vcolor &"><td width='16%'><div align='center'>"&orsselectall("meas_id")&"</td>" 'response.write"<td>"&orsselectall("meas_id")&"</td></tr>" measids=orsselectall("meas_id") 'response.write measids sql_1= " select * from measurement_ms where meas_id= " & measids & " " ' response.write sql_1 set ors_1=server.createobject("adodb.recordset") ors_1.open sql_1,conn,1,3 'name=ors_1("meas_name") ' response.write name ' response.write sql_1 response.write "<td>"&ors_1("meas_name")&"</td>" response.write "<td><div align='center'><a href='del_temp.asp?meas_id="&measids&"'><img src='picture/i.p.delete.gif' width='11' height='12' border='0'></a><t/d></tr>" orsselectall.movenext colorv=colorv+1 loop end if 'response.write "" 'orsselectall.close 'ors_select.close 'conn.close %> </table> <br><br><br> <div align="center"><a href="add_res.asp?id_res_new=<%=search_id%>">��Ѻ˹�����������ŧҹ�Ԩ��</a>