<%@ Language=VBScript %> <% Response.Status="301 Moved Permanently" select case request.QueryString("id") case "3" Response.AddHeader "Location","http://www.schaddevandooren.nl/contact/" case "7" Response.AddHeader "Location","http://www.schaddevandooren.nl/fotoalbum/" case else Response.AddHeader "Location","http://www.schaddevandooren.nl/" end select %>