<%
m_item = Request.QueryString("mitem")
'RF_name = Request.QueryString("stname")
RF_Dist = Request.Form("District")
RF_Teh = Request.Form("Tehsil")
set conn = Server.CreateObject ("adodb.connection")
conn.connectiontimeout = 0
conn.commandtimeout = 0
server.ScriptTimeout = 90000
''''''''''''''''''''''''''''''''''
'conStr= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\zameer.mdb;Persist Security Info=False"
conStr = "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("zameer.mdb") & ";persist security info = false;"
Conn.Open conStr
SQLDistrict = "Select * From district order by 1 "
Set RSDist = Conn.Execute(SQLDistrict)
if RSDist.eof then
Response.Write "No district defind in database !!!"
Response.End
end if
if isNull(RF_Dist) or isEmpty(RF_Dist) or RF_Dist ="" then
if not RSDist.eof then
RF_Dist = RSDist(0)
end if
end if
SQLTehsil = "Select TehsilCode,sdesc From Tehsil Where DistCode ='"&RF_Dist&"' order by TehsilCode "
Set RSTeh = Conn.Execute(SQLTehsil)
if isNull(RF_Teh) or isEmpty(RF_Teh) or m_item="1" then
if not RSTeh.eof then
RF_Teh = RSTeh(0)
end if
end if
%>
