<%@LANGUAGE="VBSCRIPT"%> <% Dim wg1 Dim wg1_numRows Set wg1 = Server.CreateObject("ADODB.Recordset") wg1.ActiveConnection = MM_giss2005_STRING wg1.Source = "SELECT * FROM reg20050124 WHERE wg = '1' AND valid = -1 ORDER BY country, lname ASC" wg1.CursorType = 0 wg1.CursorLocation = 2 wg1.LockType = 1 wg1.Open() wg1_numRows = 0 %> <% Dim wg2 Dim wg2_numRows Set wg2 = Server.CreateObject("ADODB.Recordset") wg2.ActiveConnection = MM_giss2005_STRING wg2.Source = "SELECT * FROM reg20050124 WHERE wg = '2' AND valid = -1 ORDER BY country, lname ASC" wg2.CursorType = 0 wg2.CursorLocation = 2 wg2.LockType = 1 wg2.Open() wg2_numRows = 0 %> <% Dim wg3 Dim wg3_numRows Set wg3 = Server.CreateObject("ADODB.Recordset") wg3.ActiveConnection = MM_giss2005_STRING wg3.Source = "SELECT * FROM reg20050124 WHERE wg = '3' AND valid = -1 ORDER BY country, lname ASC" wg3.CursorType = 0 wg3.CursorLocation = 2 wg3.LockType = 1 wg3.Open() wg3_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 wg1_numRows = wg1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 10 Repeat2__index = 0 wg2_numRows = wg2_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 10 Repeat3__index = 0 wg3_numRows = wg3_numRows + Repeat3__numRows %> ::- GISS International Summer School in Székesfehérvár -::

<% While ((Repeat1__numRows <> 0) AND (NOT wg1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 wg1.MoveNext() Wend %>
Workgroup 1
Name
Organisation
Country
<%=(wg1.Fields.Item("fname").Value)%>, <%=(wg1.Fields.Item("lname").Value)%>
<%=(wg1.Fields.Item("org").Value)%>
<%=(wg1.Fields.Item("country").Value)%>

<% While ((Repeat2__numRows <> 0) AND (NOT wg2.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 wg2.MoveNext() Wend %>
Workgroup 2
Name
Organisation
Country
<%=(wg2.Fields.Item("fname").Value)%>, <%=(wg2.Fields.Item("lname").Value)%>
<%=(wg2.Fields.Item("org").Value)%>
<%=(wg2.Fields.Item("country").Value)%>

<% While ((Repeat3__numRows <> 0) AND (NOT wg3.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 wg3.MoveNext() Wend %>
Workgroup 3
Name
Organisation
Country
<%=(wg3.Fields.Item("fname").Value)%>, <%=(wg3.Fields.Item("lname").Value)%>
<%=(wg3.Fields.Item("org").Value)%>
<%=(wg3.Fields.Item("country").Value)%>


 

 
<% wg1.Close() Set wg1 = Nothing %> <% wg2.Close() Set wg2 = Nothing %> <% wg3.Close() Set wg3 = Nothing %>