% 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 %>
![]() ![]() ![]() ![]() ![]() |