<% dim sTargetURL dim sCampaignID dim oBanMan sCampaignID = trim(Request.QueryString("campaign")) if isnumeric(sCampaignID) = false or sCampaignID = "" then sCampaignID="0" end if sTargetURL = trim(Request.QueryString("target")) if sCampaignID <> "0" then set oBanMan = server.CreateObject("hmcBanMan.AdMeister") oBanMan.ClickThru gsConnectionString, gsClickThruCommand, DEBUG_MODE, sCampaignID, gsLocation, gsSite set oBanMan = nothing end if Response.Redirect sTargetURL %>