Response.Write

[Rouven]

Hi,

dann mach doch folgendes:
Dim i
i = 1
Dim continue
continue = true
while (continue = true)
  'Schreiben der Ausgaben...

rsSearch.MoveNext
  i = i + 1
  if (i >= 100 ) then continue = false
  if (rsSearch.eof = true) then continue = false
wend