Library code snippets

ASP Fractal

HTML Output

ASP Code

<%

Dim depth,color,size
depth=5
size=1
color="blue"

Call DrawFractal (depth)

Sub DrawFractal (depth)

%>
<table border= "0" cellpadding= "0" cellspacing= "0"><tr><td>
<% Call Iterate (depth) %>
</td></tr><tr><td>
<% Call Iterate (depth) %>
</td><td>
<% Call Iterate (depth) %>
</td></tr></table>
<%

End Sub

Sub Iterate (depth)
    If depth > 0 Then
        Call DrawFractal (depth-1)
    Else
        Response.Write "<table cellpadding=""0"" cellspacing=""0"" " & _
            " border=""0"" height="""& size &""" width="""& size &""">" & _
            "<tr><td bgcolor="""& color &"""></td></tr></table>"
    End If
End Sub

%>

Comments

  1. 01 Jan 1999 at 00:00

    This thread is for discussions of ASP Fractal.

Leave a comment

Sign in or Join us (it's free).

Tawani Anyangwe
AddThis

Related discussion

Related podcasts

  • Scott Guthrie

    Scott catches up with Scott Guthrie in an interview covering Ajax, Asp 2.0, extender controls, CSS adapters and more.

Events coming up

Want to stay in touch with what's going on? Follow us on twitter!