<%
sub AddTextToAnimation (strText, intColor, intDelay)
Image.FontColor = intColor
Image.TextOut strText, Image.X, Image.Y, false
Image.AddImageToAnimation
Image.AddAnimationControl intDelay, false, 0
end sub
Set Image = Server.CreateObject("AspImage.Image")
Image.AntiAliasText= True
Image.FontName = "Arial"
Image.FontSize = 20
Image.Padsize = "0"
Image.BackgroundColor = vbBlack
Image.ClearImage
strText = "ServerObjects Inc."
Image.MaxX = Image.TextWidth (strText) + 5
Image.MaxY = Image.TextHeight (strText) + 5
Image.X = 3
Image.Y = 3
Image.StartAnimation true
intDelay = 20
AddTextToAnimation "S", vbRed, intDelay
AddTextToAnimation "e", vbWhite, intDelay
AddTextToAnimation "r", vbGreen, intDelay
AddTextToAnimation "v", vbBlue, intDelay
AddTextToAnimation "e", vbWhite, intDelay
AddTextToAnimation "r", vbGreen, intDelay
AddTextToAnimation "O", vbBlue, intDelay
AddTextToAnimation "b", vbGreen, intDelay
AddTextToAnimation "j", vbRed, intDelay
AddTextToAnimation "e", vbWhite, intDelay
AddTextToAnimation "c", vbGreen, intDelay
AddTextToAnimation "t", vbBlue, intDelay
AddTextToAnimation "s", vbRed, intDelay
AddTextToAnimation " ", vbBlack, intDelay
AddTextToAnimation "I", vbBlue, intDelay
AddTextToAnimation "n", vbWhite, intDelay
AddTextToAnimation "c", vbGreen, intDelay
AddTextToAnimation ".", vbRed, 90
'set your path to webserver
Image.FileName = "d:\inetpub\wwwroot\images\soianim.gif"
Image.SaveAnimation
Response.Write "![]()
"
rem **********************************************************************
rem * These properties give eval/registration information for the component
rem **********************************************************************
Response.Write "Expires: " & Image.Expires
Response.Write "
Version: " & Image.Version
Response.Write "
Registered To: " & Image.RegisteredTo
Set Image = nothing
%>