Erro... Formmail

[marcelolima]

bom dia...

tenho uma página de contatos...

que na hora de enviar, dá a seguinte msg de erro:

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

--------------------------------------------------------------------------------

Informações técnicas (para a equipe de suporte)

Tipo de erro:

Objeto Server, ASP 0177 (0x800401F3)

ProgID inválido. Para obter informações adicionais específicas sobre esta mensagem, visite o site Microsoft Online Support localizado em: http://www.microsoft.com/contentredirect.asp (site em inglês).

/sviventes/contato/enviar.asp, line 14

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)

Página:

POST 102 bytes to /sviventes/contato/enviar.asp

A LINHA 14 É A SEGUINTE:

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

preciso de ajuda urgente!!!1

Edited August 30, 2004 by dark0

[cyberalexxx]

Voce verificou se seu servidor oferece suporte ao componente ASPMAIL???

[marcelolima]

Como configuro isso no IIS?

[cyberalexxx]

Voce tem que instalar o componente.

Para email, é melhor voce pegar o CDONTS que é gratuito

[marcelolima]

você tem o link onde posso pegar?

[cyberalexxx]

Melhor dizendo:

O ideal é antes do configurar o IIS é voce verificar no servidor que ira hospedar o site, qual componente ele suporta, pois não adianta voce desenvolver no CDONTS no IIS e o servidor só suportar ASPMAIL ou vice-versa

[dark0]

Sobre o CDONTS, no tópico de Tutoriais tem o link pra baixar, e o comando para instalar!

Basta olhar!

Abraços

[marcelolima]

é na nossa intranet... então é só configurar o IIS né?

[cyberalexxx]

é na nossa intranet... então é só configurar o IIS né?

Se é intranet é so instalar o componente.

No tópico de tutorias tem onde baixa e como instalar o CDONTS

da uma olhada:

http://scriptbrasil.com.br/forum/index.php?showtopic=20523

[marcelolima]

Brother...

o componente CDONTS está instalado...

o que mais posso fazer?

[cyberalexxx]

Faz uma busca no forum que tem varios tópicos sobre como usar o Cdonts, ou posta o seu codigo de ASPMAIL que eu te ajudo a passar para CDONTS

[marcelolima]

<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom = Request.Form("nome")
sEmailFrom = Request.Form("email")
sEmailTo = "[email protected]"
sNameTo = "Seres Viventes"
sText = Request.Form("mensagem")
sAssunto = Request.Form("assunto")

'Cria o objeto
  set mailer = server.createobject("SMTPsvg.Mailer")
  Mailer.FromName = sNameFrom
  Mailer.FromAddress = sEmailFrom
'Host para envio de emails
  Mailer.RemoteHost = "smtp2.locaweb.com.br"
  Mailer.AddRecipient sEmailTo, sNameTo
  Mailer.Subject = sAssunto  & " - E-mail"

'Monta a texto para o envio
  strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf
  strMsgFooter = sText
  Mailer.BodyText = strMsgHeader & strMsgFooter
' Se for enviado redirecionar para obrigado.asp
  if Mailer.SendMail then
     Response.Redirect "index.asp?lcl=EnviaEmail"
  else
' Se não for enviado mostra o erro que ocoreu
     Response.Write ("Ocorreu um erro.<BR>")
     Response.Write ("O Erro é " & Mailer.Response)
  end if
%>

essa é a página de envio!!!

[marcelolima]

como vejo se o aspmail tá configurado???

[dark0]

você não precisa ver se aspmail esta configurado.

Ele disse que vai transformar seu codigo do aspmail para CDONTS

dá uma olhada aqui.. só pra ver:

http://www.scanet.com.br/aspmail-x-cdonts.php

e aqui tb:

http://www.mco2.com.br/suporte_componentes_cdonts.asp

ate mais

[cyberalexxx]

Segue código adaptado para CDONTS:

<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom = Request.Form("nome")
sEmailFrom = Request.Form("email")
sEmailTo = "[email protected]"
sNameTo = "Seres Viventes"
sText = Request.Form("mensagem")
sAssunto = Request.Form("assunto")

'Cria o objeto
 set mailer = server.createobject("CDONTS.NewMail")
 Mailer.From = sEmailFrom
 Mailer.To = sEmailTo
 Mailer.Subject = sAssunto  & " - E-mail"

'Monta a texto para o envio
 strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf
 strMsgFooter = sText
 Mailer.body = strMsgHeader & strMsgFooter
 Mailer.Send 
 Set Mailer = nothing 
 Response.Redirect "index.asp?lcl=EnviaEmail"
%>

Faz um teste que fiz meio na pressa

[marcelolima]

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0046)

Permissão negada

/sviventes/contato/enviar.asp, line 23

esse aí é o erro...

a linha 23 é a seguinte:

Mailer.Send

[cyberalexxx]

Possiveis Causas:

O Smtp esta instalado??

Voce tem algum antivius que faz bloqueio de scripts (tipo o Norton), caso tenha desabilite o bloqueio de scripts.

Rodei o mesmo script aqui e deu certo!!

[dark0]

Outro possível erro, é a permissão de pastas aí..

Pois, eu já vi casos, onde ao invés de enviar o email, ele coloca eles numa pasta maluca, dentro do WWWROOT..

então ver, se o WWWROOT esta com as permissões de escrita para o usuario do IIS.