Effetto sali-scendi su testo

Grazie al seguente e breve script, è possibile dare un effetto "sali-scendi" al proprio testo o a quello acquisito da una fonte dati.

<%

dim strTesto

strTesto="frase da far elaborare"

dim arrTesto

arrTesto=split(ucase(strTesto)," ")

response.write "<br>Testo iniziale: "&strTesto

strTesto=""

for i=lbound(arrTesto) to ubound(arrTesto)

if i mod 2 = 0 then

strTesto=strTesto & ucase(arrTesto(i))

else

strTesto=strTesto & lcase(arrTesto(i))

end if

strTesto=strTesto&" "

next

response.write "<br>Testo finale: "&strTesto

%>