<% Dim textlength,nonslashtext,rURL textlength = Len(Request.ServerVariables("SCRIPT_NAME")) nonslashtext = textlength - 1 rURL = Right(Request.ServerVariables("SCRIPT_NAME"),nonslashtext) & "?" & (Request.ServerVariables("QUERY_STRING")) rURL = replace(rURL,".asp?",".aspx?") rURL = replace(rURL,".htm?",".aspx?") rURL = replace(rURL,".html?",".aspx?") Response.Redirect(rURL) %>