Funzione per eliminare parte di una stringa.

[Giubass]

Ciao ragazzi, avrei bisogno di un vostro aiuto.
Utilizzo la seguente funzione per recuperare il percorso completo di una pagina:

Function Percorso()
	
H = Request.ServerVariables("HTTPS")

If H = "ON" Then
    
	A = "https://"
    
Else
    
	A = "http://"
		
End If
    

B = Request.ServerVariables("SERVER_NAME")

C = Request.ServerVariables("PATH_INFO")

D = Request.ServerVariables("QUERY_STRING")

percorso = A + B + C
	
If D = "" Then
	percorso = A + B + C
Else
	percorso = percorso + "?" + D
End If
	
End Function

Come avete potuto vedere recupero anche tutto quello che c'è in querystring, ed è proprio quì il problema, mi spiego meglio...

Ipotizziamo di avere un percorso di questo genere:

http://www.miosito.it/pagina.asp?link=1&sezione=prova

la mia funzioncina recupera perfettamente tutto l'indirizzo solo che vorrei omettere da tale indirizzo sempre se è presente la stringa link=1, quindi recuperare tutto l'indirizzo compreso i valori in querystring tranne la variabile link ed il suo relativo valore, cioè questo:

http://www.miosito.it/pagina.asp?sezione=prova

Non so se mi sono spiegato bene :master:

Grazie

[Mems]

usa la funzione replace
stringa = replace(stringa, bloccoDaTogliere, bloccoInSostituzione)

[Giubass]

Originariamente inviato da Mems
usa la funzione replace
stringa = replace(stringa, bloccoDaTogliere, bloccoInSostituzione)

Scusa Mems, dovrei prima tramite un if capire se il blocco esiste e sostituirlo con niente visto che dovrei eliminarlo, mentre se non c'è lasciare il percorso inalterato.

Ma non so come...

[Mems]

blocco = "link=1"
if inStr(stringa,blocco) > 0 then stringa = replace(stringa,blocco,"")

[Giubass]

Originariamente inviato da Mems

blocco = "link=1"
if inStr(stringa,blocco) > 0 then stringa = replace(stringa,blocco,"")

Grazie Mems

Adesso vediamo cosa combino...