Blog literacki, portal erotyczny - seks i humor nie z tej ziemi
<%
'ten wiersz przechodzi w pętli przez każdy rekord tabeli
Do until RS.EOF
'ten wiersz wypisuje rekord
Response.Write RS("TheData")
'zwiększa stan licznika
RecordsPrinted = RecordsPrinted + 1
'sprawdza, czy wypisano 10 rekordów
if RecordsPrinted MOD 10 = 0 then
RESPONSE.Write "Tre¶ć nagłówka"
End if
'przejdĽ do następnego rekordu
RS.MoveNext
Loop
%>