<input type=text value="<% while Not oRst_Cor.EOF Response.Write(Trim(oRst_Cor("id_corresp")&",")) oRst_Cor.MoveNext wend oRst_Cor.Close Set oRst_Cor = Nothing %>">