Aspemail não manda os dados

[regitronic]

E aiw pessoal, fiz um form pra manda por e-mail porem o codigo está dando erro, é assim ele busca dados no bd e envia por e-mail, quando eu tiro o do while not e o loop beleza o e-mail vai certinho porem mostra so o primeiro registro do bd e eu preciso q ele envie todos os registros encontrados, o codigo é o a abaixo:

<!--#include file="conecta.asp"-->
<%
set rs = conexao.execute("SELECT * FROM pedidos WHERE num_pedido='"&request.QueryString("num_pedido")&"' AND cod_cliente='"&request.QueryString("cod")&"' AND vendedor='"&request.QueryString("nome")&"'")

corpo = corpo&" <style type=""text/css""> "
corpo = corpo&" <!--"
corpo = corpo&" .style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }"
corpo = corpo&" -->"
corpo = corpo&" </style>"
corpo = corpo&" <table width=""800"" height=""529"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td height=""135""><img src=""http://www.regitronic.com.br/config/imagens_conteudo/padrão/logo.gif"" width=""800"" height=""135"" /></td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td height=""347""><table width=""100%"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"">"
corpo = corpo&"      <tr>"
corpo = corpo&"        <td width=""13%""><div align=""center"" class=""style2"">CODIGO</div></td>"
corpo = corpo&"        <td width=""59%""><div align=""center"" class=""style2"">NOME</div></td>"
corpo = corpo&"        <td width=""17%""><div align=""center"" class=""style2"">QUANTIDADE</div></td>"
corpo = corpo&"        <td width=""11%""><div align=""center"" class=""style2"">VALOR</div></td>"
corpo = corpo&"      </tr>"
corpo = corpo&"      <tr>"
corpo = corpo&"        <td>"
corpo = corpo& do while not rs.eof
corpo = corpo&rs("codigo")
corpo = corpo&"          &nbsp;</td>"
corpo = corpo&"<td>"
corpo = corpo&rs("nome")
corpo = corpo&"&nbsp;</td>"
corpo = corpo&"       <td>"
corpo = corpo&rs("quantidade")
corpo = corpo&"         &nbsp;</td>"
corpo = corpo&" <td>"
corpo = corpo&rs("valor")
corpo = corpo&"       &nbsp;</td>"
corpo = corpo&" </tr>"
corpo = corpo&"<tr>"
corpo = corpo&rs.MoveNext 
corpo = corpo& loop
corpo = corpo&"        <td>&nbsp;</td>"
corpo = corpo&"        <td>&nbsp;</td>"
corpo = corpo&"        <td>&nbsp;</td>"
corpo = corpo&"        <td>&nbsp;</td>"
corpo = corpo&"      </tr>"
corpo = corpo&"    </table></td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td height=""19"" bgcolor=""#003466"">&nbsp;</td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  </table>"


set mail = server.createObject("Persits.MailSender")
mail.host = "smtp.meuserver.com.br"
mail.username = "contato@meuserver.com.br"
mail.password = "123"
mail.from = "e-mail@meuserver.com.br"
mail.fromname = "Meu Nome"
mail.addAddress request.Form("mail")
mail.addAddress "e-mail@meuserver.com.br"
mail.Subject = "assnto"
Mail.Body = corpo
mail.ishtml = true
On Error Resume Next
mail.send
if Err ><0 then
response.write "Erro, não pode completar a operação"
else
response.redirect("inicial.asp")
end if
set mail = nothing
%>

ERRO:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03EA)

Erro de sintaxe

/enviamail.asp, line 24, column 15

corpo = corpo& do while not rs.eof

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

[jgd]

Seu erro está em algum lugar dentro do laço

strCMD ="SELECT * tabela... "
set Rs = Con.execute(strCMD)
If Rs.EOF = true then
'nada

else
while not Rs.EOF

'codifo do aspmail
'abre objeto

'fechar objeto


Rs.MoveNext 
wend
end if

'fecha conexão

Procure exugar o código

JGD

[Bicicleta]

Procure pelas linhas a seguir no seu código

corpo = corpo& do while not rs.eof
corpo = corpo&rs.MoveNext
corpo = corpo& loop

E tire o "corpo = corpo&" da frente. Ficando assim:

do while not rs.eof
rs.MoveNext
loop

As linhas não estão em sequencia...

abraço