Ir para conteúdo
Fórum Script Brasil
  • 0

Erro No FormulÁrio!


dennisreis

Pergunta

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

%>

Link para o comentário
Compartilhar em outros sites

20 respostass a esta questão

Posts Recomendados

  • 0

<%

'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..

Link para o comentário
Compartilhar em outros sites

  • 0

É ao contrário dark0!!! wink.gif

<%

'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!!! wink.gif

[]'s

Victor

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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 por bolomaster
Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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. smile.gif

abraços Dennis.

Link para o comentário
Compartilhar em outros sites

  • 0

você olhou o conteudo do link ali?

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

Link para o comentário
Compartilhar em outros sites

  • 0

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..

Link para o comentário
Compartilhar em outros sites

  • 0

que nada cara!

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

abraços.. e ate mais

Link para o comentário
Compartilhar em outros sites

  • 0

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 rolleyes.gif

<%

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%>

Link para o comentário
Compartilhar em outros sites

  • 0
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. biggrin.gif

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!!! biggrin.gif Esperando...

Abraços,

[]'s

Victor

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,6k
×
×
  • Criar Novo...