Dim myImg(6),ctrImg,r
Const ImgPath = "pics/rotate/"


myImg(0) = "img19.jpg"
myImg(1) = "img20.jpg"
myImg(2) = "img21.jpg"
myImg(3) = "img22.jpg"
myImg(4) = "img23.jpg"
myImg(5) = "img24.jpg"
myImg(6) = "img25.jpg"


Function Rotate_Banner()
    if ctrImg >= 7 then ctrImg = 0

    imgBanner.src = ImgPath & myImg(ctrImg)
    ctrImg = ctrImg + 1
End Function