<% Dim s301RedirectHOST, s301RedirectURL s301RedirectHOST = Request.Servervariables("HTTP_HOST") s301RedirectURL = "http://" & s301RedirectHOST & Request.Servervariables("SCRIPT_NAME") s301RedirectURL = replace(s301RedirectURL,"index.asp","default.asp",1,-1,1) Response.Buffer = False Response.Status = "301 Moved Permanently" Response.AddHeader "Location", s301RedirectURL Response.End %>