<% Dim code '媒体用コード Dim adpsid 'ADPLAN用コード Dim reqParams 'GETパラメータ Dim url '遷移先のURL addParams = "code=" + request("code") + "&adpsid=" + request("adpsid") url = "http://mb.athuman.com/ha/?" + addParams response.status="301 moved permanently" Response.AddHeader "Location", url %>