Jump to content


Photo

Mudanças No Chacal Mail


  • Faça o login para participar
6 replies to this topic

#1 invictus

invictus

    Turista

  • Usuários
  • 52 posts
  • Sexo:Não informado

Posted 03/06/2003, 14:18

quero que o arquivo mail.asp, que é onde aparece a frase "obrigado por se cadastrar" apareça numa popup, e não no explorer


alguem sabe os codigos em javascript pra fazer isso?

#2 <% developer %>

<% developer %>

    Só observando...

  • Usuários
  • 1029 posts
  • Sexo:Não informado
  • Localidade:Manaus - AM

Posted 04/06/2003, 06:33

coloque isso

<%
Response.Write "<script>" &_
"set janela = window.open('obrigado.asp');" &_
"</script>"
%>

Você é de Manaus?

Quer fazer cursos de webdesign, com professor,
1 computador por aluno? E de graça?


Confira em
Fundação Paulo Feitoza

Links Legais:

Jogar Dominó Online

Jogar Xadrez Online


Códigos ASP para download

#3 invictus

invictus

    Turista

  • Usuários
  • 52 posts
  • Sexo:Não informado

Posted 05/06/2003, 15:03

rapaz, nem funcionou..

aqui esta o codigo de mail.asp

<!--#include file="cons.asp"-->


<% If Request.Form("acao") = "OK" 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
%>
     
<p><img src="../images/logo-almanaque.gif" width="284" height="98"></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Obrigado por se
  cadastrar!</font>
     
<p><a href="../index.asp"><img src="../images/mao_esq.jpg" width="65" height="31" border="0"></a></p> 
 
<% 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 %>


na parte roxa é onde tentei colocar o codigo que vc me deu mas nao rolou..

#4 Nando

Nando

    Eta eta eta, brasileiro quer.. futibol, mulher e rock'n roll

  • Usuários
  • 916 posts
  • Sexo:Masculino
  • Localidade:Sapucaia do Sul - RS
  • Interesses:Não sou interesseiro.

Posted 09/06/2003, 13:44

Em 1º lugar pra usar esse tipo de java script...o arquivo (mail.asp) tem q ser salvo na msm pasta q a pagina...
Tá salvo na msm pasta?
Espero ter ajudado! ;)
Qualquer dia será só 1 linha de assinatura! x) Aí vou deixar essa aki mesmo já pra garantir.
Fireworks: llllllllllllllllllllllllllllll (Jah mexo a tempo mas ando meio parado)
Dreamweaver: llllllllllllllllllllllllllllll (Braço direito enquanto programo)
Js: llllllllllllllllllllllllllllll (Recem iniciando)
PHP: llllllllllllllllllllllllllllll (Dinamic Punch!!)

#5 Nicholas Pufal

Nicholas Pufal

    Impossível: só existe até alguém duvidar e provar o contrário.

  • Usuários
  • 1655 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre

Posted 09/06/2003, 13:56

Para que não apareça a mensagem de obrigado em uma nova janela e na página tb você poderia por na página um redirecionamento para a index do seu site por exemplo após o envio do e-mail e a janela para ser aberta com a mensagem do obrigado, ficaria assim:

<!--#include file="cons.asp"-->


<% If Request.Form("acao") = "OK" 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



response.redirect("index.asp")
Response.Write "<script>" &_
"set janela = window.open('obrigado.asp');" &_
"</script>"



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


Não se esqueça de criar tb a página "obrigado.asp" com uma mensagem do tipo "Seu e-mail foi cadastrado com sucesso!"

[]'s
BLOG Touché Criação - Vamos trocar idéias? -> http://blog.touchecriacao.com.br/
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.

#6 invictus

invictus

    Turista

  • Usuários
  • 52 posts
  • Sexo:Não informado

Posted 11/06/2003, 13:54

mas vem cá, tem que ter un cabeçalho pro javascript funcionar? tipo:

<script LANGUAGE = "JavaScript">

<!--
function abre(palavra)
{
window.open(palavra,'gloss','toolbar=no,location=no,directories=no,status=no,scrollbars=yes,menubar=no,resizable=no,copyhistory=no,width=500,height=500');
}
// -->

</script>


pq eu coloquei como vc falou, o redirect funciono mas nao abriu a pop up. Existe já a pg obrigado.asp, está td no mesmo diretorio

#7 Nicholas Pufal

Nicholas Pufal

    Impossível: só existe até alguém duvidar e provar o contrário.

  • Usuários
  • 1655 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre

Posted 11/06/2003, 14:16

mas vem cá, tem que ter un cabeçalho pro javascript funcionar? tipo:


<script LANGUAGE = "JavaScript">

<!--
function abre(palavra)
{
window.open(palavra,'gloss','toolbar=no,location=no,directories=no,status=no,scrollbars=yes,menubar=no,resizable=no,copyhistory=no,width=500,height=500');
}
// -->

</script>


pq eu coloquei como vc falou, o redirect funciono mas nao abriu a pop up. Existe já a pg obrigado.asp, está td no mesmo diretorio

Ao invés de por nessa ordem atual o que eu te passei:

response.redirect("index.asp")
Response.Write "<script>" &_
"set janela = window.open('obrigado.asp');" &_
"</script>"

Coloque assim:

Response.Write "<script>" &_
"set janela = window.open('obrigado.asp');" &_
"</script>"
response.redirect("index.asp")

desta forma creio q deverá funcionar

[]'s
BLOG Touché Criação - Vamos trocar idéias? -> http://blog.touchecriacao.com.br/
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq