Cartoes Virtuais

[Tigger 0]

  WHILE NOT RS.EOF 

 

    contador = contador + 1

        '*** IMPRINDO A QUANTIDADE DE ANIVERSARIANTES

        Response.Write("Existem "&contador&" aniversarios esse mes!!")    

      

         '************** AQUI VAI O SCRIPT DE E-MAIL ************

 

        

  RS.MOVENEXT

  WEND    

  

ELSE

        Response.Write("Nao existem aniversarios esse mes..")

        

END IF 

 

%> [/ASP]

 

onde eu coloco, o codigo de envio de email...e se for mais de uma aniversariante....como fica a estrutura do codigo CDONTS...por exmplo..

<{POST_SNAPBACK}>

Faça assim:

<{POST_SNAPBACK}>

Caro, Marcelo, gostaria de saber como, faco para criar o codigo de email.quando estiver mais de um anviersariante...

pois sei que para mais de um email...basta que eu coloque todos sepados por virgulas

TIPO:

 

email.email2,email3...

 

mais para isso o sistema tem que avaliar a quantidade de email que estao aniversariando, e manipular o codigo CDONTS..

[Mário Monteiro 179]

o codigo vai ficar no loop cara...assim enviará para cada aniversariante e não para todos ao mesmo tempo...

[Tigger 0]

Assim.. se tenho 3 aniversariantes...entao ele manda parao o email1..primeiro..depois para o 2 e o 3 logo apos...entendi entao...sera que quando chegar o dia do anviersario de cada cadastro...ele ira mandar apenas uma vez ....ou no decorrer do dia ele ira mandar varias vezes para cada aniversariante...por que o proposito e apenas uma vez...serai algo "automatico" onde quando virasse o dia, e chegasse o dia de um aniversario...o sistema enviaria o cartao para o email cadastrado...sei que se alguem der um refresh na pagina, o script sera rodado 2 vezes...mais a minha duvida e a de cima...

[Tigger 0]

Segue o codigo que estou utilizando...

ASP

[*]

 

[*]<%

 

[*]'*** CRIANDO CONEXAO COM O BANCO DE DADOS

 

[*]Set Cnn = Server.CreateObject("ADODB.Connection")

 

[*]Cnn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=e:\home\amznet\dados\dados.mdb"

 

[*]

 

[*]'*** INICIANDO O CODIGO DE CONSULTA A DADOS

 

[*]

 

[*]SQL = "SELECT * FROM ANIVERSARIANTES"

 

[*]SQL = SQL & " WHERE"

 

[*]SQL = SQL & " DAY(AN_NASCIMENTO) = "& RIGHT("0" & DAY(DATE()),2) & " "

 

[*]SQL = SQL & " AND "

 

[*]SQL = SQL & " Month(AN_NASCIMENTO) = "& RIGHT("0" & MONTH(DATE()),2) & ""

 

[*]'SQL = SQL & " AND Year(AN_NASCIMENTO) = "& Year(Now()) &" "

 

[*]  SET RS = Cnn.execute(SQL)

 

[*]

 

[*]'*** VERIFICANDO SE EXISTE ALGUM REGISTRO DE ACORDO COM A CONDICAO

 

[*] IF NOT RS.EOF THEN  

 

[*]  WHILE NOT RS.EOF 

 

[*]  contador = contador + 1

 

[*] '*** IMPRINDO A QUANTIDADE DE ANIVERSARIANTES

 

[*] IF contador = 1 THEN

 

[*] Response.Write("Existem "&contador&" aniversario esse mes!!")&"<br>"

 

[*] Response.Write("O nome do Aniversariante é: "&RS("AN_NOME")&"")

 

[*] ELSE

 

[*] Response.Write("Existem "&contador&" aniversarios esse mes!!")&"<br>"

 

[*] Response.Write("O nome do Aniversariante é: "&RS("AN_NOME")&"")

 

[*] END IF

 

[*]  

 

[*] '*** INICIO DO CODIGO DE ENVIO DO CARTAO

 

[*] StrDescricao = StrDescricao & "<img src <a href='http://www.amznzet.com.br/aniversariantes/cartao/monitor' target='_blank'>http://www.amznzet.com.br/aniversariantes/cartao/monitor</a> 07.jpg"

 

[*]

 

[*] '-------INICIO DO CODIGO CDONTS-----------------'

 

[*] Set objmail = Server.CreateObject("CDONTS.NewMail") 

 

[*] objmail.From  = " Titulo "

 

[*] objmail.to  = RS("AN_EMAIL")

 

[*] objmail.subject = " Mensagem do Email "

 

[*] objmail.Body  = strDescricao

 

[*] objmail.BodyFormat = 0

 

[*] objmail.MailFormat = cdoMailFormatText

 

[*] objmail.send 

 

[*]

 

[*] Set objmail = nothing 

 

[*] Response.Write("<br>"&"Email Enviado")

 

[*]  RS.MOVENEXT

 

[*] WEND

 

[*]

 

[*] ELSE

 

[*]

 

[*] Response.Write("Nao existem aniversarios esse mes..")

 

[*]

 

[*]END IF 

 

[*]%> 

 

[*]

 

...esta aparecendo na tela tudo que estou mandando imprimir...mais so que ate agora, o email com o cartao nao chegou.

[Tigger 0]

Galera.. o email chegou. so que a imagem nao ficou impressa no email...entenderam o que eu quis dizer...A imagem e do tipo JPG...e ela nao ficou impressa no email...aparaceu foi o link para o usuario acessar o cartao...sera que tem como fazer com que o JPG fique impresso, no email do usuario..

[Mário Monteiro 179]

pra ser automatico de verdade você deverá shedular o server...mas você pode simular isso colocando o codigo em uma page muito visitada assim no priemiro acesso ele já manda os emails...

[Tigger 0]

O que seria isso shedular o server

 

Poderia me mostrar como posso colocar o codigo em uma pagina bastante visitada..

sera que include resolve

[Salgado 4]

Corrige isso:

StrDescricao = StrDescricao & "<img src <a href='http://www.amznzet.com.br/aniversariantes/cartao/monitor' target='_blank'>http://www.amznzet.com.br/aniversariantes/cartao/monitor</a> 07.jpg"

Para:

StrDescricao = StrDescricao & "<img src=""http://www.amznzet.com.br/aniversariantes/cartao/monitor/07.jpg"">"

[Mário Monteiro 179]

O que seria isso shedular o server

 

Poderia me mostrar como posso colocar o codigo em uma pagina bastante visitada..

sera que include resolve

shedular é colocar um programinha em VB ou em outra linhuagem pra rodar direto no server em determinada hora do dia...

 

ai chega naquela hora ele dispara os emails...

 

quanto a segunda parte é so ver a pagina mais visitada geralmente a index e por o codigo lá, só poe um teste pra ve se ja mandou no dia pra não enviar varias vezes....

[Tigger 0]

e se a pagina nao for visitada no dia do aniversario do cara...?

[Salgado 4]

e se a pagina nao for visitada no dia do aniversario do cara...?

<{POST_SNAPBACK}>

Dai não manda.

[Mário Monteiro 179]

bem é isso... por isso disse que o ideal é shedular...

[Tigger 0]

uma outra pergutinha so para nao ter que abir um outro post..

 

sera que essa condicao vai funcionar...

 

ela se encontra dessa maneira com esta abaixo, sem END IF

ASP

[*]

 

[*]IF strUsername = "" THEN Response.redirect("default.asp")

 

[*]

sera que esta certo, sera que funciona assim...??

[Mário Monteiro 179]

funciona

[Tigger 0]

Sera que com o ASP eu nao consigo fazer algum jeito com que isso rode sozinho....

[Salgado 4]

Não tem como.

[Tigger 0]

Cara, sera que nao tem nenhuma outra solucao para esse problema...por que pô o script ta funcionando direitinho...so falta esse detalhe...

[Salgado 4]

Não tem jeito, tem que agendar para acessar o server, ou você agenda em seu PC e o mantém ligado, ou no servidor. Não tem como uma página ASP ser autoexecutada sem uma requisição ao server.

[Tigger 0]

Isso pelo menos eu sei...gostaria de saber a maneira de fzer com que a pagina seja excutada automaticamente....

[Tigger 0]

você poderiam me ajudar, nesse ponto, me indicando uma linguagem que possa "ativar" o ASP em um determinado horario...porque sinceramente, eu nao, sei e so falta isso para o script funcionar direitno..

 

Segue o script:

ASP

[*]

 

[*]<!--#include file="includes/conn.asp" -->

 

[*]

 

[*]<%

 

[*]'*** INICIANDO O CODIGO DE CONSULTA A DADOS

 

[*]

 

[*]SQL = "SELECT * FROM ANIVERSARIANTES"

 

[*]SQL = SQL & " WHERE"

 

[*]SQL = SQL & " DAY(AN_NASCIMENTO) = "& RIGHT("0" & DAY(DATE()),2) & " "

 

[*]SQL = SQL & " AND "

 

[*]SQL = SQL & " Month(AN_NASCIMENTO) = "& RIGHT("0" & MONTH(DATE()),2) & ""

 

[*]'SQL = SQL & " AND Year(AN_NASCIMENTO) = "& Year(Now()) &" "

 

[*]  SET RS = Cnn.execute(SQL)

 

[*]

 

[*]'*** VERIFICANDO SE EXISTE ALGUM REGISTRO DE ACORDO COM A CONDICAO

 

[*] IF NOT RS.EOF THEN  

 

[*]  WHILE NOT RS.EOF 

 

[*]  contador = contador + 1

 

[*]

 

[*] '*** IMPRINDO A QUANTIDADE DE ANIVERSARIANTES

 

[*]' IF contador = 1 THEN

 

[*]' Response.Write("Existem "&contador&" aniversario esse mes!!")&"<br>"

 

[*]' Response.Write("O nome do Aniversariante é: "&RS("AN_NOME")&"")

 

[*]' ELSE

 

[*] IF contador <> 1 THEN

 

[*]  Response.Write("Existem "&contador&" aniversarios esse mes!!")&"<br>"

 

[*]  Response.Write("O nome do Aniversariante é: "&RS("AN_NOME")&"")

 

[*] END IF

 

[*] END IF 

 

[*]  

 

[*] '*** INICIO DO CODIGO DE ENVIO DO CARTAO

 

[*] StrDescricao = StrDescricao & "<img src=""http://www.amznzet.com.br/aniversariantes/monitor 07.jpg"">"

 

[*]

 

[*] '-------INICIO DO CODIGO CDONTS-----------------'

 

[*] Set objmail = Server.CreateObject("CDONTS.NewMail") 

 

[*] objmail.From  = "Mensagem da AMZ Soluções LTDA"

 

[*] objmail.to  = RS("AN_EMAIL")

 

[*] objmail.subject = " Mensagem da AMZ Soluções "

 

[*] objmail.Body  = strDescricao

 

[*] objmail.BodyFormat = 0

 

[*] objmail.MailFormat = cdoMailFormatText

 

[*] objmail.send 

 

[*]

 

[*] Set objmail = nothing 

 

[*]' Response.Write("<br>"&"Email Enviado para"& RS("AN_EMAIL"))

 

[*]  RS.MOVENEXT

 

[*] WEND

 

[*]

 

[*] ELSE

 

[*]

 

[*] Response.Write("Nao existem aniversarios esse mes..")

 

[*]

 

[*]END IF 

 

[*]%> 

 

[*]