Aí galera requisições de formulário são sempre bem chatos então segue mais uma montada por mim hehehehe...
| CODE |
| function MontarQuery(campo,valor) for each item in request.QueryString if not item = campo then NovaQuery = NovaQuery & concatena & item & "=" & Request.QueryString(item) else NovaQuery = NovaQuery & concatena & item & "=" & valor end if concatena = "&" next if instr(NovaQuery,campo) = 0 then if NovaQuery = "" then NovaQuery = campo & "=" & valor else NovaQuery = NovaQuery & "&" & campo & "=" & valor end if end if MontarQuery = NovaQuery NovaQuery = null concatena = null end function |