<%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%> <% Dim RSStat Dim RSStat_numRows Set RSStat = Server.CreateObject("ADODB.Recordset") RSStat.ActiveConnection = MM_conn_STRING RSStat.Source = "SELECT * FROM Env_states" RSStat.CursorType = 0 RSStat.CursorLocation = 2 RSStat.LockType = 1 RSStat.Open() RSStat_numRows = 0 %> <% Dim RSGenInfo__MMColParam RSGenInfo__MMColParam = "0" If (request.form("StatId") <> "") Then RSGenInfo__MMColParam = request.form("StatId") End If %> <% Dim RSGenInfo Dim RSGenInfo_numRows Set RSGenInfo = Server.CreateObject("ADODB.Recordset") RSGenInfo.ActiveConnection = MM_conn_STRING RSGenInfo.Source = "SELECT * FROM Env_Gen_info, Env_states WHERE Env_Gen_info.St_No = " + Replace(RSGenInfo__MMColParam, "'", "''") + " and Env_Gen_info.St_No= Env_states.St_No order by qust_year desc" RSGenInfo.CursorType = 0 RSGenInfo.CursorLocation = 2 RSGenInfo.LockType = 1 RSGenInfo.Open() RSGenInfo_numRows = 0 %> <% Dim RSContMap__MMColParam RSContMap__MMColParam = "0" If (Request.Form("StatId") <> "") Then RSContMap__MMColParam = Request.Form("StatId") End If %> <% Dim RSContMap Dim RSContMap_numRows Set RSContMap = Server.CreateObject("ADODB.Recordset") RSContMap.ActiveConnection = MM_conn_STRING RSContMap.Source = "SELECT * FROM Env_Count_Map WHERE St_id = " + Replace(RSContMap__MMColParam, "'", "''") + " order by qust_year desc" RSContMap.CursorType = 0 RSContMap.CursorLocation = 2 RSContMap.LockType = 1 RSContMap.Open() RSContMap_numRows = 0 %> معلومات جغرافية عامة
Arab Organization for Agricaltural Development

 

معلومات جغرافية عامة

: الدولة
<% If RSGenInfo.EOF And RSGenInfo.BOF and RSGenInfo__MMColParam <> 0 Then %>
لا يوجد بيانات
<% End If ' end RSGenInfo.EOF And RSGenInfo.BOF %> <% If Not RSGenInfo.EOF Or Not RSGenInfo.BOF Then %>
<%=(RSGenInfo.Fields.Item("Qust_year").Value)%> أخر تحديث للبيانات كان في
<%=(RSGenInfo.Fields.Item("totally_space").Value)%>
المساحة الكلية
<%=(RSGenInfo.Fields.Item("Arable_land").Value)%>
مساحة الأرض الصالحة للزراعة (كلم2)
<%=(RSGenInfo.Fields.Item("Irrigated_land").Value)%>
مساحة الأرض المروية (كلم2)
<%=(RSGenInfo.Fields.Item("RainFall_land").Value)%>
مساحة الأرض المطرية (كلم2)
<%=(RSGenInfo.Fields.Item("Pastoral_land").Value)%>
متوسط مساحة الأرض الرعوية (كلم2)
<%=(RSGenInfo.Fields.Item("Forest_land").Value)%>
مساحة الأرض الغابية (كلم 2)
<% If Not RSContMap.EOF Or Not RSContMap.BOF Then %>
الخريطة السياسية ل <%=(RSGenInfo.Fields.Item("ST_A_Name").Value)%>
" name="img" border="1" id="img">
<% End If ' end Not RSContMap.EOF Or NOT RSContMap.BOF %> <% End If ' end Not RSGenInfo.EOF Or NOT RSGenInfo.BOF %>

 

 

 

<% RSStat.Close() Set RSStat = Nothing %> <% RSGenInfo.Close() Set RSGenInfo = Nothing %> <% RSContMap.Close() Set RSContMap = Nothing %>