<%
'ten wiersz przechodzi w ptli przez kady rekord tabeli
Do until RS.EOF
  'ten wiersz wypisuje rekord
  Response.Write RS("TheData")
  'zwiksza stan licznika
  RecordsPrinted = RecordsPrinted + 1
  'sprawdza, czy wypisano 10 rekordw
  if RecordsPrinted MOD 10 = 0 then
    RESPONSE.Write "Tre nagwka"
  End if
  'przejd do nastpnego rekordu
  RS.MoveNext
Loop
%>
