mehrere domains und subdomains

[katze]

zurzeit habe ich diesen script als "urlredirect"
je nach domain wird eine andere startseite angetzeigt.

<%@ Language=VBScript %>
<%
' Set up your variables
Dim sURL
' Get the domain name typed in the browser.
sURL = Request.ServerVariables("HTTP_HOST")
' Do the redirecting stuff
Select Case sURL
    Case "www.domaina.ch"
        Response.Redirect "http://" & sURL & "/domaina.htm"
    Case else
        Response.Redirect "http://" & sURL & "/domainb.htm"
End Select
%>

==
Nun möchte ich dies machen. Geht dies so mit dem Script?
mehrere Domains und Subdomains.

<%@ Language=VBScript %>
<%
' Set up your variables
Dim sURL
' Get the domain name typed in the browser.
sURL = Request.ServerVariables("HTTP_HOST")
' Do the redirecting stuff
Select Case sURL
    Case "www.domaina.ch"
        Response.Redirect "http://" & sURL & "/domaina.htm"
    Case "sub1.domaina.ch"
        Response.Redirect "http://" & sURL & "/domainasub1.htm"
    Case "sub2.domaina.ch"
        Response.Redirect "http://" & sURL & "/domainasub2.htm"
    Case else
        Response.Redirect "http://" & sURL & "/domainb.htm"
End Select
%>