|
<%@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%> |
|||||||||||||||||||||
|
||||||||||||||||||||||
River Cities: Laughlin / Bullhead City / Needles / Lake Havasu City / Parker / Ehrenberg / Blythe / Yuma A River Info™ Website - © 1997-2004 River Info™ - All rights reserved - Site terms of use |