Effetto sali-scendi

Questo semplice script permette di dare al testo un effetto sali-scendi:

<%
dim strTesto
strTesto="frase da far elaborare"
dim arrTesto
arrTesto=split(ucase(strTesto)," ")
response.write "<br>Testo iniziale: "&amp;strTesto
strTesto=""
for i=lbound(arrTesto) to ubound(arrTesto)
if i mod 2 = 0 then
strTesto=strTesto &amp; ucase(arrTesto(i))
else
strTesto=strTesto &amp; lcase(arrTesto(i))
end if
strTesto=strTesto&amp;" "
next 
response.write "<br>Testo finale: "&amp;strTesto
%>