<%
URL = Request.ServerVariables("SERVER_NAME")
Select Case URL
Case "www.segmentconsulting.com.br"
. : .com.br : .
Case "www.segmentconsulting.com"
. : .COM : .
Case "www.segfarma.com"
Response.Redirect "/pharma/"
Case "www.segfarma.net"
Response.Redirect "/pharma/"
Case "www.segpharma.com"
Response.Redirect "/pharma/"
Case "www.segpharma.net"
Response.Redirect "/pharma/"
End Select
%>