![](/cri_spacer.gif) |
|
![](/cri_header_bottom_right_green.jpg)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<%
Dim varBanners(7)
Dim varAdNumber
' " "
varBanners(0) = " "
varBanners(1) = " "
varBanners(2) = " "
varBanners(3) = " "
varBanners(4) = " "
varBanners(5) = " "
varBanners(6) = " "
Application.Lock()
Application("CRI_PARKERAZ_BANNERGRAPHICS") = Int(Application("CRI_PARKERAZ_BANNERGRAPHICS")) + 1
IF Int(Application("CRI_PARKERAZ_BANNERGRAPHICS")) > UBound(varBanners) THEN
Application("CRI_PARKERAZ_BANNERGRAPHICS") = 0
END IF
varAdNumber = Int(Application("CRI_PARKERAZ_BANNERGRAPHICS"))
Application.UnLock()
%>
<%FOR i = 0 to UBound(varBanners)%>
<%=varBanners(varAdNumber)%>
<%varAdNumber = varAdNumber + 1%>
<%IF varAdNumber > UBound(varBanners) THEN
varAdNumber = 0
END IF%>
<%NEXT%> |