Referrer e göre yönlendirme kodu

<%

'Specify the url or our domain
site_url = "http://dypso.free.fr"

'domain name
dom_name =Lcase(left( 
	Request.ServerVariables("HTTP_Referer"),len(site_url)))


'Check for referring URL
If dom_name <> site_url then
 		'People are not allowed to see this page
 		' they are redirected
		response.redirect "default.asp"
	
End if
		'Here write the content for people allowed
		'to access it :
		Response.Write "Welcome to this WebPage"
		
%>

<%@Language=VBScript%>
<%
SiteNameURL =  Request.ServerVariables("SERVER_NAME")

Select Case SiteNameURL

    Case "www.aaaaa.com"
        Response.Redirect "aaaaa/"

    Case "www.bbbbb.com"
        Response.Redirect "bbbbb/"

    Case "www.ccccc.com"
        Response.Redirect "ccccc/"	

End Select
%>

'REFERER URL'i al
REFERER_URL = Request.ServerVariables("HTTP_REFERER")

'URL'deki domaini bul
if InStr(8, REFERER_URL, "/") = 0 then
	REFERER_DOMAIN = REFERER_URL
else
	REFERER_DOMAIN = left(REFERER_URL, InStr(8, REFERER_URL, "/")-1)
end if

'DOMAIN'e göre dallandırma yap
Select Case REFERER_DOMAIN
	Case "http://www.aaaaa.com"
		response.Redirect "aaaaa.asp"
	Case "http://www.bbbbb.com"
		response.Redirect "bbbbb.asp"
	Case "http://www.ccccc.com"
		response.Redirect "ccccc.asp"
End Select