<%@ Language=VBScript %>
<%
dim rValue, locationURL
rValue = cstr(trim(Request.QueryString("r")))
if Len(rValue) > 0 then
  locationURL = "http://www.budde.com.au/buddereports/4371/2007_Global_Internet_-_Volume_2_-_Online_Content_and_Services.aspx?r=" & rValue & "&sub=TOC"
else
  locationURL = "http://www.budde.com.au/buddereports/4371/2007_Global_Internet_-_Volume_2_-_Online_Content_and_Services.aspx?sub=TOC"
end if
' Permanent redirection
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", locationURL
Response.End
%>