If... then... end if...

[macintoshiano.net 0]

Ola novamente....

sei q eh coisa de principiante estrutura lógica, mas to apanhando...

analisem o seguinte código:

 

Case "ASPEmail"

 

Do While Not RS.eof

  If RS("Email")= "" Then

  RS.movenext

  else

  Set mailObj = Server.CreateObject("Persits.MailSender")

  mailObj.Host = RSBODY("SMTP")

  mailObj.From = RSBODY("From_Email")

  mailObj.AddAddress RS("Email")

  mailObj.Subject = Request("Subject")

  mailObj.Body = Request("Body")

  If (Request("Format") = "Text") Then

    mailObj.IsHTML = False

  Else

    mailObj.IsHTML = True

  End If

  mailObj.Send

  RS.movenext

  End If

Loop

a minha duvida eh a seguinte:

 

na 3ª linha tem "If (busca no db o conteudo) = "" then rs.movenext"

 

mas essa bomba ta passando direto, e chegando na linha onde tem o cógido: mailObj.AddAddress RS("Email"), ta dando um erro...

 

a estrutura seria assim: se campo email = vazio, então pule p/ o próximo, se não, mande o mail...

 

o codigo esta certo ñ?

 

mais uma vez obrigado

[tr374 0]

não vi erro nenhum,tenta assim pra ver se tem diferença:...Do While Not RS.eof temail = RS("Email") If temail = "" Then RS.movenext...

[macintoshiano.net 0]

não vi erro nenhum,tenta assim pra ver se tem diferença:...Do While Not RS.eof temail = RS("Email") If temail = "" Then RS.movenext...

ixi.....deu a mesma coisa....mas pela lógica ele ta certo neh???[]s

[tr374 0]

Para mim a lógica está correta.Já verificou que RS("Email") está correto né?Espera para ver se mais alguem tem outra solução.[]´s

[FabricioGomes 0]

qual o erro que está acontecendo? qual a mensagem?

[macintoshiano.net 0]

qual o erro que está acontecendo? qual a mensagem?

Microsoft VBScript runtime error '800a000d' Type mismatch: 'mailObj.AddAddress' /o12/send2.asp, line 64

[FabricioGomes 0]

Bom,tente fazer assim:

 

Case "ASPEmail"Do While Not RS.eof   If RS("Email") <> "" Then      Set mailObj = Server.CreateObject("Persits.MailSender")      mailObj.Host = RSBODY("SMTP")      mailObj.From = RSBODY("From_Email")      mailObj.AddAddress RS("Email")      mailObj.Subject = Request("Subject")      mailObj.Body = Request("Body")      If (Request("Format") = "Text") Then          mailObj.IsHTML = False      Else          mailObj.IsHTML = True      End If      mailObj.Send  End If  ' so para ver os emails que foram encaminhados  Response.write RS("Email")   RS.movenextLoop

[lethifold 0]

E se no lugar de verificar se RS("Email") = "" você colocar isso filtro do RS?set RS = conn.Execute("SELECT * FROM Tabela WHERE Email <> '' ")Serve pra você?Senao, continua sua logica e substitue o RS("Email")= "" porIf Len(Trim(CStr(RS("Email")))) < 1 Then 'se comprimento for menor que 1até mais