File Manager

<body>

<table width="100%" border="0">
     
<p align="center"><div align="center"><strong>��¡�ä������� ������ </strong>
        <%
	ypay=session("ypay")
	id_project=request.form("id_project")
	id_budget_type=session("id_budget_type")
response.write id_budget_type
	sqlb1="select * from type_budget where id_budget_type ="&id_budget_type&""
		  set orsid=server.createobject("adodb.recordset")
		 orsid.open sqlb1,conn,1,3
		  if not orsid.eof then
		 response.write orsid("n_budget_type")
		
		  end if
	
	
	%>
        <br />
   <strong> �ͧ�ç���</strong>
	<%
	sqlps="select * from project where id_project='"&id_project&"'"
				set orsps=server.createobject("adodb.recordset")
				orsps.open sqlps,conn,1,3
				if not orsps.eof then

response.write orsps("n_project")

end if
	
	%>
	
	<br />
   <strong> �ͧ�է�����ҳ</strong>[<a href=index_project.asp><%=ypay%></a>]<br /></p></div>
	
	
      <table width="100%" border="0" bgcolor="#FFFFCC">
        <tr>
          <td bgcolor="#CCCCCC"><div align="center">�Ţ���ա�</div></td>
          <td bgcolor="#CCCCCC"><div align="center">��������</div></td>
          <td bgcolor="#CCCCCC"><div align="center">��Ǵ��¨���</div></td>
          <td bgcolor="#CCCCCC"><div align="center">��</div></td>
          <td bgcolor="#CCCCCC"><div align="center">�ѹ/��͹/��</div></td>
          <td bgcolor="#CCCCCC"><div align="center">�ӹǹ�Թ</div></td>
          
          </div>
          <div align="center"></div></td>
        </tr>
		<%
		sqlshow="select * from payment where id_budget_type='"&id_budget_type&"' and ypay='"&ypay&"' and id_project='"&id_project&"'"
		set orsshow=server.createobject("adodb.recordset")
		 orsshow.open sqlshow,conn,1,3
		 if not orsshow.eof then
		 amounta=0
		 orsshow.movefirst
		 do while not orsshow.eof
		%>
        <tr>
          <td><%=orsshow("id_dka")%></td>
          <td><%
		  
		  response.write orsshow("id_paysub_sub")

sqlpss="select * from paysub_sub where id_paysub_sub ="&orsshow("id_paysub_sub")&""
		  set orspss=server.createobject("adodb.recordset")
		  orspss.open sqlpss,conn,1,3
		  if not orspss.eof then
		  response.write orspss("n_paysub_sub")
		  end if
		  
		  
		  %></td>
          <td><%=orsshow("id_paysub")%>
		  <%
		  sqlps="select * from paysub where id_paysub="&orsshow("id_paysub")&""
		  set orsps=server.createobject("adodb.recordset")
		  orsps.open sqlps,conn,1,3
		  if not orsps.eof then
		  response.write orsps("n_paysub")
		  end if
		  %></td>
          <td><%=orsshow("id_paymain")%>
		  
		  <%
		   sqlpm="select * from paymain where id_paymain ="&orsshow("id_paymain")&""
		  set orspm=server.createobject("adodb.recordset")
		  orspm.open sqlpm,conn,1,3
		  if not orspm.eof then
		  response.write orspm("n_paymain")
		  end if
		  
		  %></td>
          <td><%=orsshow("dp")%> <%=orsshow("mp")%> <%=orsshow("yp")%></td>
          <td><%=orsshow("amountp")%></td>
          
        </tr>
<%		  
a=orsshow("amountp")
amounta=amounta+a
orsshow.movenext
loop
end if
%>
        
        <tr>
          <td colspan="5" align="right">���=</td><td><%=amounta%></td>
        </tr>
                <tr>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                </tr>
              </table>
        </tr>
      </table> 
       
       
       <p>&nbsp;</p>
       <p>&nbsp;</p>
	  </body>

File Manager

Editing: finance/report_detail_project.asp.bak