<%
'[Settings]
bDisplay = 1 ' use 1 for frameset, 0 for redirect
sTag = "" ' default tag
'[Parse]
sQD = Replace(Request.ServerVariables("SERVER_NAME"), "'", "''")
sQD = Replace(sQD, "\", "\\")
' get just the FQDN from the server name
Dim rv
Set rv = New RegExp
rv.Global = True
rv.MultiLine = True
rv.IgnoreCase = True
rv.Pattern = "([a-zA-Z0-9\-\_]*\.[a-zA-Z]*)$"
If rv.Test(sQD) Then
sDom = rv.Execute(sQD)(0).Value
sTag = Replace(sQD, sDom, "")
End If
Set rv = Nothing
'[Redirect]
sUrl = "http://" & sDom & "/?user=" & sTag
If bDisplay = 0 Then
' straight redirect
' replaces "joe.example.com" with "example.com/?user=joe"
Response.Redirect sUrl
Else
' frame
' preserves "joe.example.com" within address bar
Response.Write "<html>" & vbCrLf
Response.Write "<frameset cols=""100%"">" & vbCrLf
Response.Write " <frame src=""" & sUrl & """ />" & vbCrLf
Response.Write "</frameset>" & vbCrLf
Response.Write "</html>"
End If
%>