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

