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">
      <p align="center"><strong>��¡�ä������� ������ 
        <%
	ypay=session("ypay")
	mp=request.form("mp")
	if mp="" then
	mp=session("mp")
	else
	session("mp")=mp
	end if
	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")
'response.write sqlbt1
		 orsid.open sqlb1,conn,1,3
		  if not orsid.eof then
		 response.write orsid("n_budget_type")
		
		  end if
	
	
	%>
        <br />
    ��Ш���͹
	<%
	response.write mp
	%>
	
	<br />
    �ͧ�է�����ҳ[<a href=index_pay_budget.asp><%=ypay%></a>]</strong><br /></p>
      <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">�ӹǹ�Թ</td>
          <td bgcolor="#CCCCCC"><div align="center">Action
          </div>
          <div align="center"></div></td>
        </tr>
		<%
		sqlshow="select * from payment where id_budget_type='"&id_budget_type&"' and mp='"&mp&"' and ypay='"&ypay&"' order by id_pay "
		'response.write sqlshow
		set orsshow=server.createobject("adodb.recordset")
'response.write sqlbt1
		 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")
    '	  response.write orsc("id_paysub_sub")

sqlpss="select * from paysub_sub where id_paysub_sub ="&orsshow("id_paysub_sub")&""
		  set orspss=server.createobject("adodb.recordset")
		 ' response.write sqlbt
		 ' response.write id_budget_type
		  orspss.open sqlpss,conn,1,3
		  if not orspss.eof then
		  response.write orspss("n_paysub_sub")
		 ' response.write id_budget_type
		  end if
		  
		  
		  %></td>
          <td><%=orsshow("id_paysub")%>
		  <%
		  sqlps="select * from paysub where id_paysub="&orsshow("id_paysub")&""
		  set orsps=server.createobject("adodb.recordset")
		 ' response.write sqlbt
		 ' response.write id_budget_type
		  orsps.open sqlps,conn,1,3
		  if not orsps.eof then
		  response.write orsps("n_paysub")
		 ' response.write id_budget_type
		  end if
		  %></td>
          <td><%=orsshow("id_paymain")%>
		  
		  <%
		   sqlpm="select * from paymain where id_paymain ="&orsshow("id_paymain")&""
		  set orspm=server.createobject("adodb.recordset")
		 ' response.write sqlbt
		 ' response.write id_budget_type
		  orspm.open sqlpm,conn,1,3
		  if not orspm.eof then
		  response.write orspm("n_paymain")
		 ' response.write id_budget_type
		  end if
		  
		  %></td>
          <td><%=orsshow("dp")%>/<%=orsshow("mp")%>/<%=orsshow("yp")%></td>
          <td align=right><%=formatnumber(orsshow("amountp"))%></td>
          <td>[<a href=edit_payment.asp?idkey=<%=orsshow("id_pay")%>>Edit</a>][<a href=del_payment.asp?id=<%=orsshow("id_pay")%> onclick="return confirm('�س��ͧ���ź?');">Del</a>]
<%		  
a=orsshow("amountp")
amounta=amounta+a
orsshow.movenext
loop
end if
%>
        
        <tr>
          <td colspan="5" align="right">���=</td><td><%=formatnumber(amounta)%></td>
        </tr>
        <tr>
          <td colspan="7"><br /></td>
        </tr>
      </table>
      <p>&nbsp;</p>
      <p>&nbsp;</p>
      <p>&nbsp;                        </p>
    </td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: finance/detail_pay_mount.asp.bak