Problemas com Formulário

[Masei® 0]

<%

'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 = "neosaintseiya@hotmail.com"

sNameTo = "The Crow®"

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 = "smtp.mail.thecrow.antsbiz.com"

  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

%>

Vejam a parte em Bold, é justamente ali que estou tendo problema... Mas aí é que está qual é o problerma, para o formulário funcionar, eu preciso ter um servidor de e-mails?

[manga 0]

É isso aí. Para o script funcionar, o RemoteHost deve ser um servidor SMTP válido. Além disso, em AddRecipient você deve colocar o nome primeiro e depois o endereço de email.T+Manga

[Masei® 0]

Hmmm... E como sei o SMTP do meu servidor? E se por um acaso ele não oferece isso?

[Masei® 0]

Na verdade o erro num é ali não, ali eu já arrumei, é duas linhas acima... Como indica aqui na página de erro, que é na linha 14 e a linha 14 corresponde a isso:

 

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

 

Acontece que num mudei nada ai... E gostaria de saber o erro aqui...