ถามเรื่องการ ลูปไปเลื่อยๆ จนกว่าจะเงื่อนไขเป็น true เขียนยังไงครับ

<% 
Option Explicit
Dim i
i = 1
Do While i <= 5
  Response.write("www.ThaiCreate.Com<br>")
  i = i + 1
Loop
Response.write("<hr>")
i = 1
Do
  Response.write("www.ThaiCreate.Com<br>")
  i = i + 1
Loop While  i <= 5
Response.write("<hr>")
i = 1
Do Until i = 5
  Response.write("www.ThaiCreate.Com<br>")
  i = i + 1
Loop
Response.write("<hr>")
i = 1
Do
  Response.write("www.ThaiCreate.Com<br>")
  i = i + 1
Loop Until i = 5
%>