Welcome to Orissa Forestry Sector Development Project

<%@language=vbscript%> <% dmu=request.querystring("DMU") range=request.querystring("range") if dmu="" then dmu="All" if range="" then range="All" Dim ConnectionString ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Domains\ofsdp.org\db\data.mdb;" ' ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Swadhin\websites\ofsdp\jbic\data.mdb;" dim cn set cn=server.createObject("ADODB.connection") cn.open ConnectionString dim rs,rs1,rs2 set rs=server.createobject("ADODB.recordset") set rs1=server.createobject("ADODB.recordset") rs1.open "SElect distinct division from vss",cn,1,1 set rs2=server.createobject("ADODB.recordset") rs2.open "SElect distinct range from vss where division='"& request.querystring("dmu") &"' " ,cn,1,1 if DMU="" or dmu= "All" then rs.open "SElect * from vss order by phase",cn,1,1 elseif DMU<>"All" and range= "All" then rs.open "SElect * from vss where division='" & request.querystring("dmu") &"' order by phase" ,cn,1,1 elseif DMU<>"All" and range<> "All" then rs.open "SElect * from vss where division='" & request.querystring("dmu") &"' and range='" & request.querystring("range") &"' order by phase" ,cn,1,1 end if %> Welcome to Orissa Forestry Sector Development Project

English | Oriya

Site map | Search | Contact us