NET Infor

<SCRIPT LANGUAGE=VBScript>
<!---
Function FadeText(Text,BlackFade,FadeIn,ByVal Red, ByVal Green, ByVal Blue)

NumChars=Len(Text)
    If Not BlackFade Then
        Red=Not Red
	Green=Not Green
	Blue=Not Blue
    End If
	OutPut=""
    For j=1 To NumChars
        If FadeIn Then x=((255*(j-1))\(NumChars-1))
        If Not FadeIn Then x=255-((255*(j-1))\(NumChars-1))
        If BlackFade then
            R=Hex(-Red*x)
	    G=Hex(-Green*x)
	    B=Hex(-Blue*x)
        End If
        If Not BlackFade then
            R=Hex(255-(-Red*x))
	    G=Hex(255-(-green*x))
	    B=Hex(255-(-Blue*x))
        End If
        If Len(R)=1 Then R="0" & R
        If Len(G)=1 Then G="0" & G
        If Len(B)=1 Then B="0" & B
 Output=OutPut & "<FONT COLOR=" & R & G & B & ">" & Mid(Text,j,1)& "</FONT>"
    Next
	Document.Write OutPut
End Function
--->
</SCRIPT>
<SPAN STYLE="font: 32pt Comic Sans MS; text-align=Center">
<SCRIPT LANGUAGE=VBScript>

</SCRIPT>
</SPAN>