VBScript Sample: vbscript/components/iaspimage/iaspimage.asp
   ASP Script
   Comments or Client-side Script
   HTML and Text

<html>
<head>
<title>iASPImage Component Demonstration</title>
</head>
<body bgcolor="white">
<center>
<%     
   Set Image = Server.CreateObject("ASPImage.Image")
   Sub AddTextToAnimation (strText, intColor, intDelay)
       Image.FontColor = intColor
       Image.TextOut strText, Image.X, Image.Y, false
       Image.AddImageToAnimation
       Image.AddAnimationControl intDelay, false, vbBlack
   End sub
   Image.AntiAliasText = True
   Image.FontName = "Courier"
   Image.FontSize = 40
   Image.Bold = True
   Image.Padsize = "0"
   Image.BackgroundColor = vbBlack
   Image.ClearImage
   strText = "Halcyon China"
   Image.MaxX = Image.TextWidth (strText) + 5
   Image.MaxY = Image.TextHeight (strText) + 5
   Image.X = 3
   Image.Y = 3
   Image.GradientTwoWay vbBlue, vbWhite, 0, 1
   Image.StartAnimation true
   intDelay = 20
   AddTextToAnimation "H", vbRed, intDelay
   AddTextToAnimation "a", vbWhite, intDelay
   AddTextToAnimation "l", vbGreen, intDelay
   AddTextToAnimation "c", vbBlue, intDelay
   AddTextToAnimation "y", vbWhite, intDelay
   AddTextToAnimation "o", vbGreen, intDelay
   AddTextToAnimation "n", vbBlue, intDelay
   AddTextToAnimation " ", vbGreen, intDelay
   AddTextToAnimation "C", vbRed, intDelay
   AddTextToAnimation "h", vbWhite, intDelay
   AddTextToAnimation "i", vbGreen, intDelay
   AddTextToAnimation "n", vbBlue, intDelay
   AddTextToAnimation "a", vbRed, 90
   
' Set the path to your webserver
   path = Server.mappath("iaspimage.asp")
   Image.Filename = Left(path,len(path)-13) & "iaspimage.gif"
   Image.SaveAnimation
   Response.Write "<img src=iaspimage.gif><br>"
   Set Image = nothing
%>

</center>
</body>
</html>


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.