<% Function ShowAdvertisement5() Dim objAd Set objAd = Server.CreateObject("MSWC.AdRotator") objAd.TargetFrame = "TARGET=new" ShowAdvertisement5 = objAd.GetAdvertisement("leftbanner5.txt") Set objAd = Nothing End Function %>