Título: Rotinas de Loop	
Conteudo:
Loops são rotinas que devem ser repetidas até que uma determinada condição seja satisfeita. Existem 3 comandos que permitem tal situação:

Do...Loop
For...Next
While...Wend

Abaixo seguem as características e exemplos de cada comando.
Do...Loop
O comando Do...Loop executa uma determinada rotina até que a condição se torne verdadeira. Observe o exemplo abaixo: 
<html><body>
<% 
x = 0
Do Until x=10
x = x + 1
Loop 
response.write x
%></body></html>
para interromper o Loop, usa-se o comando Exit Do
clique aqui para rodar o código acima

For...Next
O comando For...Next executa uma determinada rotina até que o contador (uma variável) atinja o valor determinado. Observe o exemplo:
<html><body>
<%
For i=1 to 50
response.write i
next 
%></body></html>
  
observe que não é necessário nenhuma rotina de incrementação de valores em i. A cada ciclo, o valor de i é acrescido de uma unidade, automaticamente. 
para interromper o Loop, usa-se o comando Exit For

clique aqui para rodar o código acima
While...Wend
O comando While...Wend executa uma determinada rotina até que a condição imposta seja alcançada. Observe o exemplo dado:
<html><body>
<%

q 
= "SELECT * FROM cadastro where cidade = 'São Paulo'"

connstring = "DBQ=c:\teste.mdb;Driver={Microsoft Access Driver (*.mdb)}" 

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open connstring, "","" 

Set tabela = Conexao.Execute (q) 

While not tabela.EOF

response.write tabela("nome").value

tabela.movenext 

wend 

%></body></html>	
Autor: Fernando D'Angelo