| <%
Dim varBanners(6)
Dim varAdNumber
'    "
  "
varBanners(0) = "  "
varBanners(1) = "  "
varBanners(2) = "  "
varBanners(3) = "  "
varBanners(4) = "  "
varBanners(5) = "  "
Application.Lock()
Application("CRI_WATERFLOWREPORTS_BANNERGRAPHICS") = Int(Application("CRI_WATERFLOWREPORTS_BANNERGRAPHICS")) + 1
IF Int(Application("CRI_WATERFLOWREPORTS_BANNERGRAPHICS")) > UBound(varBanners) THEN
	Application("CRI_WATERFLOWREPORTS_BANNERGRAPHICS") = 0
END IF
varAdNumber = Int(Application("CRI_WATERFLOWREPORTS_BANNERGRAPHICS"))
Application.UnLock()
%>
<%FOR i = 0 to UBound(varBanners)%> <%=varBanners(varAdNumber)%><%varAdNumber = varAdNumber + 1%>
	<%IF varAdNumber > UBound(varBanners) THEN
		varAdNumber = 0
	END IF%>
<%NEXT%> |