<%
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 "/brochureholder-a6-taymar-6c1.html" RedirectTo = "/brochureholder-a6-6c1.html"
Case "/brochureholder-a5-taymar-7c1.html" RedirectTo = "/brochureholder-a5-7c1.html"
Case "/brochureholder-a4-taymar-8c1.html" RedirectTo = "/brochureholder-a4-8c1.html"
Case "/%95-restaurant-18s.html" RedirectTo = "/%95-cafe-bar-16c1.html"
Case "/caf%e9-tavle-m-m-14c1.html" RedirectTo = "/caf%e9-tavler-tilbehoer-37c1.html"
Case "/%95-cafe-bar-16c1.html" RedirectTo = "/caf%e9-tavler-tilbehoer-37c1.html"
Case "/a-skilte-gadeskilte-13c1.html" RedirectTo = "/a-skilte-gadeskilte-13c1.html"
Case "/visitkort-holder-taymar-25c1.html" RedirectTo = "/visitkortholdere-25c1.html"
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.
<%end if%>