<%@LANGUAGE="VBSCRIPT" CODEPAGE="1250"%> <% Dim wg2 Dim wg2_numRows Set wg2 = Server.CreateObject("ADODB.Recordset") wg2.ActiveConnection = MM_giss_STRING wg2.Source = "SELECT * FROM regisztracio WHERE workgroup = '2' ORDER BY country, name 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_giss_STRING wg3.Source = "SELECT * FROM regisztracio WHERE workgroup = '3' ORDER BY country, name ASC" wg3.CursorType = 0 wg3.CursorLocation = 2 wg3.LockType = 1 wg3.Open() wg3_numRows = 0 %> <% Dim wg1 Dim wg1_numRows Set wg1 = Server.CreateObject("ADODB.Recordset") wg1.ActiveConnection = MM_giss_STRING wg1.Source = "SELECT * FROM regisztracio WHERE workgroup = '1' ORDER BY country, name ASC" wg1.CursorType = 0 wg1.CursorLocation = 2 wg1.LockType = 1 wg1.Open() wg1_numRows = 0 %> <% Dim wg4 Dim wg4_numRows Set wg4 = Server.CreateObject("ADODB.Recordset") wg4.ActiveConnection = MM_giss_STRING wg4.Source = "SELECT * FROM regisztracio WHERE workgroup = '4' ORDER BY country, name ASC" wg4.CursorType = 0 wg4.CursorLocation = 2 wg4.LockType = 1 wg4.Open() wg4_numRows = 0 %> <% Dim wg5 Dim wg5_numRows Set wg5 = Server.CreateObject("ADODB.Recordset") wg5.ActiveConnection = MM_giss_STRING wg5.Source = "SELECT * FROM regisztracio WHERE workgroup = '5' ORDER BY country, name ASC" wg5.CursorType = 0 wg5.CursorLocation = 2 wg5.LockType = 1 wg5.Open() wg5_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 = -1 Repeat2__index = 0 wg2_numRows = wg2_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 wg3_numRows = wg3_numRows + Repeat3__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = -1 Repeat5__index = 0 wg5_numRows = wg5_numRows + Repeat5__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 wg4_numRows = wg4_numRows + Repeat4__numRows %> ::- GISS International Summer School -::
<% While ((Repeat1__numRows <> 0) AND (NOT wg1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 wg1.MoveNext() Wend %>
Workgroup 1 - Land Administration and Cadastre
Name
Organisation
Country
<%=(wg1.Fields.Item("name").Value)%> <%=(wg1.Fields.Item("organisation").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 - Land Management and Rural Development
Name
Organisation
Country
<%=(wg2.Fields.Item("name").Value)%> <%=(wg2.Fields.Item("organisation").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 - GeoInformation in Nature Protection
Name
Organisation
Country
<%=(wg3.Fields.Item("name").Value)%> <%=(wg3.Fields.Item("organisation").Value)%> <%=(wg3.Fields.Item("country").Value)%>

 

<% While ((Repeat3__numRows <> 0) AND (NOT wg4.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 wg4.MoveNext() Wend %>
Workgroup 4 - Lands and Mapping - Impact of the EU accession
Name
Organisation
Country
 <%=(wg4.Fields.Item("name").Value)%>  <%=(wg4.Fields.Item("organisation").Value)%>  <%=(wg4.Fields.Item("country").Value)%>

 

<% While ((Repeat3__numRows <> 0) AND (NOT wg5.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 wg5.MoveNext() Wend %>
Workgroup 5- Open GIS - Nyitott térinformatika magyarul
Name
Organisation
Country
 <%=(wg5.Fields.Item("name").Value)%>  <%=(wg5.Fields.Item("organisation").Value)%>  <%=(wg5.Fields.Item("country").Value)%>
<% wg2.Close() Set wg2 = Nothing %> <% wg3.Close() Set wg3 = Nothing %> <% wg1.Close() Set wg1 = Nothing %> <% wg4.Close() Set wg4 = Nothing %> <% wg5.Close() Set wg5 = Nothing %>