Subdomain!

Hvorfor dælen virker dette ikke:

<%

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.Write("<FRAMESET FRAMEBORDER=""0"" FRAMESPACING=""0"" BORDER=""0"" ROWS=""100%,*"" COLS=""100%"">")
Response.Write("<FRAME SRC=""&subdomain&"/" NAME=""Center"" SCROLLING=""auto"">")
Response.Write("</FRAMESET>")
end if
%>