<% Dim value As String value = Request.QueryString("id") Response.Status="301 Moved Permanently" Response.AddHeader ( "Location","http://assawsana.com/portal/pages.php?newsid="+value ) %>