File Manager
Back to List
|
Up to Parent Directory
| Current Directory: ~/finance
Editing: finance/add_project.asp
Full path: C:\ict\ICT\finance\add_project.asp
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<!--#INCLUDE FILE="ConnectDB.asp"--> <!--#include file="chklogin.asp"--> <% sqlc="select * from project" set orsc=server.createobject("adodb.recordset") orsc.open sqlc,conn,1,3 if not orsc.eof then orsc.movelast idkey=orsc("id_project") else idkey=session("ypay") idkey=idkey&"0" end if idkey=idkey+1 response.write idkey ypay=session("ypay") id_budget_type=session("id_budget_type") username=session("username") n_project=request.form("n") b_project=request.form("b") id_project=idkey date_mo=now if b_project="" then b_project=0 end if 'response.write id_project 'response.write ypay&"-"&id_budget_type&"-"&username&"-"&id_dka&"-"&id_paysub_sub&"-"&id_paysub&"-"&id_paymain&"-"&dp&"-"&mp&"-"&yp&"-"&amountp sqldata="insert into project(id_project,username,n_project,b_project,y_project,date_mo) values('"&id_project&"','"&username&"','"&n_project&"',"&b_project&",'"&ypay&"','"&date_mo&"')" ' response.write sqldata set orsdata = Server.CreateObject("adodb.recordset") orsdata.open sqldata,conn,1,3 response.write "<meta http-equiv='refresh' content ='0;url=index_project.asp'>" %>