<% Dim Host dim ServerDir dim PageURL Dim contentsWidth, newsWidth host = lcase (request.servervariables("SERVER_NAME")) serverDir = "" SELECT CASE host 'this example directs the domains www.apple.com and apple.com to a folder called /apple CASE "www.the-pools.info" serverdir="/familyportal" CASE "the-pools.info" serverdir="/familyportal" ' this directs all other domains and IP addresses to a folder called /main ' CASE else ' serverdir="default.asp" end SELECT if serverdir > "" then response.redirect serverDir %> www     world wide web                             commandvideo          on

 

www    
                 commandvideox
                               com
Word of the Day

Quote of the Day

Article of the Day

This Day in History

Today's Birthday

In the News

   

 check check check check check check check check