<% Dim CD_AdData,CD_AdDataType,CD_UserPointsA,CD_UserPointsB CD_AdData="yes" CD_AdDataType="2" CD_UserPointsA="2" CD_UserPointsB="2" %>