Lite mer avanserat script som du även kan ha flera unika webbsidor på samma konto utan att du har flera webbhotellskonton fungerar på windows
'**************************************
' Name: Multi Domain Redirect
' Description:If you have multiple domai
' n names pointing to the same web site, t
' his code will allow you to redirect the
' user to a subdirectory based on the web
' address then type in the browser.
' By: Glenn C.
'
'
' Inputs:None
'
' Returns:None
'
'Assumes:None
'
'Side Effects:None
'This code is copyrighted and has limite
' d warranties.
'Please see
http://www.Planet-Source-Cod
' e.com/xq/ASP/txtCodeId.6349/lngWId.4/qx/
' vb/scripts/ShowCode.htm
'for details.
'**************************************
<%@ Language=VBScript %>
<%
' Set up your variables
Dim sURL, sPath
' Get the domain name typed in the brows
' er.
sURL = Request.ServerVariables("HTTP_HOST")
' Get the rest of the path after the dom
' ain name.
sPath = Request.ServerVariables("PATH_INFO")
' Based on the domain name, redirect the
' user
' to the correct directory and attach th
' e rest
' of the path.
Select Case sURL
Case "www.maindomain.com", "maindomain.com"
' Ignore...this is the current site.
Case "www.domain2.com", "domain2.com"
' redirect to the "domain2" directory
Response.Redirect "domain2" & sPath
Case "www.domain2.net", "domain2.net"
' redirect to the "domain2net" directory
'
Response.Redirect "domain2net" & sPath
End Select
%>