Create Swf Flash Movie from ASP VBScript - Create-Polygon

Flash swf File Size: 859 bytes

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

' Create flash movie object
set movie = Server.CreateObject("eMarkASF.Movie")

' Set the stage size and background-color of flash movie
    movie.SetSize 600,229
    movie.SetBackgroundColor 255, 200, 0

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

' Create flash object
set obj = Server.CreateObject("eMarkASF.FlashObject")
    obj.CreatePolygon 0, 0
    obj.AddPolygonLine -120, 160
    obj.AddPolygonLine 240, 0
    obj.AddPolygonLine -120, -160
    obj.SolidFillColor = color

    obj.MoveCenterTo 60, 150
    movie.AddObject obj

    obj.CreatePolygon 0,0
    obj.AddPolygonCurve 120,-75,120,75
    obj.AddPolygonLineTo 120,160
    obj.AddPolygonLineTo 0,0

    color.ColorString = "#00B700"
    obj.SolidFillColor = color

    obj.MoveCenterTo 300, 175
    movie.AddObject obj

Randomize
dim Points
redim Points(9,2)

' Get random data
for i=0 to 8
    Points(i,0) = rnd*240
    Points(i,1) = rnd*180
next

    obj.CreatePolygonEx Points

    color.ColorString = "Blue"
    obj.SolidFillColor = color
    'obj.Rotate 60

    obj.MoveCenterTo 480, 175
    movie.AddObject obj

    response.contentType = "application/x-shockwave-flash"
    response.binarywrite movie.Content

    obj.Free
    movie.Free
    response.end
%>