<html><body> <% Dim intcounter While intcounter <= 10 Response.Write("Dies ist der " & intcounter &_ "-te Durchlauf<br />" & vbCrLf) intcounter = intcounter + 1 Wend%> </body></html>