Problema Ao Criar...

[CyberEu]

Ae pessoal, tava precisando da ajuda de vs eu sou o leigo dos leigos, não sei nada,porem, estava tentando fazer auqle sisteminha de Fale conosco, mas nun ta dnado certo, nun sei como que funciona essa parada de e-mail smtp, se alguém me ajudar agradeco mesmo!

Aqui o codigo

<%

'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 = "cybereu@loadingames.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 = "AQUI Q NUN SEI O QUE COLOCAR"

  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

%>

Editado Junho 11, 2004 por dark0

[dark0]

ola amigo. eu editei sua mensagem, porque tinham algumas coisas que poderiam ofender quem lesse.

voltando à sua duvida,

olha só

quando você roda o codigo, ele dá algum erro:?

o que acontece?

[bareta]

seu servidor da suporte a esse componente??? aonde você ta testando???

[CyberEu]

Primeiramente.

Como eu hospedo os arquivos??

É só colocar no servidor??

Estou usando o 7host

[bareta]

no seu outro tópico coloquei a mesma coisa o server é gratis??? então esquece que não funciona não....