File Manager

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />

<title>�к���Ǩ�ͺ��¨��¡���Թ</title>

<style type="text/css">

</style>

</head>

</table></td>
    <td align="left" valign="top">
        <table width="600" border="0" bgcolor="#FFFFCC">
          <tr>
          <%
               ypay=session("ypay")
     id_budget_type=session("id_budget_type")
          %>
            <td bgcolor="#CCCCCC" colspan="2"><div align="center">����ʴ���¨��µ����Ǵ����������ҧ�ͧ<br />
            ��Шӻէ�����ҳ ...... <%=ypay%><br />
            ������....<%
	
		   
		  sqlbt="select * from type_budget where id_budget_type ="&id_budget_type&""
		  set orsbt=server.createobject("adodb.recordset")
		  orsbt.open sqlbt,conn,1,3
		  if not orsbt.eof then
		 response.write orsbt("n_budget_type")
		  end if
		  
	%>
	</div></td>
          </tr>
		  <tr>
<%
sql1="select * from report_group where id_budget_type ='"&id_budget_type&"' and ypay='"&ypay&"'"
		  set ors1=server.createobject("adodb.recordset")
		  ors1.open sql1,conn,1,3
		 
		  if not ors1.eof then
		  ors1.movefirst
						
						do while not ors1.eof
						
response.write "<tr><td colspan = 2 bgcolor=#99FF00 align=center>���͡����......"&ors1("rp_group_name")
								suma=0	
								sql2="select * from rp_group_sub where id_rp_group='"&ors1("id")&"' and id_budget_type ='"&id_budget_type&"' and ypay='"&ypay&"'"
								set ors2=server.createobject("adodb.recordset")
								ors2.open sql2,conn,1,3
										if not ors2.eof then
											
										
'���;���������¡�ä�������
ors2.movefirst

do while not ors2.eof
												a=0
													  sql3="select * from payment where  id_paysub_sub='"&ors2("id_paysub_sub")&"' and id_budget_type ='"&id_budget_type&"' and ypay='"&ypay&"'"
													  set ors3=server.createobject("adodb.recordset")
													  ors3.open sql3,conn,1,3
																if not ors3.eof then
																																					       
																						
																		ors3.movefirst
																		do while not ors3.eof
																			a=a+ors3("amountp")
																			'response.write "--"&ors3("amountp")
																			ors3.movenext
																		loop
																		sql4="select * from paysub_sub where id_paysub_sub="&ors2("id_paysub_sub")&" "
																						set ors4=server.createobject("adodb.recordset")
																						ors4.open sql4,conn,1,3
																						if not ors4.eof then
																								response.write "<tr><td>[<a href=detail_pay_group.asp?id_="&ors2("id_paysub_sub")&">"&ors4("n_paysub_sub")&"</a>]"

end if	
																		response.write "<td>"&a
																end if
												suma=suma+a
												ors2.movenext
												loop
											response.write "<tr><td colspan=2 bgcolor=#CCFF66>��� = "&suma
									
										end if

ors1.movenext
						loop

end if

</td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: finance/report_group.asp