<%
bannerAdUserID = trim(session("UserID"))
if bannerAdUserID = Application("AnonID") then
bannerAdUserID = ""
end if
set bannerAdobj = Server.CreateObject("ActCam_BannerAds.Ads")
bannerAdResult = bannerAdobj.CMSgetAdForDisplay(4031, 8539, 34, 1, bannerAdUserID)
response.write bannerAdResult
%>