<%
//CheckSession()
set con=Server.CreateObject("ADODB.Connection")
con.Open DB_CON
set rsVillage=Server.CreateObject("ADODB.RecordSet")
rsVillage.Open "SELECT * FROM tbVillage ORDER BY txtVillageName",con
set rsAttention=Server.CreateObject("ADODB.RecordSet")
rsAttention.Open "SELECT * FROM tbAttentionLevel ORDER BY txtattnLevel",con
set rsStatus=Server.CreateObject("ADODB.RecordSet")
rsStatus.Open "SELECT * FROM tbMemberStatus",con
set rsResp=Server.CreateObject("ADODB.RecordSet")
rsResp.Open "SELECT * FROM tbResponsible ORDER BY txtResponsible",con
set rsToilet=Server.CreateObject("ADODB.RecordSet")
rsToilet.Open "SELECT * FROM tbToilet ORDER BY intTStatusID",con
set rsFamStatus=Server.CreateObject("ADODB.RecordSet")
rsFamStatus.Open "SELECT * FROM tbFamilyStatus ORDER BY txtFamilyStatus",con
set rsEduc=Server.CreateObject("ADODB.RecordSet")
rsEduc.Open "SELECT * FROM tbEducation",con
rowcolor1="#D9E8E8"
rowcolor2="#EFEFEF"
if session("useremail")<>"" then
Response.Write(Navigation("viewentry"))
else
fonts=""
fonte=""
Response.Write(""+fonts+"Login"+fonte+" ")
Response.Write(""+fonts+"Reports"+fonte+"")
end if
%>
Search Census Entries