<% '// if trim(Session("data")) = "" then response.redirect "adminlogin.asp" '// if trim(Session("UserName"))="" then response.redirect "adminlogin.asp" 'sVillage = request.querystring("village") 'sMandal = request.querystring("mandal") 'sDistrict = request.querystring("district") 'sState = request.querystring("state") sVillage = request("village") 'sMandal = request("mandal") sDistrict = request("district") sState = request("state") ' response.write(sVillage) Dim string string="SELECT VILLAGE, MANDAL, DISTRICT, STATE FROM HISTORYALL WHERE " if(Len(sVillage)>0) then string=string& " VILLAGE LIKE '"&sVillage&"%' " end if 'if(Len(sMandal)>0) then ' string=string& " AND MANDAL LIKE '"&sMandal&"%' " 'end if if(Len(sDistrict)>0) then if(Len(sVillage)>0) then string=string& " AND " end if string=string& " DISTRICT LIKE '"&sDistrict&"%' " end if if(Len(sState)>0) then if(Len(sVillage)>0) then string=string& " AND STATE LIKE '"&sState&"%'" elseif(Len(sDistrict)>0) then string=string& " AND STATE LIKE '"&sState&"%'" else string=string& " STATE LIKE '"&sState&"%' " end if end if if(Len(sVillage)<1) then if(Len(sMandal)<1) then if(Len(sDistrict)<1) then if(Len(sState)<1) then string="SELECT VILLAGE, MANDAL, DISTRICT, STATE FROM HISTORYALL " end if end if end if end if ' response.write(string) %> <% Function GetPreviousStart(nStart) Dim nPrevStart if cint(nStart) > NUMBERTOSHOW then nPrevStart=nStart - NUMBERTOSHOW else nPrevStart=1 end if GetPreviousStart = nPrevStart End Function Function GetNextStart(nStart) GetNextStart = nStart + NUMBERTOSHOW End Function Function MoveToPosition(rsResults,nStart) Dim Successful Dim i Successful=False if not rsResults.eof and not rsResults.bof then if nStart >= 1 then for i = 1 to nStart - 1 if not rsResults.eof then rsResults.movenext else ShowLastSet exit for end if next Successful = True end if end if MoveToPosition = Successful End Function Sub ShowLastSet() Dim i for i = 1 to NUMBERTOSHOW-1 if not rsResults.bof then rsResults.moveprevious else exit for end if next End Sub '**************************************************************** 'Set up the database here using "rsResults" as the recordset '**************************************************************** Set DataCmd = Server.CreateObject("ADODB.Command") DataCmd.ActiveConnection = Session("data") DataCmd.CommandType = adCmdText DataCmd.CommandText = string Set rsResults = Server.CreateObject("ADODB.Recordset") rsResults.Open DataCmd NUMBERTOSHOW = 10 'comment this line out if the user is allowed to choose the number shown if not isnumeric(NUMBERTOSHOW) then response.write"You must set the number to show to be greater than 0. Try again." response.end end if if NUMBERTOSHOW<=0 then response.write"You must set the number to show to be greater than 0. Try again." response.end end if if request.form("PREVIOUS").count>0 then if not isempty(session("PREVSTART")) then gnStart = session("PREVSTART") else 'session variable timed out gnStart = 1 end if elseif request.form("NEXT").count>0 then if not isempty(session("NEXTSTART")) then gnStart = session("NEXTSTART") else 'session variable timed out gnStart = 1 end if else gnStart = 1 end if if MoveToPosition(rsResults,gnStart) then %> KNOW YOUR VILLAGE
Logo SARASWATI ACADEMY FOUNDATION

   HOME   ABOUT US    JOIN US    CONTACT US   GUEST BOOK
  Donate | History | Concept | Resources | Projects | know your village | Login |                                                               
Click here for

 Data entry

KNOW YOUR VILLAGE
           
SEARCH BY VILLAGE NUMBER
 
           
MATRUBHOOMI
           

   

KNOW YOUR VILLAGE

               

know your village

The seat of your ancestors

The source of your inspiration

The pride of your family

The memories you always cherish


INTRODUCTION

    Saraswati Academy Foundation has undertaken a laborious task of bringing each and every village in BHARAT (India) to your home at the click of a mouse . The Academy plans host on its official website detailed information about all villages in the next 3 yrs. The purpose of this project is to update all Bharatiyan's around the world the recent developments in their native villages and help them connect with people of their birthplace. The website will host one full webpage for each and every village in Bharat (India).

    The web pages provide information about the history of the village, demographics, schools, community centers, hospitals and temples. Pictures of important landmarks and structures in the village are also posted on each page.  The academy updates the webpage every month to keep up with the current events in each village. Since gathering information for this project is a tedious process the organization seeks help of volunteers across the state.

    The Academy's goal of connecting all villages across the state will be accomplished by this magnificent project. This project not only updates the people around the world about the current events in each village but also opens a window of opportunity to the less privileged people residing in these remote areas. By interacting with people from all walks of life across the globe a sense of hope is sowed in the young minds and a source of inspiration is generated.


CONTENTS OF KNOW YOUR VILLAGE WEBPAGES

 History of the village

Demographics of the village

People and their occupation

Schools in the village

Important landmarks

Current events

Ongoing projects

Temples of the village

Pictures of the village

Sponsors and volunteers


Districts

       Adilabad                Hyderabad     

        Medak         

      Srikakulam    
      Anantapur           Karimnagar        Nalagonda    Vijayanagaram
       Chittoor         Khammam          Nellore    Vishakapatnam
      Cuddapah           Krishna        Nizamabad        Warangal
    East Godavari           kurnool         Prakasam    West Godavari
        Guntur      Mahabubnagar        Rangareddy  

 

 

 
 PICTURE
 
   PICTURE
 
 PICTURE
 
 
 SCHOOL
 
 
 DONOR
 
 
TVAM JYOTSHAA VITAMO VAVARTHA!

(604, Samaveda)

THE LIGHT OF KNOWLEDGE LIBERATES US FROM THE DARKNESS OF IGNORANCE