← Desenvolvimento

Ajuda Urgente!!!!!!!

Lida 1531 vezes

Offline

fotografo 
Membro
Mensagens 9 Gostos 0
Troféus totais: 20
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Level 4 Level 3 Level 2 Level 1 First Post Karma Webmaster

Olá a todos,

Estou a tentar usar este srcipt para o envio de mails

<% sub sergio

set myMail=CreateObject("CDO.Message")

myMail.Subject="tem um novo BNC"
myMail.From="xxx@xxx.pt"
myMail.To=(Session("MM_Username")+"@xxx.pt")
myMail.TextBody=myMail.to
myMail.TextBody=myMail.TextBody& " enviou-lhe o BNC numero "
myMail.TextBody=myMail.TextBody&((Recordset1_total))
myMail.TextBody=myMail.TextBody& " para analisar e responder. " & vbCrLf & vbCrLf
myMail.TextBody=myMail.TextBody& "esta mensagem foi enviada automáticamente pelo sistema"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="xxx.xxx.xxx.xxx"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
end sub
%>

O script funciona na perfeição só que tenho um pequeno GRANDE problema:

Quando faço refresh á página é tambem enviado um mail.
Nesta página faço a introdução de dados num form de uma página ASP e tentei chamar o procedimento no evento "onclick" do botão de submit do form mas ao fazer o refresh saí um mail disparado.

Alguem me pode ajudar???

Sérgio
Offline

gaya 
Membro
Mensagens 366 Gostos 0
Troféus totais: 27
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Poll Voter Level 5 Level 4 Level 3 Level 2 Level 1 100 Posts

faz assim, crias uma variável de sessao quando envias um mail. depois modificas o script pa fazer um if. se essa variavel existir, não envia mail nenhum. assim só envia o primeiro.
Offline

fotografo 
Membro
Mensagens 9 Gostos 0
Troféus totais: 20
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Level 4 Level 3 Level 2 Level 1 First Post Karma Webmaster

Olá gaya,

Obrigado pela tua disponibilidade.

Já tentei inserir a variável mas nada funciona.
Não sei que fazer... :oops:  :oops:  :cry:  :cry:
Acho que já não percebo nada de asp
Offline

fotografo 
Membro
Mensagens 9 Gostos 0
Troféus totais: 20
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Level 4 Level 3 Level 2 Level 1 First Post Karma Webmaster

Citação de: "fotografo"
Olá gaya,

Obrigado pela tua disponibilidade.

Já tentei inserir a variável mas nada funciona.
Não sei que fazer... :oops:  :oops:  :cry:  :cry:
Acho que já não percebo nada de asp


Já consegui :D

Estava a alterar a variável na altura erra. Coloqueia dentro do procedimento que faz o Insert na BD e assim, só quando há introdução de dados é que ela é alterada.

Sérgio
Offline

gaya 
Membro
Mensagens 366 Gostos 0
Troféus totais: 27
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Poll Voter Level 5 Level 4 Level 3 Level 2 Level 1 100 Posts

pronto. eu poracaso não sei mto de asp. só vou dando uns toques.

ainda bem que já ta a funcionar.