Domanda trita e ritrita - Rimuovere ultimo carattere stringa

[diessebs]

Ciao a tutti, scusate se vi faccio una domanda che sicuramente sarà stata fatta centinaia di volte ma non riesco a venire fuori da questo script..
Ho questo script all'interno di un loop che in pratica mi elenca le nazioni visitate per ogni viaggio

<%
FilterParam = rsSearchRes.Fields.Item("IDTR").Value
rsNazioniVisitate.Filter = "IDTR=" & FilterParam
While (NOT rsNazioniVisitate.EOF)
response.Write((rsNazioniVisitate.Fields.Item("KEY N").Value)&",")
rsNazioniVisitate.MoveNext()
Wend
%>

da cui ricavo una lista del tipo:

viaggio 1
marocco, tunisia,

viaggio 2
cina, mongolia, cambogia,

ecc.. ecc..

Quello che vorrei fare e ci sto impazzendo, levare l'ultima virgola..

Grazie anticipatamente

[Grambo]

<%
FilterParam = rsSearchRes.Fields.Item("IDTR").Value
rsNazioniVisitate.Filter = "IDTR=" & FilterParam
While (NOT rsNazioniVisitate.EOF)
testo=(rsNazioniVisitate.Fields.Item("KEYN").Value)&","
rsNazioniVisitate.MoveNext()
Wend
testo=replace(right(testo,1),"")
response.write test
%>

non ho mai provato a farlo così, mi è venuto in mente ora prova XD


altrimenti ho quella che uso sempre:

testo=left(testo,(len(testo)-1))

[Roby_72]

<%
FilterParam = rsSearchRes.Fields.Item("IDTR").Value
strNazioni = ""
rsNazioniVisitate.Filter = "IDTR=" & FilterParam
While (NOT rsNazioniVisitate.EOF)
if strNazioni = "" then
strNazioni = rsNazioniVisitate.Fields.Item("KEYN").Value
else
strNazioni = strNazioni  &", "& rsNazioniVisitate.Fields.Item("KEYN").Value
end if
response.Write(strNazioni)
rsNazioniVisitate.MoveNext()
Wend
%>

Roby

[diessebs]

Grazie Roby funge alla grande, ho fatto una correzione .... caffè pagato se passi da BS

[Roby_72]

Originariamente inviato da diessebs
Grazie Roby funge alla grande, ho fatto una correzione .... caffè pagato se passi da BS

Beh si è comodo...

Roby