Fazendo loops em ColdFusion e em ASP

Em CF para realizar um loop podemos fazer usando a tag <cfoutput></cfoutput> ou a tag <cfloop></cfloop>.

A tag <cfoutput> pode ser usada para apresentar dados de uma consulta, itens de uma lista, etc. Lembrando que é sempre para apresentar dados na tela.

Ex.:

<cfquery name=”q_noticia” datasource=”lucasmarcal”>
SELECT *
FROM noticia
ORDER BY id_noticia
</cfquery>

<cfoutput query=”#q_noticia#”>

Código da notícia = #id_noticia#<br />

Notícia <textarea rows=”5” cols=”10”>#descricao#</textarea>

<br /><hr /><br />

</cfoutput>

Com a tag <cfloop> é possível fazer loops que não serão apresentados na tela mas ele pode ser usado dentro de uma tag <cfoutput> normalmente de acordo com a necessidade, o exemplo acima fica assim:

<cfquery name=”q_noticia” datasource=”lucasmarcal”>
SELECT *
FROM noticia
ORDER BY id_noticia
</cfquery>

<cfoutput>

<cfloop query=”#q_noticia#”>

Código da notícia = #id_noticia#<br />

Notícia <textarea rows=”5” cols=”10”>#descricao#</textarea>

<br /><hr /><br />

</cfloop>

</cfoutput>

Outro exemplo é:

<cfset lista = “1,a,2,b,3,c,4,d,5”>

<cfoutput>

<cfloop list=”#lista#” delimiters=”,” index=”i” step=”2”>

Número #i#<br />

</cfloop>

</cfoutput>

No loop acima só os números serão apresentados.

As tags podem ser usadas separadas, a tag cfoutput apresenta o conteúdo de todas as variáveis que estiverem dentro dela na tela e a tag cfloop não.

Em ASP usamos as funções FOR ou Do While ou While ou Do Until e para apresentar os dados continua da mesma forma, vou apresentar alguns exemplos abaixo.

Dim Inicio, Fim

Inicio = 0

Fim = 10

For i = Inicio to Fim

call EnviaEmail("&rs(i)&")

Next

---------------------------------------------

Dim Inicio, Fim

Inicio = 0

Fim = 10

Do until Inicio = Fim

call EnviaEmail("&rs("email")&")

rs.MoveNext

Inicio = Inicio + 1

Loop

--------------------------------------------

Dim Inicio, Fim

Inicio = 0

Fim = 10

While not Inicio = Fim

call EnviaEmail("&rs("email")&")

rs.MoveNext

Wend

-------------------------------------------

Dim i

response.write "<b>Contando numeros de 1 a 50:</b> <br><br>"

For i = 1 to 50

response.write i & "<br>"

Next

------------------------------------------

Dim x

x = 1

Do until x = 50

response.write x & "<br>"

x = x + 1

Loop