FONCTION POUR RÉCUPERER LE NOM DU "DOMAINE" VISITÉ

<%

dim CurrentDomain

Public Function Domain(URL)
    Dim tStr
    Dim tInt

    tStr = URL
    
    tInt = InStr(1, tStr, ".", vbTextCompare)
    
    If tInt = 0 Then
        Domain = "www"
    Else
        Domain = Left(tStr, tInt - 1)
    End If
End Function

%>

<%
	CurrentDomain = domain(request.ServerVariables("SERVER_NAME"))
	
	select case CurrentDomain
		
	case "codes"
	    response.Redirect("http://www.asp.com/codes/")
	case "webmail"
	    response.Redirect("http://www.asp.com/mail/")
	case "asp"
	    response.Redirect("http://www.asp.com/")
	end select
%>