%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset2__MMColParam Recordset2__MMColParam = "%" If (Request.QueryString("WS_ID") <> "") Then Recordset2__MMColParam = Request.QueryString("WS_ID") End If %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_workshops_STRING Recordset2.Source = "SELECT * FROM WS_NAME WHERE WS_ID = '" + Replace(Recordset2__MMColParam, "'", "''") + "'" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Recordset3__MMColParam Recordset3__MMColParam = "%" If (Request.QueryString("WS_ID") <> "") Then Recordset3__MMColParam = Request.QueryString("WS_ID") End If %> <% Dim Recordset3 Dim Recordset3_numRows Set Recordset3 = Server.CreateObject("ADODB.Recordset") Recordset3.ActiveConnection = MM_workshops_STRING Recordset3.Source = "SELECT * FROM dbo.WS_proceedings WHERE WS_ID = " + Replace(Recordset3__MMColParam, "'", "''") + "" Recordset3.CursorType = 0 Recordset3.CursorLocation = 2 Recordset3.LockType = 1 Recordset3.Open() Recordset3_numRows = 0 %> <% Dim Recordset4__MMColParam Recordset4__MMColParam = "%" If (Request.QueryString("WS_ID") <> "") Then Recordset4__MMColParam = Request.QueryString("WS_ID") End If %> <% Dim Recordset4 Dim Recordset4_numRows Set Recordset4 = Server.CreateObject("ADODB.Recordset") Recordset4.ActiveConnection = MM_workshops_STRING Recordset4.Source = "SELECT * FROM dbo.WS_BACKGROUND WHERE WS_ID = " + Replace(Recordset4__MMColParam, "'", "''") + "" Recordset4.CursorType = 0 Recordset4.CursorLocation = 2 Recordset4.LockType = 1 Recordset4.Open() Recordset4_numRows = 0 %> <% Dim Recordset5__MMColParam Recordset5__MMColParam = "%" If (Request.QueryString("WS_ID") <> "") Then Recordset5__MMColParam = Request.QueryString("WS_ID") End If %> <% Dim Recordset5 Dim Recordset5_numRows Set Recordset5 = Server.CreateObject("ADODB.Recordset") Recordset5.ActiveConnection = MM_workshops_STRING Recordset5.Source = "SELECT * FROM dbo.WS_ORGANISER WHERE WS_ID = " + Replace(Recordset5__MMColParam, "'", "''") + "" Recordset5.CursorType = 0 Recordset5.CursorLocation = 2 Recordset5.LockType = 1 Recordset5.Open() Recordset5_numRows = 0 %> <% Dim Recordset6__MMColParam Recordset6__MMColParam = "%" If (Request.QueryString("WS_ID") <> "") Then Recordset6__MMColParam = Request.QueryString("WS_ID") End If %> <% Dim Recordset6 Dim Recordset6_numRows Set Recordset6 = Server.CreateObject("ADODB.Recordset") Recordset6.ActiveConnection = MM_workshops_STRING Recordset6.Source = "SELECT * FROM dbo.WS_CONTACT WHERE WS_ID = " + Replace(Recordset6__MMColParam, "'", "''") + "" Recordset6.CursorType = 0 Recordset6.CursorLocation = 2 Recordset6.LockType = 1 Recordset6.Open() Recordset6_numRows = 0 %> <% Dim Recordset7__MMColParam Recordset7__MMColParam = "%" If (Request.QueryString("WS_ID") <> "") Then Recordset7__MMColParam = Request.QueryString("WS_ID") End If %> <% Dim Recordset7 Dim Recordset7_numRows Set Recordset7 = Server.CreateObject("ADODB.Recordset") Recordset7.ActiveConnection = MM_workshops_STRING Recordset7.Source = "SELECT * FROM dbo.WS_LINKS_AGENDA WHERE WS_ID = " + Replace(Recordset7__MMColParam, "'", "''") + "" Recordset7.CursorType = 0 Recordset7.CursorLocation = 2 Recordset7.LockType = 1 Recordset7.Open() Recordset7_numRows = 0 %>
Home > News + Events > IEA workshops The papers in these workshops represent the personal views of the individual authors and do not necessarily represent the views of their companies, organisations or the IEA.
|
||||||||||||||||||||||||||||||||