formulário para meu site em cdont ou aspmail com autenticação em smtp

[Guest --fabiomotamx --]

Ola pessoal....

Estou a passar por uma dificuldade, preciso de um formulario de envio de mensagem para colocar em meu site. peguei alguns mais não funcionavam em condicoes....portanto, também constatei que o sevirdor estava a falta de componentes eu instalei os .DLL devidamente (CDONT e ASPMAIL), mas agora preciso de um formulario que tenha uma configuracao para autenticação smtp, isso porque o servidor de smtp requer autenticação. por favor alguém me ajuda??????????????? alguém sabe onde posso pegar??????????????

cordialmente,

Fábio Mota

[Rafael Spilki]

Link:

http://forum.imasters.uol.com.br/index.php?showtopic=177671

[]'s Rafael Spilki

[Guest --fabiomotamx --]

oi RAFAEL,

E como eu faço o Formulario??? desculpa a ignorancia.......ou seja como eu nomeio os campos do meu formulario?? os imput como vao ficar descritos??????

cordialmente,

FM

[Rafael Spilki]

aqui tem um modelinho... e no google ta cheio tb!

http://sede.com.br/suporte/testew.asp

[]'s Rafael Spilki

[Guest Visitante]

PREZADOS AJUDEM-MEEEEEeeeeee.

pequei um codigo pela net e esta dessa forma, configurei ele da melhor como deve ser mas mesmo assim me da esse erro estupido.

já tenho os componentes aspmail e cdonts instalados no servidor mais mesmo assim nada.

O erro é este da linha abaixo:

Ocorreu um erro.

O Erro é This evaluation component has expired.

_________________________________________________

O meu codigo é este.

<%

'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 = "suporte@codigolivre.com.br"

sNameTo = "Nome do Site"

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 "obrigado.asp"

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

%>

por favor se alguém sober onde esta o problema por favor me ajudem

Cordialmente,

Fábio Mota

[Guest --fabiomotamx --]

OLa pessoal

já consegui resolver o problema.....custou mais consegui esta funcionando beleza.

obrigadão ai pela tua boa disposição RAFAEL.

Cordialmente,

Fábio Mota

Designer | Solution