<% ' To check the existence of Master Tables in NREGA database ! Dim tblMaster(31) tblMaster(1)="States" tblMaster(2)="Districts" tblMaster(3)="Blocks" tblMaster(4)="Panchayats" tblMaster(5)=" s" tblMaster(6)="Exe_Agency" tblMaster(7)="Lang_Labels" tblMaster(8)="Work_Category" tblMaster(9)="Work_Present_Status" tblMaster(10)="Work_Proposed_Status" tblMaster(11)="Work_Status" tblMaster(12)="Work_Type" tblMaster(13)="Fin_Year" tblMaster(14)="Month_Master" tblMaster(15)="Material_Master" tblMaster(16)="Banks" tblMaster(17)="Bank_Master" tblMaster(18)="Branch_Master" tblMaster(19)="Education_Master" tblMaster(20)="JobAssigned_Master" tblMaster(21)="Block_Master" tblMaster(22)="Panchayat_Master" tblMaster(23)="Panchayat_Account" tblMaster(24)="Exp_Master" tblMaster(25)="Wrk_Act_Master" tblMaster(26)="MPRwork_cat" tblMaster(27)="RelationsBPL" tblMaster(28)="complain_sub_cat" tblMaster(29)="complaint_category" tblMaster(30)="Scheme_dptt_master" i=1 No_of_Missing_Tables = 0 while i <= 30 strSQL="Select Count(Name) As Num from SysObjects where name='" & tblMaster(i) & "' and xtype='U'" Set objRs = Server.CreateObject("ADODB.Recordset") objRs.Open strSQL,objcon,1,1 if objRs("Num") = 0 then No_of_Missing_Tables = No_of_Missing_Tables + 1 if No_of_Missing_Tables=1 then Response.write "" end if Response.write "" end if i=i+1 wend if No_of_Missing_Tables > 0 then Response.write "" Response.write "" Response.write "" Response.End end if Install_reqd="N" StrSql="Select Count(Name) As Num from SysObjects where name='Install' and xtype='U'" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL,Objcon,1,1 if ObjRS("Num") = 0 then Install_reqd="Y" else set objRS = Server.CreateObject("ADODB.Recordset") strSQL="SELECT COLUMN_NAME from INFORMATION_SCHEMA.COLUMNS where TABLE_NAME='Install' and column_name = 'Version'" objRS.open strSQL,objCon if objRS.eof then Install_reqd="Y" else StrSql="Select Isnull(Install_Flag,'N') as Install_Flag, Isnull(version,'') as version,convert(varchar(10),installed_on,101) installed_on from Install" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL,Objcon,1,1 if objRs.eof then Install_reqd="Y" elseif trim(UCASE(objRs("Install_Flag")))<>"Y" or trim(objRs("version")) <> "5.0" then Install_reqd="Y" end if end if end if objRs.close set objRs=nothing objCon.close set objCon=nothing if Install_reqd="Y" then Today=Day(Date) & "/" & Month(Date) & "/" & Year(Date) %> <%else %> <% end if %>
Error !
The Master Table '" & trim(tblMaster(i)) & "' NOT FOUND in the NREGA Database !
Kindly import the above missing Master Table(s) from the mdb downloaded from the site 'nrega.nic.in' !

Installation/Updation Process of Version-5 has been TERMINATED !
List of Approved Schemes for Financial year-2012-13

Block

PANCHAYAT VILLAGES

Lakhisarai

Amahara  
Balgudar  
Bilauri  
Damdarpur  
Garhibisanpur  
Kachiyana  
Khagur  
Mahisona  
Morma  
Savikpur  
     

SURAJGARHA

 

   
   
   
   
   
     

RAMGARH

 

NONGARH NONGARH
SATSANDA
SAWANKHAIRAMA
 SURARI IMAMNARGR BACHHIYABIGHA
BAKIYA
   BARHARA
  BARTARA
SURARI
AURE  
 
 
BHAWARIYA BHAWARIYA
MAHSOURA
NADIYAMA
FHULAIYA
BILLO BILLO
DURDIHA
KOLI
PARSAWA
NANDANAMA  
 
 
 
SHARMA BARATARA
NARAYANPUR
RAMGARH
SHARMA
SONDHI
TETRAHAT GULUNI
TETRAHAT
     

PIPARIA

 

WALIPUR  
MOHANPUR HASANPUR
MOHANPUR
MURBARIYA
PIPARIA DIYARA PIPARIYA
KANAHPUR
KARARI PIPARIA
PATHUA
PIPARIA
RAMCHANDRAPUR RAMACHANDRAPUR
RAMNAGAR
SAIDPURA  
 
 
 
 
 
 
     

CHANAN

JANKIDIH  
LAKHOCHAK  
BHALUE  
KHUTPAR  
KUNDAR  
MALIA  
Sangrampur  
Mahesleta  
Iton  
Gohari  
     

BARAHIYA

Ajinighat  
Dumuri  
Gangasarai  
Giridharpur Giridharpur
Manoharpur
nijay Jakhur
Jaitpur  
KHUTA WEST  
LAXMIPUR Laxmipur
Dariyapur
Paharpur
     

HALSI

SADMAF