<% If InStr(Request.ServerVariables("SERVER_NAME"),"www") = 0 Then Response.Status="301 Moved Permanently" Response.AddHeader "Location","http://www.allshore.com" & Request.ServerVariables("SCRIPT_NAME") End if %>