Editing: stat17/statshowdetail.asp

[<a href="http://bsris.swu.ac.th/stat/stat.html">˹���á</a>] <!--#INCLUDE FILE="statConnectdb.asp"--> <% name=session("name") sname=session("sname") id_regis=session("id_regis") response.write id_regis if name="" and sname="" or id_regis = "" then name=request("name") sname=request("sname") id_regis=request("id_regis") end if set ors=server.createobject("adodb.recordset") sql="select * from statregis where id_regis="&id_regis&"" ors.open sql,conn,1,3 if not ors.eof then '�������� response.write "<table><tr><td width=16% bgcolor=#EDEDEB><strong>����/ʡ��</strong> <td bgcolor=#EDEDEB>"&ors("fname")&""&ors("name")&" "&ors("sname")&"</tr>" response.write "<tr bgcolor=#F9F9F7><td><strong>���˹� </strong><td>"&ors("position1")&"</tr>" response.write "<tr bgcolor=#EDEDEB><td><strong>ʶҹ���ӧҹ </strong><td>"&ors("addwork")&"</tr>" response.write "<tr bgcolor=#F9F9F7><td><strong>������� </strong><td>"&ors("address")&"</tr>" response.write "<tr bgcolor=#EDEDEB><td><strong>�������Ѿ�� </strong><td>"&ors("tel")&"</tr>" response.write "<tr bgcolor=#F9F9F7><td><strong>����� </strong><td> "&ors("fax")&"</tr>" response.write "<tr bgcolor=#EDEDEB><td><strong>E-mail </strong> <td>"&ors("email")&"</tr>" response.write "<tr bgcolor=#F9F9F7><td colspan=2><strong>�դ������ʧ�����Ѥ�����Ѻ���ͺ���ԧ��Ժѵԡ��</strong></tr>" set ors1=server.createobject("adodb.recordset") sql1="select * from regis where id_regis="&ors("id_regis")&" order by id_regis" ors1.open sql1,conn,1,3 ors1.movefirst price=0 if not ors1.eof then do while not ors1.eof set ors2=server.createobject("adodb.recordset") sql2="select * from type_stat where id_type="&ors1("stat")&"" ors2.open sql2,conn,1,3 if not ors2.eof then response.write "<tr bgcolor=#EDEDEB><td><td >"&ors2("type_name")&"- "&ors2("pricee")&"</tr>" end if pr=ors2("pricee") price=price+pr ors1.movenext loop response.write "<tr><td colspan=2><strong>��������㹡��ͺ�� "&price&" �ҷ</strong></tr>" response.write "<tr><td colspan=2><strong>�����Ţ����¹ö "&id_car&" </strong></tr>" response.write "<tr bgcolor=#F9F9F7><td ><strong>�Ըա����Ѥ�</strong></tr>" set ors2=server.createobject("adodb.recordset") sql2="select * from pay where id_pay='"&ors("pay")&"' " ors2.open sql2,conn,1,3 response.write "<tr bgcolor=#EDEDEB><td><td >"&ors2("pay")&" "&ors2("pay_detail")&"</tr>" response.write "<tr bgcolor=#F9F9F7><td><strong>�ҡ��ͤ���</strong><td>"&ors("mess")&"</tr>" response.write "</table>" response.write "<br><div align=right>�����Ѥ�ŧ��� ..............................................................................." response.write "<br><br>(..........................................................................)" end if end if %>