Email + Asp + Erro

[Felipedcb]

To com um probleminha com um script que envia email... baixei aqui no site mesmo e modifiquei. ai vai parte dele:

<%

  Dim sNome, sEmail

  sEmail = ("felipedcb@hotmail.com")

  sNome  = ("Teste")

  'Cria o objeto

    set mailer = server.createobject("SMTPsvg.Mailer")

    Mailer.FromName    = nome

    Mailer.FromAddress = email

  'Host para envio de emails

    Mailer.RemoteHost = ("smtp2.locaweb.com.br")

    Mailer.AddRecipient sEmail, sName

    Mailer.Subject = assunto

  'Monta a texto para o envio

    Mailer.BodyText = msg

  'Enviado

    If Mailer.SendMail then

      Response.Redirect ("../msg_alertas/info101.html")

    else

      Response.Redirect ("../msg_alertas/erro105.html")

    end if

%>

O problema é o seguinte: está dando erro na ultima linha, na do "end if". tem alguma coisa errada? se quiserem eu posto o código todo...

[tsarri]

poe o end if junto............endif...........tenta ai

[Guest Guest]

erro na mesma linha... =\

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

/action_asp/action.asp, line 57

endif

[Felipedcb]

ups, eu q postei ai em cima...

[dark0]

separa endif pra END IF

[Felipedcb]

separa endif pra END IF

ai vai voltar do jeito que estava antes... ou tem diferença entre letra maiúscula e minúscula?

[bareta]

esse é o codigo completo???

tem mais alguma coisa nele que você não postou????

[Felipedcb]

tem mta coisa q eu não postei... mas nada que influencie muito nessa parte...

se preferir eu posto ele completo

[]'s

Felipe

[dark0]

brother, assim ó

você não colocou a descrição do primeiro erro que estava tendo.

então, começa aí.. a gente não tem como adivinhar onde tem erro.. pois o trecho que você passou está certo.

se o erro é alguma coisa parecida com "expected end", no seu primeiro codigo, isso quer dizer que em algum lugar do codigo.. muito antes dessa parte que você colocou, você abriu alguma coisa como:

IF, SUB, Function, e não fechou ela.

Daí, no final do codigo, ele solicita um END para completar o codigo.

Entendeu?

Se for esse erro aí, leia tudo de novo, no seu codigo, e procure.. em todos os IFS, Subs, Functions, que você abriu, se você fechou corretamente.

Com certeza ta faltando um END aí..

Não tem como te dizer exatamente o que é, porque você não deu a descrição do erro.

Entendeu?

Abraço

[Felipedcb]

entendi sim... ai vai o código pra você dar uma olhada, eu não encontrei erro não...

[dark0]

o erro dá na linha:

set mailer = server.createobject("SMTPsvg.Mailer")

na linha em que o objeto é criado.

Isso pode acontecer por problemas no COMPONENTE, do servidor.

Pode ser que não esteja instalado, ou coisa parecida.

Seu servidor dá suporte à esse objeto?

[Felipedcb]

To usando o servidor do windows, o IIS

como posso fazer pra saber se ele dá suporte?

[dark0]

roda um script que mostra os componentes instalados

mas.. você ta rodando localmente?

se for.. você instalou o componente?

se não instalou.. não tem instalado..

[Felipedcb]

tem alguma outra forma de fazer um script de enviar email, sem utilizar componentes?

[dark0]

infelizmente não..

o que você pode fazer, é instalar componentes free, para usar.

o Jmail é um

O Cdonts é outro.. e que é da M$

[Guest Guest]

onde eu posso baixar isso?

[]'s

[dark0]

dê uma passada pelos tópicos pendurados.

Eu criei um tópico exclusivo para alguns componentes de e-mail.

Dentre eles, Cdonts, Jmail, AspEmail, AspMail.. e etc..

t+