<%response.buffer=true%>
<%
Dim theSRV
theSRV = Request.ServerVariables("SERVER_NAME")
Select Case theSRV
Case "www.granada.com.au" Response.Redirect("http://www.granadaproductions.com.au/")
Case "granada.com.au" Response.Redirect("http://www.granadaproductions.com.au/")
End Select
%>
Granada Productions - Index
Dancing With The Stars - Series 7
