Hi 
Below ASP code have some error in 'Dim MonthNum=Month("Ctxtdatefrom") '
Can help to solve this.
......
If session("cmbLeaveType")=2 then
set rs2 = objconn.execute("select * form Particulars where empid='" & session("empid") & "'") 
           if ChildNationality = ABC then
           Dim MonthNum=Month("Ctxtdatefrom")
           Dim MonthNum2=Month("ctxtdateto")
           If(MonthNum=5 and monthnum2=5)
            if tdays1 then
   else
set rs = objconn.execute("insert into leavebank (empid, datesubmit, datefrom, dateto....
END IF 
END IF 
END IF 
END IF