Armazenar resultados de um WHILE dentro de uma SESSION

Helinho Coelho · Dezembro 18, 2014

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") = ???

leodiegoo · Dezembro 18, 2014

Cria uma váriavel antes.

Dim variavel As String 
While Not RSarquivos.EOF
    variavel = "Documento: "&DocCL&" | Vencimento: "&VencCL&"<br>"
    "Documento: "&DocCL&" | Vencimento: "&VencCL&"<br>"
    RSarquivos.MoveNext
Wend


Session("listaDOC") = variavel

Helinho Coelho · Dezembro 18, 2014

Olá leodiegoo, obrigado pelas informações!

Eu fiz de acordo com as suas instruções mas deu o seguinte erro:

Erro de compilação do Microsoft VBScript erro '800a0401'

Fim da instrução esperado

/sistema/atualizar.asp, linha 205

Dim variavel As String
------------^

xanburzum · Dezembro 18, 2014

tire o As String, deixe apenas dim, mas antes sete o Option Explicit no 1ª linha do code. vc também pode jogá-lo dentro de um array, depois pode recuperar

Helinho Coelho · Dezembro 19, 2014

Xanburzum,

Fiz as alterações de acordo com sua sugestão e entrou em um tipo de "loop eterno" não roda a página e dá "Tempo limite de script expirado".

O código pega todos os E-MAILS de uma mesma REMESSA e agrupa de forma a enviar apenas 1 e-mail de notificação ao invés de vários, caso o cliente esteja inserido na remessa mais de uma vez. Até aí tudo bem, isso tá funfando legal (RSemail). O problema é que eu quero enviar também a lista de arquivos do cliente caso haja mais de um arquivo dentro da remessa. Um vai, mas quando tem mais de um não estou conseguindo imprimir. Só estou querendo que a variavel "listaDOC" seja preenchida com o WHILE / WEND do RSarqCL apontado pelas setas. Abaixo está o código da página:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>
<!--#include file="../Connections/conexao.asp" -->

<%
	Dim quemCheck, checkup, RSdoc, RSemail, RSarqCL, nRM, MailCL, NomeCL, TipoCL, VencCL, Frase, ArqLoop, listaDOC
	quemCheck = Request.QueryString("nomeCheck")
	nRM = Request.QueryString("nRM")
	checkup = "1"

	Set RSdoc = conexao.Execute("SELECT * FROM arquivos WHERE numRemessa = '"&nRM&"' ")
	Set RSemail = conexao.Execute("SELECT * FROM arquivos INNER JOIN usuarios ON (usuarios.cod_cliente = arquivos.cod_cliente) WHERE arquivos.numRemessa = '"&nRM&"' GROUP BY usuarios.email ")
	Set RSarqCL = conexao.Execute("SELECT * FROM arquivos INNER JOIN usuarios ON (usuarios.cod_cliente = arquivos.cod_cliente) WHERE arquivos.numRemessa = '"&nRM&"' GROUP BY usuarios.email ")


		While Not RSemail.EOF

			MailCL = RSemail("email")
			NomeCL = RSemail("apelido")
			TipoCL = RSarqCL("txt_tipo")
			VencCL = RSarqCL("dataVENC")

			On Error Resume Next


>>>>>>>>>AQUI>>>>>>>>>	While Not RSarqCL.EOF
			  ArqLoop = "Documento:"&TipoCL&" | Vencimento:"&VencCL&"<br>"
			  RSarqCL.MoveNext
			Wend
			Session("listaDOC") = ArqLoop
>>>>>>>>>AQUI>>>>>>>>>	listaDOC = Session("listaDOC")
			
			
			Set objCDOSYSconf...
			(*aqui vem o código de configurações de SMTP)
			... objCDOSYSmail.Subject = ""&NomeCL&" - Novo documento disponibilizado"

			strBody = "" & _
			""&Frase&"" & _
>>>>>>>>>AQUI>>>>>>>>>	""&listaDOC&"" & _
			"<br><br>" & _
			"Acesso: <a href='sistema'>clique aqui para acessar o sistema!</a><br><br>" & _
			"<font size='3' color='#BEBEBE'><i><b>OBS:</b> caso esta mensagem tenha caído em sua caixa de SPAM ou Lixo Eletrônico adicione o e-mail <b>email@email.com.br</b> à sua lista de contatos!</i></font>"

			objCDOSYSMail.HTMLBody = strBody
			objCDOSYSMail.Send 

			Set objCDOSYSMail = Nothing 
			Set objCDOSYSConf = Nothing

			RSemail.MoveNext
		Wend

xanburzum · Dezembro 20, 2014

os outros arquivos são grandes, qual o tamanho ? dependendo de seu host ele pode bloquear, verifique o limite máximo de tamanho para envio de arquivo.

Helinho Coelho · Dezembro 20, 2014

Bom dia! O código não envia arquivo nenhum, somente a informação de quais arquivos estão no sistema. Dispara apenas o registro do banco de dados, apenas caracteres em um corpo de e-mail.

Helinho Coelho · Dezembro 21, 2014

Você tem alguma dica de como fazer funfar com Array?

Helinho Coelho · Dezembro 21, 2014

Com o código mais abaixo eu consigo enviar um e-mail para o cliente que chega da seguinte forma:

<-- como chega o e-mail para o cliente (inicio) -->

Olá! Você tem disponível novo DOCUMENTO de seu interesse no site.

Documento: INSS/PIS | Vencimento: 02/11/2015

Acesso: clique aqui para acessar o sistema

OBS: caso esta mensagem tenha caído em sua caixa de SPAM ou Lixo Eletrônico adicione o e-mail dominio@dominio.com.br à sua lista de contatos!

<-- como chega o e-mail para o cliente (fim) -->

Abaixo está o código ASP para o envio. Onde está a indicação (>>>>>>> AQUI >>>>>>>) mostra o WHILE que funciona corretamente mas não estou conseguindo fazer-lo ficar com todos os registros de Documento/Vencimento dentro da string "listaDOC".

Note que acima, no e-mail do cliente (em vermelho), o código só retorna um registro apenas (Documento: INSS/PIS | Vencimento: 02/11/2015) sendo que no caso ele tem mais registros de documentos no sistema.

	Dim quemCheck,checkup,RSdoc,RSemail,RSarqCL,RSloop,SQL,nRM,MailCL,NomeCL,TipoCL,VencCL,Frase,ArqLoop,listaDOC
	quemCheck = Request.QueryString("nomeCheck")
	nRM = Request.QueryString("nRM")
	checkup = "1"

	Set RSdoc = conexao.Execute("SELECT * FROM arquivos WHERE numRemessa = '"&nRM&"' ")
	Set RSemail = conexao.Execute("SELECT * FROM arquivos INNER JOIN usuarios ON (usuarios.cod_cliente = arquivos.cod_cliente) WHERE arquivos.numRemessa = '"&nRM&"' GROUP BY usuarios.email ")
	Set RSarqCL = conexao.Execute("SELECT * FROM arquivos INNER JOIN usuarios ON (usuarios.cod_cliente = arquivos.cod_cliente) WHERE arquivos.numRemessa = '"&nRM&"' GROUP BY usuarios.email ")

		While Not RSemail.EOF
			MailCL = RSemail("email")
			NomeCL = RSemail("apelido")
			TipoCL = RSarqCL("txt_tipo")
			VencCL = RSarqCL("dataVENC")

			On Error Resume Next
			
			If RSdoc("cod_cliente") = "99999" Then
				Frase = "<p><b>Olá! Você tem disponível novo COMUNICADO de seu interesse no site.</b></p>"
			Else
				Frase= "<p><b>Olá! Você tem disponível novo DOCUMENTO de seu interesse no site.</b></p>"
			End If
			
			
>>>>>>> AQUI >>>>>>>	While Not RSarqCL.EOF
				ArqLoop = "Documento: "&TipoCL&" | Vencimento: "&VencCL&"<br>"
				RSarqCL.MoveNext
			Wend
>>>>>>> AQUI >>>>>>>	listaDOC = ArqLoop
			
			
			Set objCDOSYSconf = CreateObject("cdo.configuration")
			objCDOSYSconf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
			objCDOSYSconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-web.dominio.net"
			objCDOSYSconf.Fields.Update

			Set objCDOSYSmail = CreateObject("cdo.message")
			objCDOSYSmail.configuration = objCDOSYSconf
			objCDOSYSmail.BodyPart.Charset = "UTF-8" 
			objCDOSYSmail.From = "dominio@dominio.com.br"
			objCDOSYSmail.To = MailCL
			objCDOSYSmail.Subject = ""&NomeCL&" - Novo documento disponibilizado"

			strBody = "" & _
			""&Frase&"" & _
>>>>>>> AQUI >>>>>>>	""&listaDOC&"" & _
			"<br><br>" & _
			"Acesso: <a href='http://www.dominio.com.br/sistema'>clique aqui para acessar o sistema.</a><br><br>" & _
			"<font size='3' color='#BEBEBE'><i><b>OBS:</b> caso esta mensagem tenha caído em sua caixa de SPAM ou Lixo Eletrônico adicione o e-mail <b>email@email.com.br</b> à sua lista de contatos!</i></font>"

			objCDOSYSMail.HTMLBody = strBody
			objCDOSYSMail.Send 

			Set objCDOSYSMail = Nothing 
			Set objCDOSYSConf = Nothing

			RSemail.MoveNext
		Wend

xanburzum · Dezembro 22, 2014

provavelmente é sua estrutura de while, que não está entrando no movenext do outro recordset. aparentemente está correto, mas aconselho a rever seu código. e também pode fazer um teste usando o objeto recordset, chamando a SQL e executando-a através dele. faça apenas para testar.

tipo:

set RSarqCL = Server.CreateObject(“ADODB.Recordset”)
‘– SQLarqCL="SELECT * FROM arquivos INNER JOIN usuarios ON (usuarios.cod_cliente = arquivos.cod_cliente) WHERE arquivos.numRemessa = '"&nRM&"' GROUP BY usuarios.email "
RSarqCL.Open strSQL, conexao,1,3

teste assim com o objeto recordset executando a SQL e atribua os while _EOF_wend e os movenext

Helinho Coelho · Janeiro 5, 2015

Xan,

Eu já consegui fazer funcionar os registros e agora estão aparecendo todos de acordo com o RSarqCL. Eu retirei o "GROUP BY usuarios.email" do RSarqCL e funfou beleza.

Depois criei um Array mas não estou conseguindo fazer este Array ficar dinâmico. Você pode me ajudar com o código abaixo? O que preciso mudar para o "MeuArray" ficar dinâmico?

Dim RSarqCL,nRM,idCL,MeuArray,VencCL,TipoCL

	Set RSarqCL = conexao.Execute("SELECT * FROM arquivos INNER JOIN usuarios ON (usuarios.cod_cliente = arquivos.cod_cliente) WHERE arquivos.numRemessa = '"&nRM&"' ")


			idCL = 0
			MeuArray = array() 

			While Not RSarqCL.EOF
				For i = 0 To RSarqCL.EOF 
				VencCL = RSarqCL("dataVENC")
				TipoCL = RSarqCL("txt_tipo")
				idCL = idCL + 1
				MeuArray = "<b>"&idCL&"</b>) Vencimento: <b style='color:#900'>"&VencCL&"</b> | Documento: <b>"&TipoCL&"</b><br>" 
				Next 
				RSarqCL.Movenext 
			Wend
			Response.Write(MeuArray)

* O Código acima está me retornando o seguinte:

6) Vencimento: 10/01/2015 | Documento: DARF

* Quando na verdade deveria me retornar assim:

1) Vencimento: 05/01/2015 | Documento: PIS/COFIS

2) Vencimento: 07/01/2015 | Documento: PIS/COFIS
3) Vencimento: 09/01/2015 | Documento: PIS/COFIS
4) Vencimento: 06/01/2015 | Documento: DARF
5) Vencimento: 08/01/2015 | Documento: DARF
6) Vencimento: 10/01/2015 | Documento: DARF

Grato.

Ronaldo Bueno · Janeiro 6, 2015

nem precisa de array

Faz assim.

Cria uma variavel e coloca todo o conteudo separado por um caracter. Exemplo

Dim ListaDoc

While not ....

ListaDoc = ListaDoc & SEU CONTEUDO & |

movenext

Depois é só mostrar o conteúdo

Helinho Coelho · Janeiro 6, 2015

Woohoo!!! Que beleza, hein Ronaldo!? Funcionou perfeitamente sem precisar usar o Array... muuuuuuuito obrigado pela sua singela dica!!! Valeu. O código funcionando ficou assim:

Dim RSarqCL,nRM,idCL,VencCL,TipoCL,listaDOC

	Set RSarqCL = conexao.Execute("SELECT * FROM arquivos INNER JOIN usuarios ON (usuarios.cod_cliente = arquivos.cod_cliente) WHERE arquivos.numRemessa = '"&nRM&"' ")


			idCL = 0

			While Not RSarqCL.EOF
				For i = 0 To RSarqCL.EOF
				VencCL = RSarqCL("dataVENC")
				TipoCL = RSarqCL("txt_tipo")
				idCL = idCL + 1
				listaDOC = listaDOC & "<b>"&idCL&"</b>) Vencimento: <b style='color:#900'>"&VencCL&"</b> | Documento: <b>"&TipoCL&"</b><br>"
				Next 
				RSarqCL.Movenext 
			Wend
			
			Response.Write listaDOC

* Perfeito, agora o código acima através do "Response.Write listaDOC" me retorna o seguinte:

1) Vencimento: 16/01/2015 | Documento: ICMS
2) Vencimento: 15/01/2015 | Documento: ICMS
3) Vencimento: 11/01/2015 | Documento: COMUNICADO DIMOB
4) Vencimento: 12/01/2015 | Documento: COMUNICADO DIMOB
5) Vencimento: 13/01/2015 | Documento: COMUNICADO DIMOB
6) Vencimento: 14/01/2015 | Documento: ICMS

Um forte abraço a todos e ESTE TÓPICO ESTÁ RESOLVIDO!

Ronaldo Bueno · Janeiro 7, 2015

Beleza

Arquivado

Armazenar resultados de um WHILE dentro de uma SESSION

Recommended Posts

Helinho Coelho 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

leodiegoo 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

Helinho Coelho 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Helinho Coelho 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Helinho Coelho 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Helinho Coelho 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Helinho Coelho 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Helinho Coelho 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ronaldo Bueno 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Helinho Coelho 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ronaldo Bueno 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Saber se todos os produtos de uma consulta estão cadastrados no banco de dados

Abrir url na mesma janela

Sistema de Login

Fóruns

Tempo Real

Informação importante