'**************************************
    ' Name: Multiple Web Sites on one IP
    ' Description:In IIS 5.x (XP or 2k) the 
    '     user is only permitted one web site. 
    This is a work around that allows multiple web sites To be hosted on oneIP.
    ' By: Richard J Mackey
    '
    ' Assumes:In my situation I am using a D
    '     NS to point all 3 of my sites to my sing
    '     le IP. I then have a default.asp page th
    '     at handles the re-direction to the prope
    '     r start page
    For the website requested.
    My deault.asp (With the url's changed To protect the innocent).
    The key parts:
    The use of the Web_Site_#. 
    This is used 6 times With the only change being
    the use (obviously) of the name of your website.
    In my Case it also included the use of three
    different web types( .com, .us, and .net ).
    You will notice the use of one instance where the
    url does Not have the "www" While the other does.
    This allows web surfers To find your page With or
    With out the use of the "www" In their browser.
    The use of three redirect pages.
    When the if statement finds a match the ASP code
    redirects the browser To the proper start page For that site. The url of the website(less the actual page address is displayed In the surfers browser and they are none the wiser that they were redirected.
    The final Else which redirects To index.htm sends the surfer to my main IP address which has links to all three sites. This is the page that all surfers will see if they enter just my IP address. You can put anything in your index.htm that you like.
    My first submission so please be kind.
    if you have questions or advise feel free To contact me.
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=8632&lngWId;=4    'for details.    '**************************************
    
    <%@ Language = "VBScript" %>
    <% Response.Buffer = True %>
    <%if Request.ServerVariables("HTTP_HOST")="Web_Site_One.com" or
    Request.ServerVariables("HTTP_HOST") = "www.Web_Site_One.com" Then
    Server.Execute("Web_Site_One.htm")
    ElseIf 
    Request.ServerVariables("HTTP_HOST")="Web_Site_Two.us" or
    Request.ServerVariables("HTTP_HOST")="www.Web_Site_Two.us" Then 
    Server.Execute ("Web_Site_Two.htm") 
    ElseIf Request.ServerVariables("HTTP_HOST")="Web_Site_Three.net" or
    Request.ServerVariables("HTTP_HOST")="www.Web_Site_Three.net" Then 
    Server.Execute ("Web_Site_Three.htm")
    else
    Server.Execute ("index.htm")
    End if %>