<% dim sAdTag dim sTargetURL dim sCreative dim sTimeStamp dim lCampaign dim oBanMan dim bRichMedia dim bPopUp dim lResult sAdTag = trim(Request.QueryString("adtag")) set oBanMan = server.CreateObject("hmcBanMan.AdMeister") lResult = oBanMan.GetAd(gsConnectionString, gsGetAdCommand, DEBUG_MODE, gsSite, gsLocation, sAdTag, lCampaign, sCreative, sTargetURL, sTimeStamp,bRichMedia, bPopup) set oBanMan = nothing if lResult = 0 then lCampaign = server.URLEncode(lCampaign) sTargetURL = server.URLEncode(sTargetURL) if bRichMedia = true then Response.Write sCreative elseif bPopUp = true then Response.Write "" else Response.Write "" end if else Response.write "" end if %>