<%
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 "/group.asp" RedirectTo = "/shop/tuning-1940s.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 side du har søgt efter kan være blevet flyttet, have fået et nyt navn, eller er midlertidigt ude af drift
Tilbage til forsiden
<%end if%>