[Resolvido] Enviando E-mail com um while no corpo do email

Fala pessoal, mais uma vez eu aqui postando duvidas srsrs...

Eu fiz o carrinho de compra, tudo normal.. mas quando a pessoa clicar em salvar o pedido tem que ser enviado um email para o cliente informando os dados da compra etc.

No corpo do email tem que ir tambem a lista dos produtos. Então eu fiz um select etc.

set rs3 = conn.execute("select * from carrinho as a inner join produtos as b on a.idproduto=b.refproduto and a.cor=b.cor and a.tamanho=b.tamanho where a.idsession='"&Session.SessionID&"'")

E o email estou tentando enviar da seguinte forma.

set mensagem = server.createobject("CDONTS.NewMail")
mensagem.from = "Nome do email <email@dominio.com.br>"
mensagem.to = buscaCliente("email")
mensagem.Subject = "Confirmação pedido "&NumPedido("idpedido")&""
mensagem.bodyformat = 0
mensagem.mailformat = 0
mensagem.Body = while rs3.eof = false
response.Write(rs3("nome")&"<br>"&"Quantidade: "&rs3("quantidade"))
rs3.movenext
wend
mensagem.Send
Set objMail = nothing

Não da certo, aparece a mensagem de erro

Microsoft VBScript compilation error '800a03ea'

Syntax error

/clientes/projetopiloto/clubemarca/salvarpedido.asp, line 93

mensagem.Body = while rs3.eof = false

----------------^

Alguem poderia me ajudar ae...

valeu.