vabbè, ho scritto questa funzioncina durante la pausa caffè... non so se sia la soluzione più conveniente, ma la condivido... la funzione accetta una querystring (Origine), il nome del parametro da modificare (Parametro), il nuovo valore da dare al parametro (valore)
codice:
Function ModificaParametroQS(Origine, Parametro, Valore)
splittata = Split(Origine, "&")
For t = LBound(splittata) To UBound(splittata)
splittemp = Split(splittata(t), "=")
If splittemp(LBound(splittemp)) = Parametro Then
splittata(t) = splittemp(LBound(splittemp)) & "=" & Valore
End If
ModificaParametroQS = ModificaParametroQS & splittata(t) & "&"
Next t
ModificaParametroQS = Left(ModificaParametroQS, Len(ModificaParametroQS) - 1)
End Function
ciao