Yo lo haria de esta manera ....
Código:
Dim Servidor
Servidor = Request.ServerVariables("SERVER_NAME")
Select Case Servidor
Case "http://www.dominio.com", "http://dominio.com"
Response.Redirect "dominio.com/index.asp" 'o lo que sea
Case "http://www.dominio2.com", "http://dominio2.com"
Response.Redirect "dominio2.com/index.asp"
Case Else ' Si lo que biene no corresponde a ninguno mandas al principal
Response.Redirect "aca pones la dire del principal"
End Select
Espero te sirva