Editing: finance/add_payment.asp.bak

<!--#INCLUDE FILE="ConnectDB.asp"--> <!--#include file="chklogin.asp"--> <% sqlc="select * from payment" set orsc=server.createobject("adodb.recordset") orsc.open sqlc,conn,1,3 if not orsc.eof then orsc.movelast idkey=orsc("id_pay") idkey=idkey+1 else idkey="1" end if ypay=session("ypay") id_budget_type=session("id_budget_type") username=session("username") id_project=request.form("id_project") id_dka=request.form("id_dka") id_paysub_sub=request.form("id_paysub_sub") id_paysub=request.form("id_paysub") id_paymain=request.form("id_paymain") dp=request.form("dp") mp=request.form("mp") yp=request.form("yp") plan_budget=request.form("plan_budget") amountp=request.form("amountp") outcome=request.form("outcome") date_mo=now if amountp="" then amountp=0 end if response.write ypay&"-"&id_budget_type&"-"&username&"-"&id_dka&"-"&id_paysub_sub&"-"&id_paysub&"-"&id_paymain&"-"&dp&"-"&mp&"-"&yp&"-"&amountp&"-"&id_project sqldata="insert into payment(id_pay,username,ypay,id_budget_type,id_dka,id_paysub_sub,id_paysub,id_paymain,dp,mp,yp,amountp,id_project,date_mo,plan_budget,outcome) values("&idkey&",'"&username&"','"&_ ypay&"','"&id_budget_type&"','"&_ id_dka&"', '"&id_paysub_sub&"','"&id_paysub&"','"&id_paymain&"','"&dp&"','"&mp&"','"&yp&"',"&amountp&",'"&id_project&"','"&date_mo&"','"&plan_budget&"','"&outcome&"')" response.write sqldata set orsdata = Server.CreateObject("adodb.recordset") orsdata.open sqldata,conn,1,3 response.write idkey session("idkey")=idkey 'response.write sqldata if id_project="" then response.write "<meta http-equiv='refresh' content ='0;url=detail_payment.asp'>" else response.write "<meta http-equiv='refresh' content ='0;url=detail_pay_project.asp?id_project="&id_project&"'>" end if %>