<%
Dim BadURLAll, BadURLPath, BadURLParam, RedirectTo
BadURLAll = LCase(Request.ServerVariables("HTTP_URL"))
BadURLAll = Right(BadURLAll, (Len(BadURLAll) - (Instr(BadURLAll, chr(59)))))
if LEFT(BadURLAll,7) = "http://" then
BadURLAll = Mid(BadURLAll, 8)
end if
Pos = Instr(BadURLAll, "/")
if Pos > 0 then
BadURLAll = Mid(BadURLAll,Pos)
end if
BadURLPath = BadURLAll
Pos = Instr(BadURLAll, "?")
if Pos > 0 then
BadURLParam = Mid(BadURLAll,Pos)
BadURLPath = Mid(BadURLAll,1, Pos-1)
end if
if Right(BadURLPath,1) = "/" then
BadURLPath = Mid(BadURLPath,1, LEN(BadURLPath)-1)
end if
RedirectTo = ""
SELECT CASE BadURLPath
Case "/westersoe/index.html" RedirectTo = "http://westersoe.dk"
Case "/profil.htm" RedirectTo = "/profil.asp"
Case "/menubund.htm" RedirectTo = "/menubund.asp"
Case "/kontakt.htm" RedirectTo = "/kontakt.asp"
END SELECT
if RedirectTo <> "" then
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", RedirectTo
Response.End
else
%>
siden blev ikke fundet
Siden blev ikke fundet
Den anmodede side (<%=BadURLAll%>)blev ikke fundet.
Siden er flyttet til Westersø.dk
<%end if%>