Armazenar resultados de um WHILE dentro de uma SESSION

Olá,

Como faço para armazenar todo o resultado de uma WHILE dentro de uma SESSION?

DocCL = RSarquivos("documento")
VencCL = RSarquivos("dataVENC")

While Not RSarquivos.EOF

 "Documento: "&DocCL&" | Vencimento: "&VencCL&"<br>"
 RSarquivos.MoveNext

Session("listaDOC") = ???