Fade de Texto em ASP

Hahahaha, dpois q tudo q me falam que dá pra fazer isto com CSS, bom agora q já ta feito ...
Hehehehe, espero q sirva para alguem.

Nivel  - Intermediário

<%

' Uma produção dos estudios Half Malf

' Obrigado aos amigos "Underground",
' "Voodoo", "Th3V1rus","ED+","Hand Full", "Xanddinho"
' q constantemente tiram as minhas dúvidas.


' str Variavel a ser "FADEADA"

' R1 A quantidade de vermelho inicial ( 0 - 255 )
' G1 A quantidade de verde inicial    ( 0 - 255 )
' B1 A quantidade de Azul inicial     ( 0 - 255 )

' R2 A quantidade de vermelho final ( 0 - 255 )
' G2 A quantidade de verde final    ( 0 - 255 )
' B2 A quantidade de Azul final     ( 0 - 255 )

function fadeText(str, R1, G1, B1, R2,G2, B2)
   
 Dim htmlTxtxt, X
 
    if str = "" Then Exit function
 
    R2 = ((R2 - R1) / Len(str))
    G2 = ((G2 - G1) / Len(str))
    B2 = ((B2 - B1) / Len(str))
   
 For X = 0 To Len(str) - 1
     R = Abs(Int(R1 + (R2 * X)))
     G = Abs(Int(G1 + (G2 * X)))
     B = Abs(Int(B1 + (B2 * X)))
     
  htmlTxt = htmlTxt & "<FONT color="
     htmlTxt = htmlTxt & Chr(34) & "#"
     
  if R < 17 Then htmlTxt = htmlTxt & "0"
      htmlTxt = htmlTxt & Hex(R)
     if G < 17 Then htmlTxt = htmlTxt & "0"
      htmlTxt = htmlTxt & Hex(G)
     if B < 17 Then htmlTxt = htmlTxt & "0"
      htmlTxt = htmlTxt & Hex(B)
      htmlTxt = htmlTxt & Chr(34)
      htmlTxt = htmlTxt & ">"
      htmlTxt = htmlTxt & Mid(str, X + 1, 1)
      htmlTxt = htmlTxt & "</FONT>"
    Next
 
    fadeText = htmlTxt
 
    End function
%>
 

<%= fadeText("ASP4Developers ASP4Developers ASP4Developers", 0,0,0,255,255,255) %>

 

Esta matéria foi postada originalmente no ASP4Developers por Ismael Nobre (site), que na época era "Analista.
Quer me contratar ?
Cel. 96420687". Hoje, vai saber...