<html>
<head>
<title>Welcome</title>
</head>
<body bgcolor=white>
<center>
<p><br></p><p><br></p>
<%
rem **********************************************************************
rem * Instantiate the object
rem **********************************************************************
Set Image = Server.CreateObject("AspImage.Image")
rem **********************************************************************
rem * Set various font parameters
rem **********************************************************************
Image.FontColor = vbWhite
Image.Italic = False
Image.Bold = True
Image.FontName = "Arial"
Image.FontSize = 12
Image.PadSize = 4
Image.TextAlign = 6
rem **********************************************************************
rem * Calculate the size of the text info is and set the image to this size
rem * (this has to be done since we want to fill the area with a gradient)
rem * This demonstrates a multi-line text string
rem **********************************************************************
strMessage = "The Widget Factory" & vbCrLf & "123 Park Avenue" & _
VbCrLf & "Anytown, USA 012345"
Image.MaxX = Image.TextWidth (strMessage)
Image.MaxY = Image.TextHeight (strMessage)
rem **********************************************************************
rem * Create a one way gradient that starts with Red and ends with White
rem **********************************************************************
Image.GradientOneWay vbWhite, vbBlue, 0
rem **********************************************************************
rem * Print our text to the image at the current X,Y position using 3D
rem **********************************************************************
Image.TextOut strMessage, Image.MaxX / 2 - Image.PadSize, Image.Y, true
rem **********************************************************************
rem * Set the filename and save
rem * NOTE: You should gen the filename dynamically for multiuser usage
rem **********************************************************************
Image.FileName = Server.MapPath(".")&"\txtz2.JPG"
Image.SaveImage
rem **********************************************************************
rem * Write the <img src> tag out for the browser to pick up
rem **********************************************************************
Response.Write "<img src=""txtz2.jpg""><br>"
rem **********************************************************************
rem * These properties give eval/registration information for the component
rem **********************************************************************
Response.Write "<p>Expires: " & Image.Expires
Response.Write "<br>Version: " & Image.Version
Response.Write "<br>Registered To: " & Image.RegisteredTo
Set Image = nothing
%>
</center>
</body>
</html>