Ir para conteúdo

POWERED BY:

Arquivado

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

Jow Xavier

Verificar dados do banco de dados antes de enviar emal

Por , em ASP Clássico

Recommended Posts

Jow Xavier    0

Jow Xavier
Postado

Boa tarde, como eu faço uma verificação com os dados do banco de daddo antes de enviar email .. Eu fiz assim, mas ñ está funcionando:

<%
sql = "SELECT * FROM projetos "
'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executa inserção no Banco de Dados 
set tab = cnn.execute(sql)

If tab("cliente") > 0 and tab("jobs") and tab("quantidade") and tab("formato") and tab("papel") and tab("status") and tab("prazo") and tab("obs") and tab("grafica") and tab("resp")Then %>		
		<%

Preciso q só execute o script de email se os dados q estão sendo verificados, sejam diferentes de vazio ... como resolvo isso ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

Bom, deixa eu ver se entendi. você quer que envie e-mail apenas e todos os campos estiverem preenchidos ou você quer que mande e-mail apenas se o banco de dados mostrar algum registro? pq dai os casos sao diferentes.. se for a segunda opção, basta você fazer assim

 

<%If tab.EOF = FALSE Then%>

Pq dai ele confere se o banco de dados está vazio. se for falso, ele envia o e-mail.

Caso você queira que ele envie e-mail apenas se TODOS os campos estiverem preenchidos, você tem que fazer assim:

 

<%If tab("cliente") <> "" and tab("jobs") <> "" and tab("quantidade") <> "" and tab("financeiro") <> "" Then%>
.... e assim com todos os campos que deseja validar. no código acima você simplesmente está dizendo.. "se cliente for diferente de vazio e jobs for diferente de vazio e quantidade for diferente de vazio, etc, etc, etc...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Cara olha só o meu email está sendo executado de qualquer jeito, ñ está passando pelo if meu script está assim ??

<% sql = "SELECT * FROM produtos "
'Executa inserção no Banco de Dados 
set tab = cnn.execute(sql)

If tab("cliente") <> "" and tab("jobs") <> "" and tab("quantidade") <> "" and tab("formato") <> "" and tab("papel") <> "" Then

'endereço de email do destinatário
strP=""

'titulo=request.form("titulo")
'obs=request.form("obs")

ArrP=split( strP , "," ) 'No caso coloquei virgula, pois o separador  este, caso seja outro basta mudara para o desejado.

'Faz o loop para enviar at que dispare todos os selecionados.
for i = 0 to UBound(ArrP)
Set objmail = Server.CreateObject("CDONTS.NewMail") 

email = Session("email")
objMail.From = email   
objMail.To = ArrP(i)
objMail.Cc = ""
objMail.Bcc = "" 'caso queira cpia oculta

objMail.Subject = "Envio para Gráfica" 'titulo da mensagem
sHTML = sHTML & "<html><meta http-equiv=""content-type"" content=""text/html; charset=utf-8"">"
sHTML = sHTML & "<head>"
sHTML = sHTML & "<title>Thatto Interativa</title>" 
sHTML = sHTML & "</head>"
sHTML = sHTML & "<body leftmargin=""0"" topmargin=""0"" rightmargin=""0"" bottommargin=""0"" bgcolor="""">"
sHTML = sHTML & request.form("cliente") 'corpo da mensagem do formulario
sHTML = sHTML & request.form("jobs") 'corpo da mensagem do formulario
sHTML = sHTML & request.form("quantidade") 'corpo da mensagem do formulario
sHTML = sHTML & request.form("formato") 'corpo da mensagem do formulario
sHTML = sHTML & request.form("papel") 'corpo da mensagem do formulario
sHTML = sHTML & "</body>"
sHTML = sHTML & "</html>"

objMail.MailFormat = 0 
objMail.BodyFormat = 0 
objMail.body = sHTML

objMail.Send
sHTML = ""

On Error Resume Next
set objMail = Nothing

if Err <> 0 Then
Response.Write "Foi encontrado um erro (" & Err.Description & ")."
Response.End
End if

'Fim loop.
next

'Gera alerta de envio ao fim do código.
response.Write("<font face='verdana' size='1'><br>E-mails enviado com sucesso!</font><br>")
response.Write("<font face='verdana' size='1'>Para: "&strP&".</font>") 
end if%>

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