%@ Language=VBScript %>
<%
if Request.QueryString("year")="" then
yr=1900
else
yr=Request.QueryString("year")
end if
if Request.QueryString("month")="" then
mnth="01"
else
mnth=Request.QueryString("month")
end if
'****************
set rsreg = Server.CreateObject("adodb.recordset")
if Request.form("byear")="" then
'Response.Write "select reg_no From tblbirthdetails where year(birth_date)='1981' order by(reg_no)"
rsreg.Open "select reg_no From tblbirthdetails where year(birth_date)='1981' order by(reg_no)",session("con"),1,3
else
'Response.Write "select reg_no From tblbirthdetails where year(birth_date)='" & Request.Form("byear") & "' order by(reg_no)"
rsreg.Open "select reg_no From tblbirthdetails where year(birth_date)='" & Request.Form("byear") & "' order by(reg_no)",session("con"),1,3
end if
%>
Welcome to Mehsana Nagarpalika, Mehsana, Gujarat, INDIA