estou fazendo um fomulario de incrição de newsletter mas criei um javascript para retornar as mensagens de cadastrado erro em um pop-up, o problema é que ele sempre traz a mesma mensagem, mas se eu tirar o javascrip funciona normal, abaixo segue os códigos
jascrip que processa o form
<script>
function cadmail(){
window.open('mail/mail.asp','Listal','resizable=no,width=300,height=200,scrollbars=no, top=150');
}
</script>
<!--#include file="cons.asp"-->
<html>
<head>
<title>News Letter</title>
</head>
<body>
<% If Request.Form("acao") = "adicionar" Then
set Dicionario = CreateObject("scripting.dictionary")
i = 0
if Request.Form("email")="" then
Dicionario.add i, "É obrigatorio preencher o email!"
i = i+1
end if
Validar = ValidaEmail(request.form("email"))
If Validar = "Falso" then
Dicionario.add i, "E-Mail preenchido incorretamente!"
i = i+1
end if
AbreConexao
Sql = "SELECT email FROM dados WHERE email = '" & Request.form("email") & "'"
set Rs =Conexao.Execute(Sql)
If not Rs.Eof then
Dicionario.add i, "E-Mail já cadastrado!"
i= i+1
end if
FechaConexao
Vet = Dicionario.items
if Dicionario.Count<>0 then
Response.Write "<center><font face=verdana size=1 color=red>"
Response.Write "Verifique isso:<br>"
for i = 0 to Dicionario.Count - 1
Response.Write vet(i) & "<br>"
next
Response.Write "</font></center>"
else
AbreConexao
Sql = "INSERT INTO dados (email) "
Sql = Sql & "VALUES('" & Request.Form("email") & "')"
Conexao.Execute(Sql)
FechaConexao
%>
Obrigado por se cadastrar!
<% End If %>
<% Else
set Dicionario = CreateObject("scripting.dictionary")
i = 0
if Request.Form("email")="" then
Dicionario.add i, "É obrigatorio preencher o email!"
i = i+1
end if
AbreConexao
Sql = "SELECT email FROM dados WHERE email = '" & Request.form("email") & "'"
set Rs =Conexao.Execute(Sql)
If Rs.Eof then
Dicionario.add i, "E-Mail não cadastrado!"
i= i+1
end if
FechaConexao
Vet = Dicionario.items
if Dicionario.Count<>0 then
Response.Write "<center><font face=verdana size=1 color=red>"
Response.Write "Verifique isso:<br>"
for i = 0 to Dicionario.Count - 1
Response.Write vet(i) & "<br>"
next
Response.Write "</font></center>"
else
AbreConexao
Sql = "DELETE * FROM dados WHERE email = '" & Request.form("email") & "'"
Conexao.Execute(Sql)
FechaConexao %>
Email <%=Request.form("email")%> deletado com sucesso!
<% end if %>
<% end if %>
<BR>
</body>
</html>
a unica mensagem que aparece idiferente das opções colocadas no form é:
Verifique isso:
É obrigatorio preencher o email!
E-Mail não cadastrado!
Pergunta
Guest Jorge Kania
estou fazendo um fomulario de incrição de newsletter mas criei um javascript para retornar as mensagens de cadastrado erro em um pop-up, o problema é que ele sempre traz a mesma mensagem, mas se eu tirar o javascrip funciona normal, abaixo segue os códigos
jascrip que processa o form
<script> function cadmail(){ window.open('mail/mail.asp','Listal','resizable=no,width=300,height=200,scrollbars=no, top=150'); } </script>form para cadastro e remoção da newsletter pagina que processa o formulário<!--#include file="cons.asp"--> <html> <head> <title>News Letter</title> </head> <body> <% If Request.Form("acao") = "adicionar" Then set Dicionario = CreateObject("scripting.dictionary") i = 0 if Request.Form("email")="" then Dicionario.add i, "É obrigatorio preencher o email!" i = i+1 end if Validar = ValidaEmail(request.form("email")) If Validar = "Falso" then Dicionario.add i, "E-Mail preenchido incorretamente!" i = i+1 end if AbreConexao Sql = "SELECT email FROM dados WHERE email = '" & Request.form("email") & "'" set Rs =Conexao.Execute(Sql) If not Rs.Eof then Dicionario.add i, "E-Mail já cadastrado!" i= i+1 end if FechaConexao Vet = Dicionario.items if Dicionario.Count<>0 then Response.Write "<center><font face=verdana size=1 color=red>" Response.Write "Verifique isso:<br>" for i = 0 to Dicionario.Count - 1 Response.Write vet(i) & "<br>" next Response.Write "</font></center>" else AbreConexao Sql = "INSERT INTO dados (email) " Sql = Sql & "VALUES('" & Request.Form("email") & "')" Conexao.Execute(Sql) FechaConexao %> Obrigado por se cadastrar! <% End If %> <% Else set Dicionario = CreateObject("scripting.dictionary") i = 0 if Request.Form("email")="" then Dicionario.add i, "É obrigatorio preencher o email!" i = i+1 end if AbreConexao Sql = "SELECT email FROM dados WHERE email = '" & Request.form("email") & "'" set Rs =Conexao.Execute(Sql) If Rs.Eof then Dicionario.add i, "E-Mail não cadastrado!" i= i+1 end if FechaConexao Vet = Dicionario.items if Dicionario.Count<>0 then Response.Write "<center><font face=verdana size=1 color=red>" Response.Write "Verifique isso:<br>" for i = 0 to Dicionario.Count - 1 Response.Write vet(i) & "<br>" next Response.Write "</font></center>" else AbreConexao Sql = "DELETE * FROM dados WHERE email = '" & Request.form("email") & "'" Conexao.Execute(Sql) FechaConexao %> Email <%=Request.form("email")%> deletado com sucesso! <% end if %> <% end if %> <BR> </body> </html>a unica mensagem que aparece idiferente das opções colocadas no form é:Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
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.