redirect af subdomæne(r)

Jeg har fundet et script i et andet spørgsmål (http://www.eksperten.dk/spm/17308):

<%

sti = request.ServerVariables("http_host")

if left(sti, 7) = "http://" then
sti = right(sti, len(sti)-7)
end if
if left(sti, 4) = "www." then
sti = right(sti, len(sti)-4)
end if
sti2 = sti
if instr(sti2, ".") > 0 then
sti2 = left(sti2, instr(sti2, ".") - 1) & right(sti2, len(sti2) - instr(sti2, "."))
end if
if instr(sti2, ".") > 0 then
subdomain = left(sti, instr(sti, ".") - 1)
end if

if len(subdomain) = 0 then
response.redirect "default/default.asp"
else
response.redirect subdomain & "/default.asp"
end if

%>

Jeg har et problem med det.
Når jeg går ind på f.eks. test.domæne.dk, så redirect'er den til test.domæne.dk/test/default.asp.

Den skulle redirecte til www.domæne.dk/test