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