<html><body> <% Dim intcounter intcounter = 2 Do Until intcounter > 10 Response.Write("Zahl: " & intcounter & _ "<br/>" & vbCrLf) intcounter = intcounter * 2 Loop %> </body></html>