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

Java Script, Asp?

Guest - s_ric_ptbrasil -

Perguntado por Guest - s_ric_ptbrasil -,

 Share

Pergunta

Guest - s_ric_ptbrasil -

Guest - s_ric_ptbrasil -

Postado
Postado

Estou tentando fazer o formulário via e-mail em asp. Eu coloquei no ar e testei o formulário para

enviar em meu e-mail, mas quando clico em enviar, aparece a seguinte informação:

"A página não pode ser exibida

Há um problema com a página que você está tentando acessar e ela não pode ser exibida. "

http://www.ocftecnologia.com.br/fale_conosco.asp

Eu sou leigo no assunto, e não sei como corrigir este problema, por favor me ajudem. Este código

eu baixei para tentar solucionar o meu problema, mas não consegui.

Eu baixei o download com 3 arquivos ASP: fale_conosco.asp, fc_confirmacao.asp e fc_enviar.asp

Veja abaixo o código do formulário

<%
'-------------------------------------------
' Aqui está o código para que apareça uma 
' mensagem de erro quando um dos campos 
' não for preenchido corretamente

Dim ErroMsg
Dim strMsg
ErroMsg = cstr(Request.QueryString ("erro"))
msg = ""

Select case ErroMsg
case "1"
msg = "Digite seu nome !"
case "2"
msg = "Digite um email válido!"
case "3"
msg = "Digite um texto !"
end select        

if msg <> "" then
Response.Write "<p align=""center""><font face=""verdana"" color=" & DefaultColor & " size=""1""><b>" & msg & "</b></font></p>"
end if

' Fim do código de erro
'-------------------------------------------
%>

<%
   '-------------------------------------------
   ' Esta área você poderá configurar 
   ' ao seu gosto. Anexe as folhas de estilos
   ' mas respeitando os nomes dos campos.
   '-------------------------------------------
%>

<center>
<table cellpadding="3" cellspacing="0">
<tr><tudo align="center">

<strong><u>Fale Conosco</u></strong>

</tudo></tr><tr><tudo align="right">

<form action="fc_enviar.asp" method="POST">

<font face="verdana" size="1"><br>

Nome: <input type="text" name="fc_name" size="25"><br>

E-mail: <input type="text" name="fc_email" size="25"><br>

<br>Mensagens:<br>

<textarea name="fc_text" rows="5" cols="30" ></textarea><br>

<br><center><input type="submit" value="Enviar"></center></font></table></center>

Se puderem me ajudar este problema de alguma forma eu vou agradecer muito, Alguma matéria que

explique ou algum artigo.

Agradeço desde já.

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0
Guest - s_ric_ptbrasil -

Guest - s_ric_ptbrasil -

Postado
Postado 
<%
        ' ----------------------------------------------------------------
        ' Página com os comandos para envio no sistema ASPEmail
        ' mas se você souber outros sistemas para envio fique a vontade.
        ' ----------------------------------------------------------------

    ' ----------------------------------------------------------------
    ' Declarando as variáveis e recebendo os dados do formulário
    ' ----------------------------------------------------------------

Dim nome, email, texto

nome = Request.form("fc_name")
email = Request.form("fc_email")
texto = Request.form("fc_text")

    ' ----------------------------------------------------------------
    ' Declarando as sessões que serviram para a página de resposta automática
    ' ----------------------------------------------------------------

Session ("nome1") = Request.form("fc_name")
Session ("email1") = Request.form("fc_email")
Session ("texto1") = Request.form("fc_text")

    ' ----------------------------------------------------------------
    ' Fazendo a verificação dos campos e se estão preenchidos corretamente
    ' ----------------------------------------------------------------

if nome = "" then
Response.Redirect "fale_conosco.asp?erro=1"
end if 

if email = "" then
Response.Redirect "fale_conosco.asp?erro=2"
end if

if texto = "" then
Response.Redirect "fale_conosco.asp?erro=3"
end if 

    ' ----------------------------------------------------------------
    ' Verifica se há o @ no email
    ' ----------------------------------------------------------------

Dim verifica_email
verifica_email = email
texto = Instr(1,verifica_email,"@")
if texto = false then
Response.Redirect "fale_conosco.asp?erro=2"
end if

        ' ----------------------------------------------------------------
        ' Código para envio de email por ASPEmail
        ' ----------------------------------------------------------------

    ' ----------------------------------------------------------------
    ' Criando objeto do ASPEmail
    ' ----------------------------------------------------------------

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

    ' ----------------------------------------------------------------
    ' Endereço do SMTP, host para envio de emails
    ' ----------------------------------------------------------------

Mail.Host = "smtp.servidor.com.br"

    ' ----------------------------------------------------------------
    ' Propriedades do ASPEmail
    ' From: Remetente |||| FromName: Nome do remetente |||| AddAddress: seu email
    ' AddReplyTo: endereço para resposta |||| Subject: Assunto do email 
    ' IsHTML: Propriedade HTML |||| Body: Corpo da Mensagem(código em html, fica a tua escolha).
    ' ----------------------------------------------------------------

Mail.From = email
Mail.FromName = "Nome do remetente"
Mail.AddAddress "ricardoguimaraes@ocf.com.br"
Mail.AddReplyTo email
Mail.Subject = "Fale Conosco"
Mail.IsHTML = True
Mail.Body = "Corpo do documento. Coloque aqui a variável da mensagem exemplo:" & texto

    ' ----------------------------------------------------------------
    ' Enviando email
    ' ----------------------------------------------------------------

Mail.Send

    ' ----------------------------------------------------------------
    ' Se os erros forem iguais a 0, o internauta será reenviado para a página de 
    ' auto-resposta (confirmação).
    ' ----------------------------------------------------------------

if err = 0 then
Response.Redirect "fc_confirmacao.asp"
else
response.write "Erro ao enviar email. <a href='mailto:SEU_EMAIL'>Clique aqui</a>"
end if

' ----------------------------------------------------------------

%>

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - s_ric_ptbrasil -

Guest - s_ric_ptbrasil -

Postado
Postado 
<%
        ' ----------------------------------------------------------------
        ' Página com os comandos para envio no sistema ASPEmail
        ' mas se você souber outros sistemas para envio fique a vontade.
        ' ----------------------------------------------------------------

    ' ----------------------------------------------------------------
    ' Declarando as variáveis e recebendo os dados do formulário
    ' ----------------------------------------------------------------

Dim nome, email, texto

nome = Request.form("fc_name")
email = Request.form("fc_email")
texto = Request.form("fc_text")

    ' ----------------------------------------------------------------
    ' Declarando as sessões que serviram para a página de resposta automática
    ' ----------------------------------------------------------------

Session ("nome1") = Request.form("fc_name")
Session ("email1") = Request.form("fc_email")
Session ("texto1") = Request.form("fc_text")

    ' ----------------------------------------------------------------
    ' Fazendo a verificação dos campos e se estão preenchidos corretamente
    ' ----------------------------------------------------------------

if nome = "" then
Response.Redirect "fale_conosco.asp?erro=1"
end if 

if email = "" then
Response.Redirect "fale_conosco.asp?erro=2"
end if

if texto = "" then
Response.Redirect "fale_conosco.asp?erro=3"
end if 

    ' ----------------------------------------------------------------
    ' Verifica se há o @ no email
    ' ----------------------------------------------------------------

Dim verifica_email
verifica_email = email
texto = Instr(1,verifica_email,"@")
if texto = false then
Response.Redirect "fale_conosco.asp?erro=2"
end if

        ' ----------------------------------------------------------------
        ' Código para envio de email por ASPEmail
        ' ----------------------------------------------------------------

    ' ----------------------------------------------------------------
    ' Criando objeto do ASPEmail
    ' ----------------------------------------------------------------

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

    ' ----------------------------------------------------------------
    ' Endereço do SMTP, host para envio de emails
    ' ----------------------------------------------------------------

Mail.Host = "smtp.servidor.com.br"

    ' ----------------------------------------------------------------
    ' Propriedades do ASPEmail
    ' From: Remetente |||| FromName: Nome do remetente |||| AddAddress: seu email
    ' AddReplyTo: endereço para resposta |||| Subject: Assunto do email 
    ' IsHTML: Propriedade HTML |||| Body: Corpo da Mensagem(código em html, fica a tua escolha).
    ' ----------------------------------------------------------------

Mail.From = email
Mail.FromName = "Nome do remetente"
Mail.AddAddress "ricardoguimaraes@ocf.com.br"
Mail.AddReplyTo email
Mail.Subject = "Fale Conosco"
Mail.IsHTML = True
Mail.Body = "Corpo do documento. Coloque aqui a variável da mensagem exemplo:" & texto

    ' ----------------------------------------------------------------
    ' Enviando email
    ' ----------------------------------------------------------------

Mail.Send

    ' ----------------------------------------------------------------
    ' Se os erros forem iguais a 0, o internauta será reenviado para a página de 
    ' auto-resposta (confirmação).
    ' ----------------------------------------------------------------

if err = 0 then
Response.Redirect "fc_confirmacao.asp"
else
response.write "Erro ao enviar email. <a href='mailto:SEU_EMAIL'>Clique aqui</a>"
end if

' ----------------------------------------------------------------

%>

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - s_ric_ptbrasil -

Guest - s_ric_ptbrasil -

Postado
Postado

Eu mandei sem querer o código 2vezes mas estou mandando de novo pois poderá pensar que outra pessoa

já resolveu o problema.

Lá vai de novo o código.

<%
        ' ----------------------------------------------------------------
        ' Página com os comandos para envio no sistema ASPEmail
        ' mas se você souber outros sistemas para envio fique a vontade.
        ' ----------------------------------------------------------------

    ' ----------------------------------------------------------------
    ' Declarando as variáveis e recebendo os dados do formulário
    ' ----------------------------------------------------------------

Dim nome, email, texto

nome = Request.form("fc_name")
email = Request.form("fc_email")
texto = Request.form("fc_text")

    ' ----------------------------------------------------------------
    ' Declarando as sessões que serviram para a página de resposta automática
    ' ----------------------------------------------------------------

Session ("nome1") = Request.form("fc_name")
Session ("email1") = Request.form("fc_email")
Session ("texto1") = Request.form("fc_text")

    ' ----------------------------------------------------------------
    ' Fazendo a verificação dos campos e se estão preenchidos corretamente
    ' ----------------------------------------------------------------

if nome = "" then
Response.Redirect "fale_conosco.asp?erro=1"
end if 

if email = "" then
Response.Redirect "fale_conosco.asp?erro=2"
end if

if texto = "" then
Response.Redirect "fale_conosco.asp?erro=3"
end if 

    ' ----------------------------------------------------------------
    ' Verifica se há o @ no email
    ' ----------------------------------------------------------------

Dim verifica_email
verifica_email = email
texto = Instr(1,verifica_email,"@")
if texto = false then
Response.Redirect "fale_conosco.asp?erro=2"
end if

        ' ----------------------------------------------------------------
        ' Código para envio de email por ASPEmail
        ' ----------------------------------------------------------------

    ' ----------------------------------------------------------------
    ' Criando objeto do ASPEmail
    ' ----------------------------------------------------------------

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

    ' ----------------------------------------------------------------
    ' Endereço do SMTP, host para envio de emails
    ' ----------------------------------------------------------------

Mail.Host = "smtp.servidor.com.br"

    ' ----------------------------------------------------------------
    ' Propriedades do ASPEmail
    ' From: Remetente |||| FromName: Nome do remetente |||| AddAddress: seu email
    ' AddReplyTo: endereço para resposta |||| Subject: Assunto do email 
    ' IsHTML: Propriedade HTML |||| Body: Corpo da Mensagem(código em html, fica a tua escolha).
    ' ----------------------------------------------------------------

Mail.From = email
Mail.FromName = "Nome do remetente"
Mail.AddAddress "ricardoguimaraes@ocf.com.br"
Mail.AddReplyTo email
Mail.Subject = "Fale Conosco"
Mail.IsHTML = True
Mail.Body = "Corpo do documento. Coloque aqui a variável da mensagem exemplo:" & texto

    ' ----------------------------------------------------------------
    ' Enviando email
    ' ----------------------------------------------------------------

Mail.Send

    ' ----------------------------------------------------------------
    ' Se os erros forem iguais a 0, o internauta será reenviado para a página de 
    ' auto-resposta (confirmação).
    ' ----------------------------------------------------------------

if err = 0 then
Response.Redirect "fc_confirmacao.asp"
else
response.write "Erro ao enviar email. <a href='mailto:SEU_EMAIL'>Clique aqui</a>"
end if

' ----------------------------------------------------------------

%>

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - s_ric_ptbrasil -

Guest - s_ric_ptbrasil -

Postado
Postado

Eu fiz todos os procedimentos e depois de ter enviado o formulário para meu e-mail como teste, apareceu

em uma nova tela o seguinte texto:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/fc_enviar.asp, line 68

800401f3

e depois fui ver se chegou a mensagem no meu e-mail, mas não apareceu.

Continuo agradecendo a colaboração de voces.

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - s_ric_ptbrasil -

Guest - s_ric_ptbrasil -

Postado
Postado

Não tem outra maneira criar um formulário sem ser em ASP?

Estou muito confuso. Eu não entendo nada de ASP e JAVASCRIPT.

Agradeço pelo ajuda.

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.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

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