Redirect domæne til subfolder

Jeg har denne funktion i en portal, som opsnapper indkomne domænenavne. Her kan jeg sende domænenavne videre til fx subfoldere. Men så bibeholdes domænenavnet ikke.

Nogen der ved hvordan man kan redirecte til subfoldere og bibeholde domænenavnet i Adressefeltet på browseren?

(SEO venligt, tak. Det må selvfølgelig ikke pakkes ind i et frame, som man gjorde for 10 år siden ;)

Dim URLhost
Select Case Replace(LCase(Request.Url.Host),"www.","")
    Case "mitdomaene.dk"
        Response.Status = "301 Moved Permanently"
        Response.AddHeader("Location", "mitdomaenefolder")
    Case "andetdomaene.dk"
        Response.Status = "301 Moved Permanently"
        Response.AddHeader("Location", "http://hovedsitet.dk")
End Select
If InStr(Request.Url.Host,"www.") Then
    Response.Redirect("http://" & Replace(LCase(Request.Url.Host),"www.",""))
End If