Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

kania

Formulario de Nerwletter

Por , em ASP Clássico

Recommended Posts

kania    0

kania
Postado

estou fazendo um fomulario de indicação 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

 

<form action="javascript: cadmail()">		<table width="137" border="0" cellpadding="2" cellspacing="0">		  <tr> 			<td width="148" align="center"><font face="Verdana" size="1">Receba 			  as noticias <br>			  do site por e-mail:</font></td>		  </tr>		  <tr> 			<td width="148"><div align="center"><font face="Verdana" size="1"> 				<input type="text" name="email" color="#666666" backgraund-color="#666666" size="15" style="text-align : center;">				</font></div></td>		  </tr>		  <tr> 			<td align="center"> <table width="95%" border="00" cellspacing="0" cellpadding="0">				<tr> 				  <td width="68%" align="right"><font face="Verdana" size="1">Adicionar</font></td>				  <td width="32%"><font face="Verdana" size="1"> 					<input type="radio" value="adicionar" checked name="acao">					</font></td>				</tr>				<tr> 				  <td align="right"><font face="Verdana" size="1">Retirar</font></td>				  <td><font face="Verdana" size="1"> 					<input type="radio" name="acao" value="retirar">					</font></td>				</tr>				<tr> 				  <td height="29" align="right"> </td>				  <td><font face="Verdana" size="1"> 					<input name="submit" type="submit" value="Ok">					</font></td>				</tr>			  </table></td>		  </tr>		</table></form>

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 ifAbreConexaoSql = "SELECT email FROM dados WHERE email = '" & Request.form("email")  & "'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "E-Mail já cadastrado!"i= i+1end ifFechaConexao			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>"elseAbreConexaoSql = "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 ifAbreConexaoSql = "SELECT email FROM dados WHERE email = '" & Request.form("email")  & "'"set Rs =Conexao.Execute(Sql)If Rs.Eof thenDicionario.add i, "E-Mail não cadastrado!"i= i+1end ifFechaConexao			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>"elseAbreConexaoSql = "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>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito