Hola!!
Creo que esto es lo que necesitas... bueno al menos yo si lo utilizo y me ha funcionado muy bien espero a vos te sirva tambien.
<%
Dim ServerName, Sitio
Sitio = Request.ServerVariables("SERVER_NAME")
if InStr(1, Sitio, "200.13.161.2", 1)<>0 Then
ServerName = "home"
'Sitio
www.paginauno.com
Else If InStr(1, Sitio, "www.paginauno.com", 1)<>0 Then
ServerName = "paginauno"
Else If InStr(1, Sitio, "paginauno.com", 1)<>0 Then
ServerName = "paginauno"
'Sitio
www.paginados.com
Else If InStr(1, Sitio, "www.paginados.com", 1)<>0 Then
ServerName = "paginados"
Else If InStr(1, Sitio, "paginados.com", 1)<>0 Then
ServerName = "paginados"
'Sitio
www.paginatres.com
Else If InStr(1, Sitio, "www.paginatres.com", 1)<>0 Then
ServerName = "paginatres"
Else If InStr(1, Sitio, "paginatres.com", 1)<>0 Then
ServerName = "paginatres"
Else ServerName = "home"
End If
End If
End If
End If
End If
End If
End If
Sitio = ServerName
response.redirect "" & Sitio
%>