'global variables for 301 redirect
dim gb301redirect,_               'true/false - true = 301 redirect must be performed
    gs301redirectprotocol,_       'secured (https://) = port 443 or unsecured = port 80
    gs301redirecthost,_           'the redirect host (or domain)
    gs301redirectpathandscript,_  'the path (sub directories) and script name
    gs301redirectqs,_             'the url parameters or query string
    gs301homehost                 'default host name (only relevant if you have  
                                  'multiple domains pointing to one website)
 
gs301homehost = "mysite.com"																	
 
Call sysdetermine301redirhostandprotocol()
Call syscheckisprimaryhost()