<% Dim ServerName, AllHTTPVariables, UserAgent HTTP_Host = Request.ServerVariables("HTTP_HOST") AllHTTPVariables = Request.ServerVariables("ALL_HTTP") UserAgent = Request.ServerVariables("HTTP_USER_AGENT") ' Response.Write AllHTTPVariables ' Response.Write ServerName If HTTP_Host = "home.hacke.nu" Then Response.Redirect "http://haxnet.no-ip.biz/home/" ElseIf HTTP_Host = "haxnet.hacke.nu" Then Response.Redirect "http://mera.hacke.nu/comics/default.asp" ElseIf HTTP_Host = "comics.hacke.nu" Then Response.Redirect "http://mera.hacke.nu/comics/default.asp" ElseIf HTTP_Host = "fira.hacke.nu" Then Response.Redirect "http://mera.hacke.nu/hacke30/default.htm" ElseIf HTTP_Host <> "mera.hacke.nu" Then Response.Redirect "http://mera.hacke.nu/index.php" 'Response.Write HTTP_Host End If Response.Redirect "http://mera.hacke.nu/index.php" %>