Togliere una virgola alla fine di una stringa

[ivanhalen]

Salve,
Ho questa porzione di codice:

Dim bufferdata
bufferdata = objRS.GetRows()
numcols = ubound(bufferdata, 1)
numrows = ubound(bufferdata, 2)
For i = 0 To numrows
fielddata = bufferdata(0, i)
if (trim(fielddata) <> "") AND (NOT isnull(fielddata)) Then
response.write("'" & fielddata & "',")
End If
Next

Che mi crea una stringa del tipo " 'pippo','gianni','aloisio','armando', "
Il problema è che io NON voglio la virgola che inevitabilmente viene aggiunta alla fine della stringa (devo usare la stringa in una query del tipo: WHERE MYFIELD NOT IN (<stringa>), e la virgola finale mi causa un errore): come faccio?

Grazie in anticipo per le risposte...

[optime]

senzavirgola=left(convirgola, len(convirgola)-1)

[ivanhalen]

Certe volte mi perdo in un bicchiere d'acqua... Grazie, Optime!

[optime]

(sh)it happens!