Mudanças No Chacal Mail
#1
Posted 03/06/2003, 14:18
alguem sabe os codigos em javascript pra fazer isso?
#2
Posted 04/06/2003, 06:33
<% Response.Write "<script>" &_ "set janela = window.open('obrigado.asp');" &_ "</script>" %>
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
Posted 05/06/2003, 15:03
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
Posted 09/06/2003, 13:44
Tá salvo na msm pasta?
Espero ter ajudado!
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
Posted 09/06/2003, 13:56
<!--#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
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.
#6
Posted 11/06/2003, 13:54
<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
Posted 11/06/2003, 14:16
Ao invés de por nessa ordem atual o que eu te passei: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
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
// 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)