Erro No FormulÁrio!

dennisreis · Abril 19, 2004

Boa noite pessoal. Tenho que entregar uma página esse semana e só falta o formulário, só que está dando o seguinte erro:

Microsoft VBScript compilation error '800a0400'

Expected statement

/enviar.asp, line 34

& "(" & sFoneFrom & ")" & "(" & sCidade & ")" & "(" & sUfFrom & ")"

Se alguém poder me ajudar. Desde já muito obrigado, Dennis.

O Código que estou usando é esse:

<%

'Declarando variveis

Dim sNameTo, sNameFrom, sEmailFrom, sOpiniao, sEmailTo, sFoneFrom, sUfFrom, SComosabendoFrom, sEmpresaFrom, sCidadeFrom, sCadastroTo

'Pegando os dados digitados nos campos e colocando em variaveis

sNameFrom = Request.Form("nome")

sEmailFrom = Request.Form("email")

sEmailTo = "dennisreis@uol.com.br"

sNameTo = "PROATIVA ASSESSORIA EMPRESARIAL"

sCadastroTo = "CADASTRO ON-LINE PROATIVA"

sOpiniao = Request.Form("opiniao")

sFoneFrom = Request.Form("fone")

sUfFrom = Request.Form("uf")

sCidadeFrom = Request.Form("cidade")

sEmpresaFrom = Request.form("empresa")

sComosabendoFrom = Request.Form("comosabendo")

'Cria o objeto

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

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

Mailer.FromCity = sCidadeFrom

Mailer.FromUf = sUfFrom

Mailer.FromComosabendo = sComosabendoFrom

Mailer.FromOpiniao = sOpiniao

'Host para envio de emails

Mailer.RemoteHost = "smtp.são.terra.com.br"

Mailer.AddRecipient sEmailTo, sNameTo

Mailer.Subject = sCadastroTo & " - E-mail"

'Monta o texto para o envio

strMsgHeader = sEpresaFrom & sNameFrom & "(" & sEmailFrom & ")"

& "(" & sFoneFrom & ")" & "(" & sCidade & ")" & "(" & sUfFrom & ")"

& "(" & sComosabendo & ")" & " quem enviou! " & vbCrLf & vbCrLf

strMsgFooter = sOpiniao

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

%>

dark0 · Abril 19, 2004

<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sOpiniao, sEmailTo, sFoneFrom, sUfFrom, SComosabendoFrom, sEmpresaFrom, sCidadeFrom, sCadastroTo
'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom = Request.Form("nome")
sEmailFrom = Request.Form("email")
sEmailTo = "dennisreis@uol.com.br"
sNameTo = "PROATIVA ASSESSORIA EMPRESARIAL"
sCadastroTo = "CADASTRO ON-LINE PROATIVA"
sOpiniao = Request.Form("opiniao")
sFoneFrom = Request.Form("fone")
sUfFrom = Request.Form("uf")
sCidadeFrom = Request.Form("cidade")
sEmpresaFrom = Request.form("empresa")
sComosabendoFrom = Request.Form("comosabendo")
'Cria o objeto
set mailer = server.createobject("SMTPsvg.Mailer")
Mailer.FromName = sNameFrom
Mailer.FromAddress = sEmailFrom
Mailer.FromCity = sCidadeFrom
Mailer.FromUf = sUfFrom
Mailer.FromComosabendo = sComosabendoFrom
Mailer.FromOpiniao = sOpiniao
'Host para envio de emails
Mailer.RemoteHost = "smtp.são.terra.com.br"
Mailer.AddRecipient sEmailTo, sNameTo
Mailer.Subject = sCadastroTo & " - E-mail"
'Monta o texto para o envio
strMsgHeader = sEpresaFrom & sNameFrom & "(" & sEmailFrom & ")"_
& "(" & sFoneFrom & ")" & "(" & sCidade & ")" & "(" & sUfFrom & ")"_
& "(" & sComosabendo & ")" & " quem enviou! " & vbCrLf & vbCrLf
strMsgFooter = sOpiniao
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
%>

coloque o que eu coloquei em vermelho..

Victor · Abril 19, 2004

É ao contrário dark0!!!

<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sOpiniao, sEmailTo, sFoneFrom, sUfFrom, SComosabendoFrom, sEmpresaFrom, sCidadeFrom, sCadastroTo
'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom = Request.Form("nome")
sEmailFrom = Request.Form("email")
sEmailTo = "dennisreis@uol.com.br"
sNameTo = "PROATIVA ASSESSORIA EMPRESARIAL"
sCadastroTo = "CADASTRO ON-LINE PROATIVA"
sOpiniao = Request.Form("opiniao")
sFoneFrom = Request.Form("fone")
sUfFrom = Request.Form("uf")
sCidadeFrom = Request.Form("cidade")
sEmpresaFrom = Request.form("empresa")
sComosabendoFrom = Request.Form("comosabendo")
'Cria o objeto
set mailer = server.createobject("SMTPsvg.Mailer")
Mailer.FromName = sNameFrom
Mailer.FromAddress = sEmailFrom
Mailer.FromCity = sCidadeFrom
Mailer.FromUf = sUfFrom
Mailer.FromComosabendo = sComosabendoFrom
Mailer.FromOpiniao = sOpiniao
'Host para envio de emails
Mailer.RemoteHost = "smtp.são.terra.com.br"
Mailer.AddRecipient sEmailTo, sNameTo
Mailer.Subject = sCadastroTo & " - E-mail"
'Monta o texto para o envio
strMsgHeader = sEpresaFrom & sNameFrom & "(" & sEmailFrom & ")"&_
"(" & sFoneFrom & ")" & "(" & sCidade & ")" & "(" & sUfFrom & ")"&_
"(" & sComosabendo & ")" & " quem enviou! " & vbCrLf & vbCrLf
strMsgFooter = sOpiniao
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
%>

dennisreis, caso tenha mais alguma dúvida é só postar ae, que estaremos te ajudando!!!

[]'s

Victor

dennisreis · Abril 19, 2004

Fala rapaziada, valeu mesmo aquele erro foi solucionado, só que agora está dando esse:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'mailer.FromCity'

/enviar.asp, line 22

Já tentei colocar como Mailer.FromCidade, mas dá o mesmo erro.

Abraços

Dennis

dark0 · Abril 19, 2004

cara..

pelo que eu entendi, o componente de e-mail não dá suporte à isso que você colocou..

tente comentar a linha, para ver

e acho que dará erro onde tem isso tb:

Mailer.FromCity = sCidadeFrom

Mailer.FromUf = sUfFrom

Mailer.FromComosabendo = sComosabendoFrom

Mailer.FromOpiniao = sOpiniao

isso aí tudo, acho que o componente não dá suporte..

se você quiser colocar isso.. coloque no assunto da mensagem..

Comente a linha que dá erro.. e veja se ele funciona..

mas como falei, acho que ele dará erro nessas linhas que coloquei aí

abraços

bolomaster · Abril 19, 2004

Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'mailer.FromCity'
/enviar.asp, line 22
Já tentei colocar como Mailer.FromCidade, mas dá o mesmo erro.
Abraços
Dennis

O erro diz que seu servidor não suporta a propriedade do metodo Mailer.FromCity então...

... tente tirar esta linha para fazer o teste,

você já viu se você tem o componente instalado no servidor?

ai qualquer coisa ... posta ai

Ai Dark0 foi mal acho que respondemos quase juntos, se quiser pode deletar esse post meu, porque é a mesma coisa que você falou ....

abraços

Rafael Marciano

Editado Abril 19, 2004 por bolomaster

dennisreis · Abril 19, 2004

Então eu não preciso criar esses objetos abaixo para ele serem enviados para o email da empresa?

Mailer.FromCity = sCidadeFrom

Mailer.FromUf = sUfFrom

Mailer.FromComosabendo = sComosabendoFrom

Mailer.FromOpiniao = sOpiniao

Muito Obrigado

Dennis

dark0 · Abril 19, 2004

criar não..

mas você não está confundindo?

se você quiser colocar esses campos na mensagem..

recomendo para você colocar junto no campo do CORPO da mensagem..

pois, quando você vai enviar um e-mail, não existe cidade, nem uf, e nem outros comentarios..

basicamente é: assunto, remetente, destinatario, corpo da mensagem..

acho que só

aí, se você quiser colocar mais coisas, é só juntar no corpo da mensagem

certo?

até mais

abração

dennisreis · Abril 20, 2004

Beleza vou fazer as alterações ,qualquer dúvida retorno.

Abraços

Dennis

dennisreis · Abril 23, 2004

Xi Dark0, apareceu mais um erro:

Ocorreu um erro.

O Erro é At least one Recipient, CC or BCC must be entered

Será que poderia me ajudar.

Muito obrigado

Dennis

dark0 · Abril 23, 2004

E ae Dennis, beleza?

Bom.. achoque tem uma linha errada no seu codigo:

procure a linha com isso:

Mailer.AddRecipient sEmailTo, sNameTo

e mude-a para isso:

Mailer.AddRecipient =sEmailTo, sNameTo

aqui tem um exemplo de envio de email:

http://www.locaweb.com.br/ajuda/componente...?pg=envio_email

ate mais

dennisreis · Abril 23, 2004

beleza Dark0, eu não sei o que estou fazendo de errado, coloquei a linha que você me falou, agora da o seguinte erro:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/enviar.asp, line 25

Mailer.AddRecipient=sEmailTo, sNameTo

Meu já não sei mais o que fazer, tentei separar o = mais mesmo assim. E essa página era para entregar hoje.

HEEEEEEEEEEELP.

abraços Dennis.

dark0 · Abril 23, 2004

você olhou o conteudo do link ali?

tenta se basear nele.. quem sabe tem alguma coisa digitada errada..

dennisreis · Abril 23, 2004

Não estou conseguindo abrir o link, da página não localizada. Vou tentando aqui.

Valeu

Abraços Dennis

dark0 · Abril 23, 2004

hehe

aquele link tem isso:

» UTILIZANDO O ASPMAIL PARA ENVIAR MENSAGENS
Utilize o exemplo abaixo como referência para uso do AspMail (o parâmetro "RemoteHost" não deve ser alterado):
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Meu Nome"
Mailer.FromAddress= "eu@dominio.com.br"
Mailer.RemoteHost = "smtp2.locaweb.com.br"
Mailer.AddRecipient "João da Silva", "joao@provedor.com.br"
Mailer.ContentType = "text/html" ' formatação html
Mailer.Subject = "Seu pedido foi recebido"
Mailer.BodyText = "Prezado João, seu pedido será entregue em breve, obrigado pela visita."
If Mailer.SendMail Then
Response.Write "Mensagem enviada com sucesso"
Else
Response.Write "Erro " & Mailer.Response
End If
%>
Obs: No final do script é necessário atribuir o valor "Nothing" para os objetos criados. Para o exemplo acima ficaria assim:
<%Set Mailer = Nothing %>

não testei, só copiei e colei do site aqui..

dennisreis · Abril 23, 2004

beleza Dark0, vou refazer tudo, qualquer dúvida eu post ,Muito obrigado pela ajuda e paciência Cara, valeu mesmo.

abraços Dennis.

dark0 · Abril 23, 2004

que nada cara!

no que eu puder ajudar.. to aí pra ajudar!

abraços.. e ate mais

dennisreis · Abril 30, 2004

Fala meu caro Dark0, já não sei mais o que fazer copiei o código que você me passou do link anterior, que é o código abaixo, só que dá esse erro:

Ocorreu um erro.

O Erro é Operation timed out

Cara me da um Help que já estou desesperado.

Abraços,

Dennis O Aflito

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = "PROATIVA ASSESSORIA EMPRESARIAL"

Mailer.FromAddress= "dennisreis@uol.com.br"

Mailer.RemoteHost = "smtp2.locaweb.com.br"

Mailer.AddRecipient "João da Silva&quot", "joao@provedor.com.br"

Mailer.ContentType = "text/html" ' formatação html

Mailer.Subject = "Seu pedido foi recebido"

Mailer.BodyText = "Prezado João, seu pedido será entregue em breve, obrigado pela visita."

' 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

%>

<%Set Mailer = Nothing%>

Victor · Abril 30, 2004

Dá uma lidinha aqui, que ficará mais claro para você entender o codigo:

http://www.aspbrasil.com.br/newsgroups/res...a=PERG&id=26226

Quando ler e tiver dúvidas ainda, volta ae, que tentaremos te ajudar melhor....

[]'s

Victor

dennisreis · Maio 5, 2004

Gostaria de agradecer ai o Dark0 e o Victor, muito obrigado pela ajuda, finalmente entendi como funciona o envio de email pelo asp.

Valeu rapaziada, muito obrigado mesmo.

Agora sim o formulário está funcionando.

abraços Dennis

Victor · Maio 5, 2004

Gostaria de agradecer ai o Dark0 e o Victor, muito obrigado pela ajuda, finalmente entendi como funciona o envio de email pelo asp.
Valeu rapaziada, muito obrigado mesmo.
Agora sim o formulário está funcionando.
abraços Dennis

Salve !!!

Depois coloca em um site, e da o link para gente ver como ficou!!!! E não foi nada não, só é minha e de todos os membros daqui do forum, ajudar.... E ser ajudado... Claro!!! Esperando...

Abraços,

[]'s

Victor

Entrar

Erro No FormulÁrio!

Pergunta

Link para o comentário

Compartilhar em outros sites

20 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns