Create Swf Flash Animation from ASP VBScript - Create-EditText

Flash swf File Size: 999 bytes

<% @LANGUAGE="VBSCRIPT" %>
<%
response.Buffer = true
response.CacheControl = "no-cache"

' Create flash movie object
set Movie = Server.CreateObject("eMarkASF.Movie")
    Movie.SetSize 600, 229
    Movie.SetBackgroundColorEx "#FFD700"

' Use a color object
set color = Server.CreateObject("eMarkASF.Color")
    color.ColorString = "#FFD700"

' Create flash object
set obj = Server.CreateObject("eMarkASF.FlashObject")
    obj.CreateEditText 30,50,150,70, "Hello World!"
    obj.SetEditTextColor "#FF0000", 200

    Movie.AddObject obj

    obj.CreateEditText 200,100,450,120,Cstr(now)
    obj.SetEditTextColor "#0000FF",125

    Movie.AddObject obj

    obj.CreateEditText 70,150,270,170,Request.ServerVariables("REMOTE_ADDR") & " -- " &_           Request.ServerVariables("SERVER_NAME")
    obj.SetEditTextColor "#009900",125

    Movie.AddObject obj

    ' Output the swf binary data to browser directly
    response.contentType = "application/x-shockwave-flash"
    response.binarywrite Movie.Content

    ' Free all object
    obj.Free
    Movie.Free
%>