<% Response.Buffer = True BannerZone = Request("BannerZone") '*********************************************************************** ' System : ASPBanner ' Author : Christopher Williams of CJWSoft www.CJWSoft.com ' ' COPYRIGHT NOTICE ' ' See attached Software License Agreement ' ' (c) Copyright 2000 - 2001 by CJWSoft. All rights reserved '*********************************************************************** %> <% ' This page can be used to let ASPBanner rotate images from any site on the internet ' You call this page like so from an img tag ' ' This only works with images... when doing this you should devote a zone/area just for rotating images ' Most of the settings in the banner edit screen will not be used under this scenario ' You will have to enter a link ULR and possibly some other settings even though they will not be used ' Set all variables to empty as this code may be included multiple times in the same page BannerCycleData = "" Banner_Array = "" CurrentBanner = "" CycleBannerTotal = "" NewCycleList = "" NewCycleListArray = "" Banner_Array2 = "" Stop_Processing = "" If Application("BannerZone" & BannerZone & "_Cycle") <> "" Then BannerCycleData = Split(Application("BannerZone" & BannerZone & "_Cycle"),"|") Banner_Array = Split(Application("BannerZone" & BannerZone),"|") Keep_Processing = True Else Keep_Processing = False End If If Keep_Processing = True Then CurrentBanner = BannerCycleData(0) CycleBannerTotal = BannerCycleData(1) NewCycleList = BannerCycleData(2) NewCycleListArray = Split(NewCycleList,",") Banner_Array2 = Split(Banner_Array(NewCycleListArray(CurrentBanner)),vbTab) ' Banner Type Image Process Like So If (Banner_Array2(9)) = "Image" Then If ISNumeric(Banner_Array2(0)) = True Then Redirect_Image = Trim(Banner_Array2(1)) End If End If If Cint(CurrentBanner) = Cint(CycleBannerTotal - 1) Then CurrentBanner = 0 Else CurrentBanner = CurrentBanner + 1 End If Application.Lock Application("BannerZone" & BannerZone & "_Cycle") = CurrentBanner & "|" & CycleBannerTotal & "|" & NewCycleList Application.Unlock ' This is the End If for the (Keep_Processing = True) line End If If Redirect_Image <> "" Then Response.Redirect(Redirect_Image) End If %>