Bereich wiederholen: Daten werden nicht komplett angezeigt

[schutzgeist]

Hallo,

folgender Code:

  <% 
While ((Repeat3__numRows <> 0) AND (NOT PrintRouterVPN.EOF)) 
%>

[Ausgabe Datensatz Tabelle 1]


	    <% 
While ((Repeat11__numRows <> 0) AND (NOT Peers.EOF)) 
%>

	  <% if (Peers.Fields.Item("IDDrucker").Value) = (PrintRouterVPN.Fields.Item("ID").Value) Then %>

[Ausgabe zugehörige Datensätze Tabelle 2]


	  <% end if %>
	  
	      <% 
  Repeat11__index=Repeat11__index+1
  Repeat11__numRows=Repeat11__numRows-1
  Peers.MoveNext()
Wend
%>	
  
[weiter Ausgabe Datensatz Tabelle 1]


    <% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  PrintRouterVPN.MoveNext()
Wend
%>

Ich habe zwei Tabellen (ich nenn Sie mal 1 und 2).
In Tabelle 1 sind die Hauptdatensätze gespeichert. In Tabelle 2 weitere Eigenschaften der Sätze aus Tabelle 1. Auswahl von mehreren möglich.
ID aus Tabelle 1 ist zur eindeutigen Zuordnung bei den Datensätzen in 2 zugeordnet.

Probiert hab ich es wie oben.
Die Datensätze aus Tabelle 1 werden alle komplett angezeigt.
Die von zwei werden aber lediglich beim ersten Datensatz aus 1 eingezeigt.. alle weiteren bleiben leer

Hat jemand eine Idee, wo mein Denkfehler dabei liegt?

Danke schonmal im voraus!
Gruß schutzgeist