<%
 Dim depth, color, size
depth=5 
size=1
color= "blue"
 
 Call DrawFractal(depth)
 
 Sub DrawFractal(depth)
   
   Response.Write "<TABLE border=0 cellpadding=0 cellspacing=0>"       
   Response.Write "<TR><TD>"        
   Call Iterate(depth)      
   Response.Write "</TD></TR><TR><TD>"        
   Call Iterate(depth)      
   Response.Write "</TD><TD>"        
   Call Iterate(depth)
   Response.Write "</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 & ">"
      Response.Write "<TR>"
      Response.Write "<TD bgcolor= "& color & ">"
      Response.Write "</TD></TR></TABLE>"        
   End If
 
 End Sub
%>