File Manager

<body>

<table width="100%" border="0">
     <%
     ypay=request.Form("ypay")
	     id_budget_type=request.Form("id_budget_type")
		 
		 if ypay="" or id_budget_type="" then
	 ypay=session("ypay")
	 id_budget_type=session("id_budget_type")
	 end if
 
     session("ypay")=ypay
     session("id_budget_type")=id_budget_type
     %>
        <tr>
          <td colspan="2"><div align="center">
            <p>[<a href="index_project.asp">�ѹ�֡�������ç���</a>]</p>
            <p>�ѹ�֡��¨��¢ͧ�Թ������ҳ...<%=id_budget_type%>
                <%
		   
		 ' response.write id_budget_type
		  sqlbt="select * from type_budget where id_budget_type ="&id_budget_type&""
		  set orsbt=server.createobject("adodb.recordset")
		 ' response.write sqlbt
		 ' response.write id_budget_type
		  orsbt.open sqlbt,conn,1,3
		  if not orsbt.eof then
		 response.write orsbt("n_budget_type")
		 ' response.write id_budget_type
		  end if
		  %>
                <br />
              ��Шӻէ�����ҳ<%=ypay%></p>
          </div></td>
        </tr>
        <tr>
          <td colspan="2">
            <form id="form1" name="form1" method="post" action="detail_pay_mount.asp">
              <p align="center">�ʴ��������µ����Ǵ <%
	  id_paymain=request.form("id_paymain")
	  if id_paymain="" then
	  id_paymain=request("id")
	  end if
	  	   sqlpm="select * from paymain where id_paymain ="&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
		  
		  
	  
	  %></p>
              <table width="100%" border="0" bgcolor="#CCFFFF">
                <tr>
                  <td width="45%"><div align="right"></div></td>
                  <td width="42%">&nbsp;</td>
                </tr>
				
				 <%
				nummonthth=array("00","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�")
				  iii=lbound(nummonthth)
		
			
				  %>
 <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>
          <td bgcolor="#CCCCCC">�ӹǹ�Թ</td>
		  
          </div>
          <div align="center"></div></td>
		  <tr><td>[<a href=report_detailw.asp?id=<%=id_paymain%>&c=1>Excel</a>]
        </tr>				   
		<%
		amounta1=0
				do while iii<=ubound(nummonthth)
				'response.write nummonthth(iii)&""&id_budget_type&""&ypay

'--------------------
		sqlshow="select * from payment where id_budget_type='"&id_budget_type&"' and mp='"&nummonthth(iii)&"' and ypay='"&ypay&"' and id_paymain='"&id_paymain&"' order by id_pay "
		set orsshow=server.createobject("adodb.recordset")
		 orsshow.open sqlshow,conn,1,3
		' response.write "aaa"&amounta
		 if not orsshow.eof then
		amounta=0
		 %>
		 <tr bgcolor="#FFFF99"><td colspan="7"><%=nummonthth(iii)%>
		 <%
		 orsshow.movefirst
		 do while not orsshow.eof 
		 
		%>
        <tr>
          <td><%=orsshow("id_dka")%></td><td>
		  <%
		  a=orsshow("id_project")
		  if orsshow("id_project")<>"" then

response.write "[<a href=detail_pay_project.asp?id_project="&orsshow("id_project")&">"&orsshow("id_project")&"</a>]"
		  end if
		  %>
		  
		  </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 align="right"><%=formatnumber(orsshow("amountp"))%></td>
		  
<%		  
a=orsshow("amountp")
amounta=amounta+a
orsshow.movenext
loop%>
<tr>
          <td colspan="6" align="right">���=</td><td align="right"><%=formatnumber(amounta)%></td>
		  <%
		  amounta1=amounta1+amounta
		  
		  %>
        </tr>
<%end if %>

<%
        iii=iii+1
		loop
		%>
<tr>
          <td colspan="6" align="right">�����駻է�����ҳ=</td><td align="right"><%=amounta1%></td>
        </tr>
                <tr>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                </tr>
              </table>
            </form>            <p>&nbsp;</p></td>
        </tr>
      </table> 
	  </body>

File Manager

Editing: finance/report_detail_sub.asp.bak