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
Wend


Session("listaDOC") = ???