Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lams

resutaldos apartir de exec VBS

Por , em ASP Clássico

Recommended Posts

lams    0

lams
Postado

Pessoal, To precisando de help de voces. É o seguinte fiz um vbs aqui que toda vez executado ele busca informações na tb (manda email com os dados em um tb html). só que eu fiz uma instrução (where) p retornar apenas alguns dados. Esse Vbs vai rodar todos os dias, no entanto, nem todos os dias vai ter as informações definidas no select. Então queria q quando nao tivesse a informação especifica me retornasse uma mensagem tipo 'Não existe registro nesta data'. algo assim. como posso fazer?completando, essa mensg =('Não existe registro nesta data',deve ser enviada por email no lugar da tabela html q e enviada com tem os registros.completando, essa mensg =('Não existe registro nesta data',deve ser enviada por email no lugar da tabela html q e enviada com tem os registros.

Compartilhar este post

Link para o post
Compartilhar em outros sites

vagner.net    0

vagner.net
Postado

Verifica se o RecordCount do seu RecordSet é maior que 0.Se for, você monta a tabela e envia, senão você envia a mensagem padrão.OK..!!?? T+...

Compartilhar este post

Link para o post
Compartilhar em outros sites

lams    0

lams
Postado

Verifica se o RecordCount do seu RecordSet é maior que 0.Se for, você monta a tabela e envia, senão você envia a mensagem padrão.OK..!!?? T+...

Amigo, tentei aqui mas nao obtive mto suceso nao..tentei algo tipo...destacado no codigo em negrito...
SQL1 = "  set dateformat dmy SELECT Cgc_Unidade, No_Unidade, Nr_Siate, Dt_Abertura, St_demanda, Dt_UltimaAtua, Dt_ProximaAtua FROM qry_Demanda WHERE St_demanda = 'Aberto' AND Dt_ProximaAtua = convert(varchar(30),getdate(),103)ORDER BY Dt_ProximaAtua DESC"  'corpo da mensagem  inicio = "<html><body><div style=""font-size:10pt;font-family: arial,courier"">"  inicio = inicio & "<b>#05</b><br>"  inicio = inicio & "<b>À</b><br>"    mail="@mail.xxxx"	  assunto = " Demandas Equipe Telefonia - Atualização de demandas " & Date()  body = "<font face=""arial"" size=""2"">À <br>XXXXXXXXX <br>(a/c "  SQL2 = "SELECT Usuario,No_Usuario FROM tb_Usuario WHERE  Usuario='xxxxxxxx"   set rs1 = CreateObject("ADODB.Recordset")  rs1.Open SQL2,db 	[b]'if RecordCount > 0 then'	response.write "Nenhum registro"'	Response.end'end if'if RecordCount > 0 then'	response.write "Nenhum registro"'	Response.end'end if'  If Not Rs.EOF Then '  Response.Write Rs("Nenhum registro")'	End If[/b]	'  para = "xxxx@mail.XXXX;" while not rs1.EOF	 para = para & rs1.Fields("Us_Usuario").Value & "@mail.XXXXX;"	 body = body & rs1.Fields("No_Usuario").Value & ", "	 rs1.MoveNextwend  body = left(body,len(body)-2)  body = body & " )"  body = body & "<br>c/c xxxxxxxxx</b><br><br>Foi agendado para hoje " & Date() & " a atualização da(as) demanda(as) abaixo:<br><br>"  body = body & "<br>Data do Envio : " & Date() & "<br><br>"  body = body & "<table border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolorlight=""#000000"" bordercolordark=""#ffffff""><tr bgcolor=""#6487DC""><td width=""50""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> CGC </b></font></td><td width=""220""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> Unidade </b></font></td><td width=""80""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> Siate </b></font></td><td width=""100""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> Data Abertura </b></font></td></td><td width=""80""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> Situação </b></font></td><td width=""150""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> Última Atualização </b></font></td><td width=""160""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> Proxima Atualização  </b></font></td>"  body = body & "</table>"  set rs = db.execute(SQL1)   cor = "#ECF2F8"	aux = ""	while not rs.EOF		if cor = "#ECF2F8" then cor = "#FFFFFF" else cor = "#ECF2F8"	  	   body = body & "<table border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolorlight=""#000000"" bordercolordark=""#ffffff"">"	  	  cgc = trim(rs.Fields("Cgc_Unidade").Value)	  unidade=trim(rs.Fields("No_Unidade").Value)	  siate = trim(rs.Fields("Nr_Siate").Value)	  dtabertura= trim(rs.Fields("Dt_abertura").Value)	  situacao= trim(rs.Fields("St_demanda").Value)	  ultimaatualizacao= trim(rs.Fields("Dt_UltimaAtua").Value)	  proximaatualizacao= trim(rs.Fields("Dt_ProximaAtua").Value)	  		if not isnull(rs.Fields("Cgc_Unidade").Value) then cgc = trim(rs.Fields("Cgc_Unidade").Value)		if not isnull(rs.Fields("No_Unidade").Value) then unidade = trim(rs.Fields("No_Unidade").Value)		if not isnull(rs.Fields("Nr_Siate").Value) then siate = trim(rs.Fields("Nr_Siate").Value)		if not isnull(rs.Fields("Dt_abertura").Value) then dtabertura = trim(rs.Fields("Dt_abertura").Value)		if not isnull(rs.Fields("St_demanda").Value) then situacao = trim(rs.Fields("St_demanda").Value)		if not isnull(rs.Fields("Dt_UltimaAtua").Value) then ultimaatualizacao = trim(rs.Fields("Dt_UltimaAtua").Value)		if not isnull(rs.Fields("Dt_ProximaAtua").Value) then proximaatualizacao = trim(rs.Fields("Dt_ProximaAtua").Value)					  	  body = body & "<tr>"		body = body & "	<td width=""50"" bgcolor=" & cor & "><font face=""arial"" size=""2""> " & cgc & " </font></td>"		body = body & "	<td width=""220"" bgcolor=" & cor & "><font face=""arial"" size=""2""> " & unidade & " </font></td>"		body = body & "	<td width=""80""bgcolor=" & cor & "><font face=""arial"" size=""2""> " & siate & " </font></td>"		body = body & "	<td width=""100""bgcolor=" & cor & "><font face=""arial"" size=""2""> " & dtabertura & " </font></td>"		body = body & "	<td width=""80""bgcolor=" & cor & "><font face=""arial"" size=""2""> " & situacao & " </font></td>"		body = body & "	<td width=""150""bgcolor=" & cor & "><font face=""arial"" size=""2""> " & ultimaatualizacao & " </font></td>"		body = body & "	<td width=""160""bgcolor=" & cor & "><font face=""arial"" size=""2""> " & proximaatualizacao & " </font></td>"		body = body & "</tr>"  body = body & "</table>"  rs.movenext  wend    body = body & "<font face=""arial"" size=""2""><b>Atenciosamente,</b></font><br><br>"  body = body & "<font face=""arial"" size=""2""><b>Rede</b></font><br>"  body = body & "<font face=""arial"" size=""2""><b>XXXXXXXX</b></font>"  body = body & "<br><font face=""arial"" size=""2"">Hora envio: "& now() &"</font>"  Set objetoMail = CreateObject ( "CDONTS.NewMail" )  objetoMail.BodyFormat=0  objetoMail.MailFormat=0  objetoMail.Subject = assunto  objetoMail.From = "XXXXXX" & "@mail.XXXXX"  'objetoMail.To = para '& "XXXXXXX" & "@mail.XXXXX;"  objetoMail.To = para '& "XXXXXX" & "@mail.XXXX;"  objetoMail.Body = body  objetoMail.Send  rs.close()  rs1.close()  db.close  set objetoMail = nothing  set db=nothing  set rs=nothing  set rs1=nothing

Compartilhar este post

Link para o post
Compartilhar em outros sites

lams    0

lams
Postado

RecordCount é um método do objeto RecordSet:

 

rs1.RecordCount

 

OK..!!?? T+...

mas eu não posso usa-lo assim:??

 

if rs1.RecordCount  = 0 then	response.write "Nenhum registro"	Response.endend if
ou algo parecido.... pois assim ele nao funfou..

Compartilhar este post

Link para o post
Compartilhar em outros sites

vagner.net    0

vagner.net
Postado

Mas é exatamente isso, só que no seu código antes tava assim:

if RecordCount > 0 then	response.write "Nenhum registro"	Response.endend if

Porém, o cursor do seu RecordSet não está definido, cria ele assim:

rs1.Open SQL2,db,3,3

Compartilhar este post

Link para o post
Compartilhar em outros sites

lams    0

lams
Postado

é brotherfiz igual você disse, mas a mensagem "nenhum registro" ainda não vem...vem o email com uma tabela em branco, devido nao ter os registros ao inves de vir a msg no email(nenhum reg encontrado)

Compartilhar este post

Link para o post
Compartilhar em outros sites

lams    0

lams
Postado

Não estava, mas tentei agora e mesmo assim não deu...

olha como estou tentando....

 

assunto = " Demandas Equipe Telefonia - Atualização de demandas " & Date()  body = "<font face=""arial"" size=""2"">À <br>XXXXXX <br>(a/c "  SQL2 = "SELECT Us_Usuario,No_Usuario FROM tb_Usuario WHERE  Us_Usuario='XXXXXX'"  set rs1 = CreateObject("ADODB.Recordset")  rs1.Open SQL2,db,3,3 	  'If Not Rs.EOF Then  ' Response.Write Rs("Campo")'	End If'	Rs.Close	   '  para = "XXXXX@mail.xxxx;" while not rs1.EOF	 para = para & rs1.Fields("Us_Usuario").Value & "@mail.XXXX;"	 body = body & rs1.Fields("No_Usuario").Value & ", "	 rs1.MoveNextwend  body = left(body,len(body)-2)  body = body & " )"  body = body & "<br>c/c XXXXXX e XXXXX</b><br><br>Foi agendado para hoje " & Date() & " a atualização da(as) demanda(as) abaixo:<br><br>"  body = body & "<br>Data do Envio : " & Date() & "<br><br>"  body = body & "<table border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolorlight=""#000000"" bordercolordark=""#ffffff""><tr bgcolor=""#6487DC""><td width=""50""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> CGC </b></font></td><td width=""220""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> Unidade </b></font></td><td width=""80""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> Siate </b></font></td><td width=""100""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> Data Abertura </b></font></td></td><td width=""80""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> Situação </b></font></td><td width=""150""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> Última Atualização </b></font></td><td width=""160""><font face=""arial"" size=""2"" color=""#FFFFFF""><b> Proxima Atualização  </b></font></td>"  body = body & "</table>"  set rs = db.execute(SQL1)if rs1.RecordCount  = 0 thenbody = body & "	response.write "Nenhum registro""body = body & "	Response.end "end ifif rs1.RecordCount  <> 0 then   cor = "#ECF2F8"	aux = ""	while not rs.EOF		if cor = "#ECF2F8" then cor = "#FFFFFF" else cor = "#ECF2F8"	  	  	  	  	   body = body & "<table border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolorlight=""#000000"" bordercolordark=""#ffffff"">"	  	  cgc = trim(rs.Fields("Cgc_Unidade").Value)	  unidade=trim(rs.Fields("No_Unidade").Value)	  siate = trim(rs.Fields("Nr_Siate").Value)	  dtabertura= trim(rs.Fields("Dt_abertura").Value)	  situacao= trim(rs.Fields("St_demanda").Value)	  ultimaatualizacao= trim(rs.Fields("Dt_UltimaAtua").Value)	  proximaatualizacao= trim(rs.Fields("Dt_ProximaAtua").Value)	  		if not isnull(rs.Fields("Cgc_Unidade").Value) then cgc = trim(rs.Fields("Cgc_Unidade").Value)		if not isnull(rs.Fields("No_Unidade").Value) then unidade = trim(rs.Fields("No_Unidade").Value)		if not isnull(rs.Fields("Nr_Siate").Value) then siate = trim(rs.Fields("Nr_Siate").Value)		if not isnull(rs.Fields("Dt_abertura").Value) then dtabertura = trim(rs.Fields("Dt_abertura").Value)		if not isnull(rs.Fields("St_demanda").Value) then situacao = trim(rs.Fields("St_demanda").Value)		if not isnull(rs.Fields("Dt_UltimaAtua").Value) then ultimaatualizacao = trim(rs.Fields("Dt_UltimaAtua").Value)		if not isnull(rs.Fields("Dt_ProximaAtua").Value) then proximaatualizacao = trim(rs.Fields("Dt_ProximaAtua").Value)					  	  body = body & "<tr>"		body = body & "	<td width=""50"" bgcolor=" & cor & "><font face=""arial"" size=""2""> " & cgc & " </font></td>"		body = body & "	<td width=""220"" bgcolor=" & cor & "><font face=""arial"" size=""2""> " & unidade & " </font></td>"		body = body & "	<td width=""80""bgcolor=" & cor & "><font face=""arial"" size=""2""> " & siate & " </font></td>"		body = body & "	<td width=""100""bgcolor=" & cor & "><font face=""arial"" size=""2""> " & dtabertura & " </font></td>"		body = body & "	<td width=""80""bgcolor=" & cor & "><font face=""arial"" size=""2""> " & situacao & " </font></td>"		body = body & "	<td width=""150""bgcolor=" & cor & "><font face=""arial"" size=""2""> " & ultimaatualizacao & " </font></td>"		body = body & "	<td width=""160""bgcolor=" & cor & "><font face=""arial"" size=""2""> " & proximaatualizacao & " </font></td>"		body = body & "</tr>"  body = body & "</table>"  rs.movenext  wend  end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

vagner.net    0

vagner.net
Postado

Se você vai adicionar ao BODY não tem q executar o Response.Write, você só adiciona a STRING com a mensagem padrão que será enviada por e-mail.

 

if rs1.RecordCount  = 0 thenbody = body & "Nenhum registro""end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

lams    0

lams
Postado

Se você vai adicionar ao BODY não tem q executar o Response.Write, você só adiciona a STRING com a mensagem padrão que será enviada por e-mail.

if rs1.RecordCount  = 0 thenbody = body & "Nenhum registro""end if
Valeu pela força aí amigo, seguindo o caminho q você me deu...consegui ! fazendo assim:
if rs.EOF thenbody = "<font color=""red""><b>Nenhuma ocorrência encontrada.</b></font>"else........
abração

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito