Viktig fråga ang. www och andra saker?

Hej :)
Jag har en domän (https://www.listmygames.net)
Jag ger ut en adress till varje medlem om att dom kan skriva:
http://medlem.listmygames.net

Så kommer dom och andra till deras profil.
Men nu kommer problemet ;) Jag har en kod som funkat förut men nu när man skriver t.ex: http://znyder.listmygames.net så vill den inte visa sidan... :(

Här är koden:

<%
ServerName = Request.ServerVariables("SERVER_NAME") 
arrDefaultSubs = Array("www","@") 
tmpLevelArr = Split(ServerName,".") 
 
If Ubound(tmpLevelArr) = 1 Then 
     subHost = "@" 
ElseIf Ubound(tmpLevelArr) > 1 Then 
     subHost = tmpLevelArr(Ubound(tmpLevelArr)-2) 
End If 
 
defaultSubHost = False 
 
For i = 0 To Ubound(arrDefaultSubs) 
     If arrDefaultSubs(i) = subHost Then 
          defaultSubHost = True 
     End If 
Next 
 
If defaultSubHost = False Then 
%>
<FRAME SRC="medlem.asp?user=<%=subHost%>" NAME="main" SCROLLING="yes">
<%
ELSE
%>
<FRAME SRC="hem.asp" NAME="online">
<%
End If
%>

Vill gärna ha hjälp då medlemmarna gärna vill ha denna funktion ;) Tack på förhand