i = 0
	intTimeout = 5000

	dim arrBannerImages(1)
	arrBannerImages(0) = "images/pakfin_banner.jpg"
	arrBannerImages(1) = "images/cvgc_banner.jpg"

	dim arrBannerAlts(1)
	arrBannerAlts(0) = "Pakfin"
	arrBannerAlts(1) = "Colne Valley Golf Club"

	dim arrBannerLinks(1)
	arrBannerLinks(0) = "sponsors.htm#pakfin"
	arrBannerLinks(1) = "sponsors.asp#cvgc"
	
	sub banner_transition()
		if i > ubound(arrBannerImages) then
			i = 0
		end if

		imgBanner.style.filter = "blendTrans"

		filter_out()

		with imgBanner
			.src = arrBannerImages(i)
			.alt = arrBannerAlts(i)
			.style.filter = "revealTrans"
		end with

		filter_in()

		with aBannerLink
			.href = arrBannerLinks(i)
			.target = "ifrInfo"
		end with

		i = i + 1

		window.setTimeout "banner_transition", cint(intTimeout)
	end sub

	sub filter_out()
		imgBanner.filters(0).Apply()
		imgBanner.filters(0).Play(1.000)
	end sub

	sub filter_in()
		imgBanner.filters(0).Apply()
		imgBanner.style.visibility="visible"
		imgBanner.filters(0).Play(1.000)
	end sub