inserir um novo valor a um campo que foi enviado por querystring

[dnlmosilva]

Aí galera requisições de formulário são sempre bem chatos então segue mais uma montada por mim hehehehe...

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

para chamar essa função faça apenas:

- MontarQuery("nome do campo que você deseja alterar","novo valor para o campo")

Esta função tem a finalidade de inserir um novo valor a um campo que foi enviado por querystring, caso ele exista, e se ele não existir insere o campo a mesma...

Qualquer duvida entre em contato ok?!

[]s Daniel