%@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 %>
معلومات جغرافية عامة
|