'**************************************
    ' Name: Domain Redirect
    ' Description:This is a basic redirectio
    '     n script based on the domain name. It is
    '     usefull if you are hosting multiple site
    '     s from one IP address.
    ' By: Darryl Brown
    '
    ' Assumes:Insert your site names in the 
    '     Select Case statement to replace the You
    '     r-Site, Your-Next-Site & Default-Site te
    '     xt. You can add to the select case for a
    '     dditional sites.
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=6125&lngWId=4    'for details.    '**************************************
    
    <%@ Language=VBScript %>
    <% response.buffer = True %>
    <%
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    '     ~~~~~~~~~~
    '~ Script:	| Domain Redirect			
    '~ Language:	| ASP/VBScript				
    '~ Version:	| 1.0					
    '~ By:		| Darryl A. Brown			
    '~ Contact:	| Brown@LunarTech.com			
    '~ Copyright:	| Darryl A. Brown			
    '~ Released:	| April 12, 2000			
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    '     ~~~~~~~~~~
    '~ By using this software, you have agre
    '     ed to the license	
    '~ agreement packaged with this program.
    '     This script is	
    '~ provided without warranty.				
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    '     ~~~~~~~~~~
    'Set up the redirect variables
    Dim strURL		'This is the URL the user typed into the browser
    Dim strSiteName	'This is the domain name
    Dim intEPos		'This is the position of the remaining dot
    
    strURL = Request.servervariables("HTTP_HOST")
    
    intURLLen = len(strURL)
    if inStr(1, UCase(strURL), "WWW") > 0 Then
    strURL = Right(strURL, (intURLLen - 4))
    End if
    
    intEPos = inStr(1, strURL, ".")
    
    strSiteName = UCase(Mid(strURL, 1, (intEPos - 1)))
    
    'Insert your site names in the Select Ca
    '     se statement below to
    'replace the Your-Site, Your-Next-Site &
    '     Default-Site text.
    'Feel free to add to the select case for
    '     additional sites. 
    Select Case strSiteName
    Case "Your-Site"
    Response.redirect "http://www.Your-Site.com"
    Case "Your-Next-Site"
    Response.redirect "http://www.Your-Next-Site.com/sitedir"
    Case Else
    Response.redirect "http://www.Default-Site.com/home.html"
    End Select
    %>