Código:
while Not oRst_Cor.EOF A=Trim(oRst_Cor("id_corresp")&",") Response.Write(Trim(oRst_Cor("id_corresp")&",")) oRst_Cor.MoveNext wend oRst_Cor.Close Set oRst_Cor = Nothing