Focus on: Sustainable Development


<% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" 'Dim strConnect 'apps/news/constring.asp if InStr(Request.ServerVariables("SERVER_SOFTWARE"), "Microsoft") > 0 then strConnect = "Provider=SQLOLEDB;Driver={SQL Server};DATABASE=News;Address=UN-SQL-NY-PROD-7.un.org,1433;uid=Webnews_En;pwd=EngNews01;MultipleActiveResultSets=true;ApplicationIntent=ReadOnly" elseif InStr(Request.ServerVariables("SERVER_SOFTWARE"), "Apache") > 0 then strConnect = "Driver={SQL Server};DATABASE=News;Address=UN-SQL-NY-PROD-7.un.org,1433;uid=Webnews_En;pwd=EngNews01;" end if %> <% Dim rsTop Dim rsTop_numRows Set rsTop = Server.CreateObject("ADODB.Recordset") rsTop.ActiveConnection = strconnect 'rsTop.ActiveConnection = MM_unhqdb10_STRING rsTop.Source = "SELECT * FROM dbo.sus_dev" rsTop.CursorType = 0 rsTop.CursorLocation = 2 rsTop.LockType = 1 rsTop.Open() rsTop_numRows = 0 %> <% ' <% rsTop.Close() Set rsTop = Nothing %>
<% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" 'Dim strConnect 'apps/news/constring.asp if InStr(Request.ServerVariables("SERVER_SOFTWARE"), "Microsoft") > 0 then strConnect = "Provider=SQLOLEDB;Driver={SQL Server};DATABASE=News;Address=UN-SQL-NY-PROD-7.un.org,1433;uid=Webnews_En;pwd=EngNews01;MultipleActiveResultSets=true;ApplicationIntent=ReadOnly" elseif InStr(Request.ServerVariables("SERVER_SOFTWARE"), "Apache") > 0 then strConnect = "Driver={SQL Server};DATABASE=News;Address=UN-SQL-NY-PROD-7.un.org,1433;uid=Webnews_En;pwd=EngNews01;" end if %> <% Dim RS Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = strconnect RS.Source = "SELECT * FROM dbo.sus_dev" RS.CursorType = adOpenStatic RS.CursorLocation = 2 RS.LockType = 1 RS.Open() counter = 0 IF NOT RS.EOF THEN Do until RS.EOF IF counter > 0 THEN %> <% END IF RS.MoveNext counter = counter + 1 Loop ELSE END IF RS.Close() Set RS = Nothing %>

More stories »


Related videos

Learn more about the conference and how people have put their ideas into action.

United Nations Secretary-General Ban Ki-moon - Press Conference at Rio+20


Cities
00:02:19
Disasters
00:01:36
Energy
00:04:05