Ricardo.ms

Estou com uma dificuldade e sei que aki tem pessoas com melhor conhecimento que o meu. O que acontece é que estou tentando implantar um formulário "fale conosco" na intranet (trata-se de aprendizagem) eu obtive o codigo no Script brasil que compõem de 03 arquivos: defaut.asp, enviar.asp e obrigado.asp. 1) O defaut.asp está ok e chamando o enviar.asp porem retorna erro de acesso. Acho que o erro pode estar no enviar.asp que segue: <% '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 = "meunome@provedor.com.br" sNameTo = "INTRANET" 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 = "QUAL SERIA A OPÇÃO CERTA PARA INTRANET" mailer.AddRecipient sEmailTo, sNameTo mailer.Subject = sAssunto '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 "/faleconosco/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 %>