Function printAllLayers

    Set LList = Map.getLayers
    Dim Layer
	
    For i = 0 To LList.getCount - 1
        Set Layer = LList.getLayer( i)
        Response.Write( i & ". <b>'" & Layer.getName & "'</b>Visible:<b>" & _
                        Layer.isVisible & "</b><br>" & vbCrLf)
    Next
	
End Function