Pegar Apenas Valores Referentes Ao Id...

Fevereiro 2, 2006

Pessoal, eu tenho um sistema de base de dados que temporariamente tem que ser atualizada e eu estou tentando desenvolver uma ferramenta que envie um email para os clientes confirmarem se há alguma alteração nos dados pessoais, ou seja, eu já fiz até a etapa de envio de email, só que invés de enviar as informações somente de certo ID, ele envia junto todas as outras inf. de outros IDS...

Minha dúvida:

teria como eu fazer um loop na pg de action que resgata o email do usuário para que envie apenas as inf correspondentes ao ID? Ou seja, entra no loop envia o email, se tiver outro id na lista ele envia outro email para este id e assim por diante...

Obrigada

Fevereiro 2, 2006

ninguém pode me ajudar......buaaaaaaaa

.Andreia. · Fevereiro 2, 2006

hauhauhau Calma Claudia... nem tudo está perdido...

num deu pra entender muito, mas... se você tiver como achar uma qtde de ID, vamos supor... tenha 5 IDs diferentes e então são 5 email, você podia fazer um FOR ate 5 e ir mandando os e-mails..

Fevereiro 2, 2006

então amiga, seria exatamente isso, só que não entendo como fazer esse for... você poderia me ajudar???

.Andreia. · Fevereiro 2, 2006

é que não dá pra entender como está sua aplicação... você tem algum link que esteja no ar? ou então posta seu código.

Fevereiro 3, 2006

Andrea como você havia pedido, segue a aplicação:

http://www.aeec.com.br/action.htm

JCMPJ · Fevereiro 4, 2006

Imaginando que todos os campos com os emails tem o mesmo nome "Email1".

Você vai usar algo parecido com:

<%
Dim arrEmail
arrEmail = Split(Request.Form("Email1"), ",")
For i=0 TO Ubound(arrEmail)
strSQL = "SELECT * FROM suatabela WHERE campoemail='" & arrEmail(i) & "'"
rs.Open strSQL, objConnection
...
'Monta o email e envia
...
rs.Close
Next
%>

Fevereiro 6, 2006

Alguém saberia identificar onde setá meu erro? Gente me desculpem, pois não conheço muito asp.... quem puder me ajudar agradeço desde já.

<%
Razao_Social = request.form ("Razao_Social")
Tipo_Empresa = request.form ("Tipo_Empresa")
Site = request.form ("Site")
Endereco = request.form ("Endereco")

Set Mailer = CreateObject("CDONTS.NewMail")
Mailer.From = "teste@teste.com"

Dim arrEmail
arrEmail = Split(Request.Form("Email"), ",")
For i=0 TO Ubound(arrEmail)
strSQL = "SELECT * FROM Cad_Empresa WHERE Email='" & arrEmail(i) & "'"
rs.Open strSQL, objConnection

Mailer.CC = ""
Mailer.BodyFormat = 0 ' parametro de formatação
Mailer.Importance = 2
Mailer.MailFormat = 0 ' parametro de formatação
Mailer.Subject = "Atualização de dados cadastrais!"


MsgBody = "<html>" _
&"<head>" _
&"</head>" _
&"<body>" _
&"<table width=""450"" border=""0"" bordercolor=""#CCCCCC"" cellpadding=""0"" cellspacing=""0"">" _
&"<tr>" _
&"<td><strong>" & Razao_Social & "</strong>.<hr><strong>Por favor, estamos atualizando nossos registros e gostaríamos que você confirmasse alguns dados como:</strong><br><strong>- Razão Social:</strong>&nbsp;" & Razao_Social & "<br><strong>- Site:</strong>&nbsp;" & Site & "<br><strong>- E-mail da empresa:</strong>&nbsp;" & Email & "<br><strong>- Endereço:</strong>&nbsp;" & Endereco & "<br><strong>- Número:</strong>&nbsp;" & Numero & "<br><strong>- Telefone:</strong>&nbsp;" & Telefone & "<br><strong>- CEP:</strong>&nbsp;" & CEP & "<br><strong>- Bairro:</strong>&nbsp;" & Bairro & "<br><strong>- Cidade:</strong>&nbsp;" & Cidade & "<br><strong>- Estado:</strong>&nbsp;" & UF & "<br><strong>- Nome de um contato dentro da empresa:</strong>&nbsp;" & Nome1 & "<br><strong>- E-mail desse contato:</strong>&nbsp;" & Email1 & "<hr><strong>Caso tenha alguma alteração, informe abaixo e nos reenvie este e-mail.<br><br>Obrigado.</strong></td>" _
&"</tr>" _
&"</table>" _
&"</body>" _
&"</html>"

Mailer.Body = MsgBody
Mailer.Send
Set Mailer = Nothing

rs.Close
Next
%>
<%
response.redirect "atualizar_dados.asp"
%>

.Andreia. · Fevereiro 6, 2006

Que erro aparece?

Fevereiro 6, 2006

HTTP 500 - erro interno do servidor

Internet Explorer

eu não sei se pode usar MAILLER junto com o DIM como mostra o código acima.

.Andreia. · Fevereiro 6, 2006

Desabilite a exibição de erros amigáveis:

* No internet explorer, vai em Ferramentas > Opções da Internet > Avançadas
* desmarque a opção "Mostrar mensagens de erro http amigáveis"

rode e ve o erro que aparece

Fevereiro 6, 2006

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

O objeto é obrigatório: 'rs'

/adm/atualiza_action.asp, line 23

.Andreia. · Fevereiro 6, 2006

Agora que vi teu link, gente xiqqqqqq é outra coisa hauhauhauua

então, quanto ao erro, comenta a linha rs.Close:

'rs.close

ps.: se registra no fórum

Fevereiro 6, 2006

Andrea, continua dando exatamente o mesmo erro....

.Andreia. · Fevereiro 6, 2006

como que vai dar erro se você comentou a linha, ou seja, não é considerado codigo

deleta então o rs.close...

Fevereiro 6, 2006

Então, continua dando o erro na linha 23 =" rs.Open strSQL, objConnection"

Entrar

Pegar Apenas Valores Referentes Ao Id...

Pergunta

Guest - Claudia -

Link para o comentário

Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

Guest - Claudia -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest - claudia -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest - Claudia -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Guest

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest - Claudia -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest - Claudia -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest - Claudia -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest - Claudia -

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns