Editing: finance/add_pay_projectt.asp

<!--#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 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") amountp=request.form("amountp") date_mo=now response.write ypay&"-"&id_budget_type&"-"&username&"-"&id_dka&"-"&id_paysub_sub&"-"&id_paysub&"-"&id_paymain&"-"&dp&"-"&mp&"-"&yp&"-"&amountp 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) values("&idkey&",'"&username&"','"&_ ypay&"','"&id_budget_type&"','"&_ id_dka&"', '"&id_paysub_sub&"','"&id_paysub&"','"&id_paymain&"','"&dp&"','"&mp&"','"&yp&"',"&amountp&",'"&id_project&"','"&date_mo&"')" 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 %>