Editing: finance/del_budget.asp.bak

<!--#INCLUDE FILE="ConnectDB.asp"--> <!--#include file="chklogin.asp"--> <form name="form1" method="post"> <% idyear=request("idyear") id_budget_type=request("id_budget_type") 'budgetall = request("budgetall") username=session("username") set ors=server.createobject("adodb.recordset") sqlmark="Delete from yearbudget where idyear= '"&idyear&"' and id_budget_type='"&id_budget_type&"' " response.write sqlmark ors.Open sqlmark, conn, 1, 3 set orsd=server.createobject("adodb.recordset") sqld="select * from payment where id_pay= "&idyear&" and id_budget_type='"&id_budget_type&"'" 'response.write sqld orsd.Open sqld, conn, 1, 3 if not orsd.eof then orsd.movefirst response.write "aa" do while not orsd.eof sqldata="insert into payment_del(id_pay,username,ypay,id_budget_type,id_dka,id_paysub_sub,id_paysub,id_paymain,dp,mp,yp,amountp,id_project,date_mo) values("&orsd("id_pay")&",'"&orsd("username")&"','"&_ orsd("ypay")&"','"&orsd("id_budget_type")&"','"&_ orsd("id_dka")&"', '"&orsd("id_paysub_sub")&"','"&orsd("id_paysub")&"','"&orsd("id_paymain")&"','"&orsd("dp")&"','"&orsd("mp")&"','"&orsd("yp")&"',"&orsd("amountp")&",'"&orsd("id_project")&"','"&orsd("date_mo")&"')" ' response.write sqldata set orsdata = Server.CreateObject("adodb.recordset") orsdata.open sqldata,conn,1,3 orsd.movenext loop end if set ors1=server.createobject("adodb.recordset") sqlmark1="Delete from payment where ypay= '"&idyear&"' and id_budget_type='"&id_budget_type&"' " 'response.write sqlmark1 ors1.Open sqlmark1, conn, 1, 3 response.write"ź�������������º�������Ǩ��" response.write "<meta http-equiv='refresh' content ='2;url=index.asp'>" %> </FORM>