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