Ajuda Com Formulário

[Jssk]

Olá a todos

Eu não lido com ASP mas surgiu um problema em um formulário que estou atualizando. :wacko:

O formulário chama um arquivo em asp para enviar os dados, mas está aparecendo um erro ao invés

de aparecer a página de agradecimento.

Segue o código do arquivo em asp que faz o envio:

<!--#include file="admin/conexaoBD.asp" -->

<%

Response.Buffer=true

Response.clear

Dim strBody,objMail

especialTMP = Request.Form("especialista")

stringSQL = "SELECT email,nome FROM especialista WHERE nome = '"&especialTMP&"'"

Set Conexao = Server.CreateObject("ADODB.Connection")

Set Registros = Server.CreateObject("ADODB.Recordset")

Conexao.Open ConnString

Registros.Open "especialista", Conexao

Set Registros = Conexao.Execute(stringSQL)

If Registros.EOF = True then

Response.Write("Erro!")

Response.Write("<a href=java script:history.back()>Voltar</a>")

Else

varToNome = Trim(Registros("nome"))

varToEmail = Trim(Registros("email"))

varHeader = Request.Form("email")

varFromHeader = Request.Form("nome")

Set objMail = Server.CreateObject("Persits.MailSender")

objMail.Host = "mail.001.com.br"

objMail.FromName = Request.Form("paciente")

objMail.From = Request.Form("email")

objMail.AddAddress "teste@tm.com.br", "teste"

objMail.AddCC varToEmail,varToNome

objMail.Subject = "Agendamento Cirúrgico"

strBody = "Agendamento Cirúrgico: " & vbCrLf & vbCrLf & _

"Nome do cirurgião: "& Request("cirurgiao") & vbCrLf & _

"Nome do Especialista: "& Request("especialista") & vbCrLf & _

"Data da Cirurgia: "& Request("datacirurgia") & vbCrLf & _

"Hospital: "& Request("hospital") & vbCrLf & _

"Outros Hospitais: "& Request("outro_hospital") & vbCrLf & _

"Horário: "& Request("horario") & vbCrLf & _

"Procedimento: "& Request("procedimento") & vbCrLf & _

"Outro Procedimento: "& Request("outro_procedimento") & vbCrLf & _

"Nome do Paciente: "& Request("paciente") & vbCrLf & _

"Telefone: "& Request("fone") & vbCrLf & _

"Convênio: "& Request("convenio") & vbCrLf & _

"Outro Convênio: "& Request("outro_convenio") & vbCrLf & _

"Responsável pelo Agendamento: "& Request("resp_agenda") & vbCrLf & _

"Material Solicitado: "& Request("material") & vbCrLf & _

"Observações: "& Request("observacao")

strBody = strBody & "."

objMail.Body = strBody

objMail.AddCustomHeader "Return-Receipt-To:" &varHeader

objMail.Send

Set objMail = nothing

Response.Redirect "obrigado.htm"

End If

%>

O erro que aparece ao tentar enviar o formulário com o código acima:

Persits.MailSender.4 error '800a0006'

504 <s>: Sender address rejected: need fully-qualified address

/enviaAgenda.asp, line 51

Na linha 51 consta o seguinte código:

objMail.Send

Eu não estou intendendo onde está o erro... alguém pode me dar um help?

Obrigada!! :)

[.Andreia.]

nunca vi esse erro... bom, você está rodando localmente? se for pela web direto, seria interessante você se informar com o suporte tecnico do serviço de hospedagem