It seems that it is not used. But put it here, I am afraid of useful.
<% Server_name = request.servervariables ("server_name") for i = 1 to Len (Server_name) IF MID (Server_Name, I, 1) = "." THEN EXIT for User = User & Mid (Server_Name, I, 1) Next Domain = Replace (Server_Name, User & ".", "" IF domain = "z173.com" the response.Redirect "z173.com/index.asp" end if%>