[Resolvido] remover variáveis de uma QueryString

[xanburzum 169]

A função usada para remover as variáveis específicas de um QueryString. Por exemplo, se você tem index.asp? Teste = 1 e outro = 122 & mais = 312 chamando para "quebrar" a querystring e retornar a variável.

 

Private Function QuebrarQuery(QueryField, QueryString)

	dim pos1, pos2, strLeftOvers, strRightOvers
	
	If QueryString <> "" Then
		pos1 = instr(QueryString, QueryField)
		strLeftOvers = left(QueryString, pos1-2)
		strRightOvers = mid(QueryString, pos1)

		pos2 = instr(strRightOvers, "&")

		if pos2 > 0 then
			QueryString = strLeftOvers & mid(strRightOvers, pos2)
		else
			QueryString = strLeftOvers
		end if
	End If
	QuebrarQuery = QueryString

End Function