<%@ Language=VBScript %> <% Dim cPageQueryString cPageQueryString = Trim(Request.ServerVariables("QUERY_STRING")) Response.Status="301 Moved Permanently" Response.AddHeader "Location","/ProdList.asp?" & cPageQueryString %>