Hola
Solo has de concatenar los valores de cada vuelta
Código asp:
Ver originalA = ""
while Not oRst_Cor.EOF
A= A & Trim(oRst_Cor("id_corresp")& ","
oRst_Cor.MoveNext
wend
%>
<input type="text" value="<%=A%>">
<%
oRst_Cor.Close
Set oRst_Cor = Nothing
Suerte