<%@ Language=VBScript %> <% dim aluguel, venda, tipo, url, url1, url2, url3, url4,url5, residencial, comercial aluguel = request.querystring("aluguel") venda = request.querystring("venda") tipo = request.querystring("tipo") residencial = request.querystring("residencial") comercial = request.querystring("comercial") url = "http://sergiosampaio.com.br/busca-de-imovel.php?p=1&" If aluguel <> "" Then url1 = "a=on&" End If If venda <> "" Then url2 = "v=on&" End If If residencial <> "" Then url3 = "tr=on&" End If If comercial <> "" Then url4 = "tc=on&" End If urlFinal = url & url1 & url2 & url3 & url4 & url5 Response.Status="301 Moved Permanently" Response.AddHeader "Location", urlFinal %>