<% strQueryString = Request.QueryString scriptname = split(request.servervariables("SCRIPT_NAME"),"/") strScript = scriptname(ubound(scriptname)) strRedirect = "http://www.orientbeachadultforum.com/" & strScript If Len(Trim(strQueryString)) Then strRedirect = strRedirect & "?" & StrQueryString End If Response.Status="301 Moved Permanently" Response.AddHeader "Location", strRedirect Response.End %> <% Response.Redirect "http://www.orientbeachadultforum.com" %>