<% if Request("Lev")="BP" then %> <% else %> <% end if %> <% if Request("Lev")="GP" then %> <% else %> <% end if %>

BLOCK PANCHAYAT LEVEL

BLOCK PANCHAYAT LEVEL

GRAM PANCHAYAT LEVEL

GRAM PANCHAYAT LEVEL

<% if Request("Lev")="" then %>

[ WELCOME ] [ CHOOSE ANY ONE OPTION FROM ABOVE ]

<% end if %> <% If REquest("lev") <> "" then %>

ANALYTICAL REPORTS
<% Yr=mid(fin1,3,2) & mid(fin1,8,2) if cint(Yr)>809 then YrMax="0809" elseif cint(Yr)=506 then YrMax="0607" else YrMax=Yr end if response.Flush() %> <% if Request("Lev")="GP" then %> <% End if%> State*: <% Set objRS = Server.CreateObject("ADODB.Recordset") strSQL= "select A.State_Code, A.short_name, isnull(A.st_local_name,A.state_name) as state_name from STATES A inner join INSTALL B on A.State_Code = B.State_Code" objRS.Open strSQL,objCon,1,1 do while not objRs.eof state_name=objrs("State_Name") short_name=Trim(objrs("Short_Name")) state_code=objrs("state_code") %> "><%=objrs("State_Name")%> <% objRs.MoveNext loop %> Fin Year* : Fin Year <% if request("finyear")="" or request("finyear")="00" then if month(date)>3 then fin1=year(date)&"-"&year(date)+1 else fin1=year(date)-1&"-"&year(date) end if else fin1=request("finyear") end if strSQL = "select Financial_Year from fin_year order by Financial_Year" set objRS = objCon.Execute(strSQL) while not objRs.eof %> <% if fin1=objrs("Financial_Year") then%> "><%=objrs("Financial_Year")%> <% else%> "><%=objrs("Financial_Year")%> <%end if%> <% objRs.MoveNext wend ObjRS.close set ObjRS=Nothing %> District*: <% Set objRS = Server.CreateObject("ADODB.Recordset") strSQL= "select A.District_Code, isnull(A.dt_Name_local,A.district_name) as district_name from DISTRICTS " strSQL=strSQL&" A inner join INSTALL B on A.District_Code = B.District_Code where" strSQL=strSQL&" (case when case when month(isnull(N_date_formed,'01/01/1900'))>3 then cast(cast(year(isnull(N_date_formed,'01/01/1900')) as varchar) +cast((year(isnull(N_date_formed,'01/01/1900'))+1) as varchar) as int) else cast(cast((year(isnull(N_date_formed,'01/01/1900'))-1) as varchar)+cast(year(isnull(N_date_formed,'01/01/1900')) as varchar) as int) end > "&replace(trim(fin1),"-","")&" then " strSQL=strSQL&" A.State_code else isnull(A.N_State_code,A.State_code) end ='" &trim(State_Code) & "') and nrega"&YrMax&"='Y' order by District_Name" objRS.Open strSQL,objCon,1,1 if not objRS.eof then %> <% do while not objRs.eof district_name=objrs("district_Name") District_Code=objrs("District_Code") %> "> <%=objrs("District_Name")%> <% objRs.MoveNext loop %> <%else%> <% response.Write("District is not available under NREGA scheme in the selected financial year") response.End() end if %> Block*: Select Block <% Set objRS = Server.CreateObject("ADODB.Recordset") strSQL= "select A.Block_Code, isnull(A.blk_name_local,A.Block_Name) as Block_Name,A.bpl_data_loaded from BLOCKS A inner join INSTALL B on " If Install_Level="D" Then strSQL=strSQL&" A.District_Code = B.District_Code " else strSQL=strSQL&" A.Block_Code = B.Block_Code " end if strSQL=strSQL&" where (case when case when month(isnull(N_date_formed,'01/01/1900'))>3 then cast(cast(year(isnull(N_date_formed,'01/01/1900')) as varchar) +cast((year(isnull(N_date_formed,'01/01/1900'))+1) as varchar) as int) else cast(cast((year(isnull(N_date_formed,'01/01/1900'))-1) as varchar)+cast(year(isnull(N_date_formed,'01/01/1900')) as varchar) as int) end >= "&replace(fin1,"-","")&" then " strSQL=strSQL&" A.district_code else isnull(A.N_district_code,A.district_code) end ='" &trim(District_Code) & "') " strSQL=strSQL&" and case when month(isnull(N_date_formed,'01/01/1900'))>3 then " strSQL=strSQL&" cast(cast(year(isnull(N_date_formed,'01/01/1900')) as varchar) +cast((year(isnull(N_date_formed,'01/01/1900'))+1) as varchar) as int) else " strSQL=strSQL&" cast(cast((year(isnull(N_date_formed,'01/01/1900'))-1) as varchar)+cast(year(isnull(N_date_formed,'01/01/1900')) as varchar) as int) end <= "&replace(fin1,"-","") &" order by Block_Name" objRS.Open strSQL,objCon,1,1 do while not objRs.eof if trim(Request("Block_Code"))=trim(objrs("Block_Code")) then%> "><%=objrs("Block_Name")%> <% Block_Code=objrs("Block_Code") block_name=objrs("block_Name") if Isnull(objrs("bpl_data_loaded")) or trim(objrs("bpl_data_loaded"))="" or trim(objrs("bpl_data_loaded"))="N" then bpl_data_loaded="N" else bpl_data_loaded="Y" end if else%> "><%=objrs("Block_Name")%> <%end if%> <% objRs.MoveNext Loop %> Panchayat* Select Panchayat <% Set objRS = Server.CreateObject("ADODB.Recordset") call display_Panchayats_yr(objRS,Block_Code,fin1) do while not objRs.eof%> <% if trim(Request("Panchayat_Code"))=trim(objrs("Panchayat_Code")) then%> "><%=objrs("Panchayat_Name")%> <% panchayat_name=objrs("panchayat_name") else%> "><%=objrs("Panchayat_Name")%> <%end if%> <% objRs.MoveNext loop %>

<% end if %>

Designed & Developed By NIC-DRD Informatics Centre, Krishi Bhawan, New Delhi

Feedbackmadhuri@nic.in;selvesh@nic.in