<%if session("storesLoggedIn")<>"yes" then Response.Redirect "http://intramop.nic.in" end if %> Tatkal request Saving <% set con=server.createobject("ADODB.connection") scon=connectionstring set rs=server.CreateObject("ADODB.Recordset") dim tmpitemcode(100),tmpqty(100),i,j,maxrec maxrec=request.form("maxrec") maxrec=cint(maxrec) j=1 do while j<=maxrec fitem="" fitem="itemname"&j fqty="" fqty="qty"&j tmpitemcode(j)=right(Request.Form(fitem),3) tmpqty(j)=Request.Form(fqty) j=j+1 loop sec_code=session("section_cd") user_id=session("ecode") sql1="select isnull(max(request_id)+1,1) as requestid from issue" rs.Open sql1,scon requestid=rs("requestid") rs.close issue_pending="Y" con.Open scon j=1 do while j<=maxrec if tmpitemcode(j)<>"" then sql="insert into issue (request_id,sec_code,item_code,rquantity,user_id,issue_pending,bhawan,request_type ) values ('"&requestid&"','"&sec_code&"','"&tmpitemcode(j)&"',"&tmpqty(j)&",'"&user_id&"','"&issue_pending&"','"&session("bldg")&"','T')" con.Execute sql end if requestid=requestid+1 j=j+1 loop con.close %>
Tatkal Request has been forwareded to Stores Incharge
Back to Menu