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