<%@LANGUAGE="VBSCRIPT" CODEPAGE="1250"%> <% Dim all Dim all_numRows Set all = Server.CreateObject("ADODB.Recordset") all.ActiveConnection = MM_giss_STRING all.Source = "SELECT * FROM regisztracio ORDER BY date DESC" all.CursorType = 0 all.CursorLocation = 2 all.LockType = 1 all.Open() all_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 all_numRows = all_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim all_total Dim all_first Dim all_last ' set the record count all_total = all.RecordCount ' set the number of rows displayed on this page If (all_numRows < 0) Then all_numRows = all_total Elseif (all_numRows = 0) Then all_numRows = 1 End If ' set the first and last displayed record all_first = 1 all_last = all_first + all_numRows - 1 ' if we have the correct record count, check the other stats If (all_total <> -1) Then If (all_first > all_total) Then all_first = all_total End If If (all_last > all_total) Then all_last = all_total End If If (all_numRows > all_total) Then all_numRows = all_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (all_total = -1) Then ' count the total records by iterating through the recordset all_total=0 While (Not all.EOF) all_total = all_total + 1 all.MoveNext Wend ' reset the cursor to the beginning If (all.CursorType > 0) Then all.MoveFirst Else all.Requery End If ' set the number of rows displayed on this page If (all_numRows < 0 Or all_numRows > all_total) Then all_numRows = all_total End If ' set the first and last displayed record all_first = 1 all_last = all_first + all_numRows - 1 If (all_first > all_total) Then all_first = all_total End If If (all_last > all_total) Then all_last = all_total End If End If %> <% 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 %>

<% While ((Repeat1__numRows <> 0) AND (NOT all.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 all.MoveNext() Wend %>

Regisztrált hallgatók
Dátum	Sorszám	Name	Organisation	email	Country	address	degree	unigis	accom	WG
<%=(all.Fields.Item("date").Value)%>	<%=(all.Fields.Item("ID").Value)%>	<%=(all.Fields.Item("name").Value)%>	<%=(all.Fields.Item("organisation").Value)%>	<%=(all.Fields.Item("email").Value)%>	<%=(all.Fields.Item("country").Value)%>	<%=(all.Fields.Item("address").Value)%>	<%=(all.Fields.Item("degree").Value)%>	<%=(all.Fields.Item("unigis_student").Value)%>	<%=(all.Fields.Item("accomodation").Value)%>	<%=(all.Fields.Item("workgroup").Value)%>

<% all.Close() Set all = Nothing %>