'301 Redirect - URL Must Contain www.domain.com
CorrectDomain = "www.domain.com"
DefaultPage = "/index.asp"
QueryStrings = request.ServerVariables("QUERY_STRING")
URL = request.ServerVariables("URL")
	
if instr(request.ServerVariables("SERVER_NAME"),CorrectDomain) = 0  then
    
    if QueryStrings <> "" then
        QueryStrings = "?" &amp; QueryStrings
    end if
   
    if instr(URL,DefaultPage) then
        URL = replace(URL,DefaultPage,"/")
    end if
   
    response.Status = "301 Moved Permanently"
    response.AddHeader "Location","http://" &amp; CorrectDomain &amp; URL &amp; QueryStrings
    response.End
       
end if

http://www.nealgrosskopf.com/tech/thread.asp?pid=22

Learn how to create a 301 redirect for domain or home variations to improve your websites' search engine optimization.

How To Create A 301 Redirect For Domains Or Home Page Variances

ASP

ASP