[Resolvido] para criar uma tabela com recordset

[Adilson_Web_2007 0]

Olá pessoal boa tarde!

 

Eu to com um problema desde às 8 horas estou tentando fazer mas não consigo.

 

É o seguinte eu tenho uma busca onde o usuários pode reservar varias pasta de processo. Quando é exibido a mensagem que as pastas foram reservada com sucesso, vai um único e-mail com todad as informações para o pessoal que fica encarregado de pegar essas pasta. Ate aqui tudo bem minha dúvida ta na hora do e-mail eu gostaria que o e-mail fosse

 

formatado assim:

 

Nome do cliente Numero da pasta assunto código do cliente

 

abc 1 bla 10

 

caso ele reservase 10 pastas eu gostaria que as informações fossem para o email um em baixo do outro como eu mostrei.

 

Pois o email vai assim:

 

Nome do Cliente(s) : , Paulo Skaf

Número da Pasta(s) : ,3

Assunto(s) : , IR

Código do Cliente(s) : ,2

 

Alguém pode me ajudar por favor pois não si mais o que fazer.

 

Esse código é o que reserva as pastas e onde eu montava o corpo do e-mail com as informações

 

for i=0 to ubound(vet)
					 set rs_email = conexaoDataBase.execute("select cliente, pasta,assunto,cod from pessoa where cod= '"&vet(i)&"'")
					 email_cliente = email_cliente &","& rs_email("cliente") ' aqui contém as informações do corpo do email
					 email_pasta = email_pasta &","& rs_email("pasta")
					 email_assunto = email_assunto &","& rs_email("assunto")
					 email_cod = email_cod &","& rs_email("cod")	
 					 sqlTabela = "insert into reservaPasta(codigoPasta,nome,area,data,devolvido,cod_cliente,cliente)values('" & rs_email("pasta") & "' , '" & nome & "', '" & area & "' , '" & data & "' , '0' , '" & vet(i) & "' , '"&rs_email("cliente")&"')"
					 conexaoDataBase.execute(sqlTabela)	
					 sqlDisponivel = "update pessoa set disponivel = '" & disponivel & "'  where cod =' " & vet(i) & "' " 
					 conexaoDataBase.execute(sqlDisponivel)
				 contador = contador +1
				 
			   next

Eu tentei fazer assim mas fica todos na mesma coluna

 

objCDOSYSMail.HtmlBody = "Prezado(a) <br> Estamos informando que foi reservada "&contador&" pasta para o senhor(a): "&nome&" <br><br>Área : "&area&". <br><br> Dados do Cliente : <br><Br><table align='center' width='95%' id='tab' cellpadding='0' cellspacing='0' border='1'><tr class=linha><td>Nome do Cliente(s)</td><td>Número da Pasta(s) </td><td>Código Cliente(s)</td><td>Assunto(s)</td></tr><tr class=linha><td>"&email_cliente&"</td><td>"&email_pasta&"</td><td>"&email_cod&"</td><td>"&email_assunto&"</td></tr></table> "

Ficou assim

Os dois cliente na mesma coluna, se fosse 5 ficaria os 5

 

Nome do Cliente(s) Número da Pasta(s) Código Cliente(s) Assunto(s)

Bryan Morgan , Ari Glodeberg / Ruth Goldeberg 6,5 15,16 IR , IR

[DSerma 19]

Cara.. faça assim...

 

Monte uma tabela com os dados do jeito que você qr.. usando o "While".. como se fosse fazer a exebição em uma página ASP normal... mas.. armazene isso em uma variavel...

 

Depois.. é só atribuir o valor dessa variavel no Body do e-mail...

 

Abraços...

[dataset 0]

Se ta ficando na mesma coluna veja os teus <tr></tr> e <td></td>

 

Depois de formatar, aplique a solução que o Darkdemo postou.

 

Att;

[Adilson_Web_2007 0]

beleza mas como eu atribuo o wile a uma variavel?

[DSerma 19]

<%
variavel = "<table><tr><td> Celula 1 </td> <td> Celula 2 </td></tr>


While NOT Rs.EOF
variavel = variavel & "<tr><td>" & Rs("Nome") & "</td><td>" & Rs("Idade") & "</td></tr>"
Rs.MoveNext
Wend

%>

 

 

Abraços....

[Adilson_Web_2007 0]

Deu certo muito obrigado caramba só isso fiquei o quase o dia todo tentando fazer.

[DSerma 19]

Estamos aki pra isso...

 

Abraços...