Editing: research/detail_result_mea.asp

<!--#INCLUDE FILE="Connectdb.asp"--> <% '����ʴ� ����ͧ����Ѵ�ҡ˹�� �á�ͧ��ä��ҧҹ�Ԩ�� dim ors id_mea=request.querystring("search_id") set ors=server.createobject("adodb.recordset") sqlmark="select * from measurement_ms where meas_ref="& id_mea &" " ors.open sqlmark,Conn,1,3 sql="select * from search_th_ms where search_id ="&id_mea&"" set ors_res=server.createobject("adodb.recordset") ors_res.open sql,conn,1,3 name_res = ors_res("search_title") %> <%response.write "<table width='75%'><tr><td colspan='2'>����ͧ����Ѵ�����㹧ҹ�Ԩ�� ����ͧ .<a href=detail_res.asp?search_id="&ors("meas_ref")&">"&ors_res("search_title")&"</td></tr></a>"%> <% response.write "<tr bgcolor=#660000><td><div align=center><strong><font color=#CCccCC>��������ͧ����Ѵ</td><td><div align=center><strong><font color=#CCccCC>��������ͧ����Ѵ</td></tr>" colorv=1 ors.movefirst do while not ors.eof valuecolor = colorv mod 2 if valuecolor = 0 then vcolor = "#cccccc" else vcolor = "#FFFFCC" end if response.write"<tr bgcolor ="& vcolor &"><td><a href = detail_mea.asp?meas_id="& ors("meas_id")&">"& ors("meas_id") &_ "</a></td><td><a href = detail_mea.asp?meas_id="& ors("meas_id")&">" & ors("meas_name") & _ "</a>" response.write "</td></tr>" ors.movenext colorv=colorv+1 loop ors.close set ors=nothing On Error Resume Next ors.Close Conn.Close response.write"</table><a href=research_page.asp>��Ѻ˹�Ҥ��ҧҹ�Ԩ��</a> " %> <a href="javascript:history.go(-1)">|| Back</a>