Ir para conteúdo
Fórum Script Brasil

.Andreia.

Veteranos
  • Total de itens

    5.686
  • Registro em

  • Última visita

Tudo que .Andreia. postou

  1. Oi Luciene, é uma boa idéia, que não tinha me ocorrido.... Como eu sou horriiiiiiiiiiiiiiiiiiivel em javascript, vou lá na área postar um tópico. Ps.: Já pesquisei mas não encontrei Vlw pela dica
  2. ueeeeeeee funciona certinho aqui no meu.... Veja como está o meu arquivo confirmacao_ativa1.asp: <html> <head> <title>GPSOM - Grupo PopSom - Cadastros</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <!--#include file="conexao.asp"--> <body bgcolor="#FFFFFF" text="#000000"> <% Dim conexao call abre_conexao nome = request.form("nome") email = request.form("email") ip = request.form("ip") data = request.form("data") ativo = request.form("ativo") strsql = "select * from cadastro where Email = '"& Email &"'" set rs = conexao.execute(strsql) if not rs.eof then Response.write "Seu email já encontra-se em nossa base de dados <br><br><a href='javascript:history.go(-1)'>Voltar</a>" end if sql = "insert into cadastro (nome,email,ip,data,ativo) values ('"& nome &"','"& email &"','"& ip &"','"& data &"', '"& ativo &"')" set sql = conexao.execute(sql) sql2 = "select * from cadastro where Email = '"& Email &"'" set tab2 = Conexao.Execute (sql2) varDe = "Sistema" varPara = email varAssunto = "Cadastro" varTexto = "Você solicitou o cadastro no Portal GPSOM através do ip "& ip &" em "& data &"<br> Para confirmar o seu cadastro </font><a href='confirma.asp?email="&email&"&id_usuario="&tab2("id_usuario")&"' target='_blank'><b>Clique Aqui</b></a></center></font></td></tr></table>" Set Email = Server.CreateObject ("CDONTS.NewMail") Email.From = varDe Email.To = varPara Email.Subject = varAssunto Email.Body = varTexto Email.Send Set Email = nothing call fecha_conexao set conexao = nothing %> <p><font size="2" face="Verdana, Arial, sans-serif">Prezado <b><%=nome%></b> .</font></p> <p><font size="2" face="Verdana, Arial, sans-serif">Seu cadastro ainda n&atilde;o foi efetivado , para confirm&aacute;-lo , acesse o email <%=vemail%> e clique sobre o link para confirmar este cadastro.</font></p> <p><font size="2" face="Verdana, Arial, sans-serif">Este politica &eacute; feita , para que ningu&eacute;m utilize o seu email de m&aacute; f&eacute;. </font></p> <p><font face="Verdana, Arial, sans-serif" size="2">Equipe Anti Spam - GPSOM</font></p> <p>&nbsp;</p> </body> </html> ps.: Veja se você chamou a função da conexão Call abre_conexao... e..... saravá meu pai!!! rsssss
  3. Ahhhhh então Marcelo... daí sim vem o form, eu achei que você só quisesse o script que fizesse a formatação ai seria, exemplo (em ASP): ' aqui você cola o script da formatação . . . <form method="post" action="tela2.asp" name="formulario"> <INPUT TYPE="Text" NAME="texto" SIZE="10" MAXLENGTH="10" onKeydown="FormataMoeda(this,10,event)" onkeypress="return maskKeyPress(event)"> <input type="submit" name="botao" value="Enviar"> </form> ai na tela2.asp você manda imprimir a variável: <% response.write request.form("texto") %> ok?
  4. Apague esse rs("id_usuario"). vamos laaaa tem que funcionar isso hein rssss
  5. Marcelo, eu testei aqui e funcinou certinho. Mas como você disse que não conseguiu faça assim, copie exatamente o texto aqui e salve o arquivo. Daí é só rodar. <script language=javascript> function BlockKeybord() { if((event.keyCode < 48) || (event.keyCode > 57)) { event.returnValue = false; } } function troca(str,strsai,strentra) { while(str.indexOf(strsai)>-1) { str = str.replace(strsai,strentra); } return str; } function FormataMoeda(campo,tammax,teclapres,caracter) { if(teclapres == null || teclapres == "undefined") { var tecla = -1; } else { var tecla = teclapres.keyCode; } if(caracter == null || caracter == "undefined") { caracter = "."; } vr = campo.value; if(caracter != "") { vr = troca(vr,caracter,""); } vr = troca(vr,"/",""); vr = troca(vr,",",""); vr = troca(vr,".",""); tam = vr.length; if(tecla > 0) { if(tam < tammax && tecla != 8) { tam = vr.length + 1; } if(tecla == 8) { tam = tam - 1; } } if(tecla == -1 || tecla == 8 || tecla >= 48 && tecla <= 57 || tecla >= 96 && tecla <= 105) { if(tam <= 2) { campo.value = vr; } if((tam > 2) && (tam <= 5)) { campo.value = vr.substr(0, tam - 2) + ',' + vr.substr(tam - 2, tam); } if((tam >= 6) && (tam <= 8)) { campo.value = vr.substr(0, tam - 5) + caracter + vr.substr(tam - 5, 3) + ',' + vr.substr(tam - 2, tam); } if((tam >= 9) && (tam <= 11)) { campo.value = vr.substr(0, tam - 8) + caracter + vr.substr(tam - 8, 3) + caracter + vr.substr(tam - 5, 3) + ',' + vr.substr(tam - 2, tam); } if((tam >= 12) && (tam <= 14)) { campo.value = vr.substr(0, tam - 11) + caracter + vr.substr(tam - 11, 3) + caracter + vr.substr(tam - 8, 3) + caracter + vr.substr(tam - 5, 3) + ',' + vr.substr(tam - 2, tam); } if((tam >= 15) && (tam <= 17)) { campo.value = vr.substr(0, tam - 14) + caracter + vr.substr(tam - 14, 3) + caracter + vr.substr(tam - 11, 3) + caracter + vr.substr(tam - 8, 3) + caracter + vr.substr(tam - 5, 3) + ',' + vr.substr(tam - 2, tam); } } } function maskKeyPress(objEvent) { var iKeyCode; iKeyCode = objEvent.keyCode; if(iKeyCode>=48 && iKeyCode<=57) return true; return false; } </script> <INPUT TYPE="Text" NAME="texto" SIZE="10" MAXLENGTH="10" onKeydown="FormataMoeda(this,10,event)" onkeypress="return maskKeyPress(event)"> Quanto ao form, você viu que não precisa dele pra faze-lo rodar, será necessário para outras finalidades, mas daí é só implementar.
  6. Pessoal, tenho uma aplicação que edita dados existentes do BD, esse form de edição funciona assim: Na tela 1 o usuário digita a data inicial e a data final. Abaixo (na mesma tela) ele insere nos text as datas. Na tela seguinte existe um for que pega os dados do form da tela anterior e faz um update. Mas eu preciso que antes de inserir, ainda dentro do for, faça uma verificação das datas. Exemplo: ------------------- Data inicial: 20/08/2005 - Data final: 26/08/2005 Lançamentos: 20/08/2005 - produto X 26/08/2005 - produto Y 28/08/2005 - produto Z ------------------- Daí as datas tem que estar dentro do período informado, ou seja, no exemplo tem que retornar erro porque foi digitado uma data fora do período (28/08/2005). Alguém tem idéia de como fazer isso?
  7. Não sei se entendi, mas você quer um pop-up sem um arquivo só pra ele, gerado dentro de outro arquivo? Se for isso, veja este exemplo: <HEAD> <script LANGUAGE="JavaScript"> <!-- Begin function popupWin() { text = "<html>\n<head>\n<title>Pop Window</title>\n<body>\n"; text += "<center>\n<br>"; text += "</center>\n</body>\n</html>\n"; setTimeout('windowProp(text)', 3000); // delay 3 seconds before opening } function windowProp(text) { newWindow = window.open('','newWin','width=300,height=100'); newWindow.document.write(text); setTimeout('closeWin(newWindow)', 5000); // delay 5 seconds before closing } function closeWin(newWindow) { newWindow.close(); // close small window and depart } // End --> </script> </HEAD> <BODY onLoad="popupWin()"> <center> <p><font face="Verdana" style="font-size: 8pt">Uma página abrirá em 3 e fechará em 5 segundos.</font></p> </center> <p align="center"><font face="Verdana">Exemplo de Pop-Up com tempo</font></p> falou
  8. Marcelo, tenho este script, veja se lhe é útil: Ps.: Juntei as duas funções que você precisa <script language=javascript> function BlockKeybord() { if((event.keyCode < 48) || (event.keyCode > 57)) { event.returnValue = false; } } function troca(str,strsai,strentra) { while(str.indexOf(strsai)>-1) { str = str.replace(strsai,strentra); } return str; } function FormataMoeda(campo,tammax,teclapres,caracter) { if(teclapres == null || teclapres == "undefined") { var tecla = -1; } else { var tecla = teclapres.keyCode; } if(caracter == null || caracter == "undefined") { caracter = "."; } vr = campo.value; if(caracter != "") { vr = troca(vr,caracter,""); } vr = troca(vr,"/",""); vr = troca(vr,",",""); vr = troca(vr,".",""); tam = vr.length; if(tecla > 0) { if(tam < tammax && tecla != 8) { tam = vr.length + 1; } if(tecla == 8) { tam = tam - 1; } } if(tecla == -1 || tecla == 8 || tecla >= 48 && tecla <= 57 || tecla >= 96 && tecla <= 105) { if(tam <= 2) { campo.value = vr; } if((tam > 2) && (tam <= 5)) { campo.value = vr.substr(0, tam - 2) + ',' + vr.substr(tam - 2, tam); } if((tam >= 6) && (tam <= 8)) { campo.value = vr.substr(0, tam - 5) + caracter + vr.substr(tam - 5, 3) + ',' + vr.substr(tam - 2, tam); } if((tam >= 9) && (tam <= 11)) { campo.value = vr.substr(0, tam - 8) + caracter + vr.substr(tam - 8, 3) + caracter + vr.substr(tam - 5, 3) + ',' + vr.substr(tam - 2, tam); } if((tam >= 12) && (tam <= 14)) { campo.value = vr.substr(0, tam - 11) + caracter + vr.substr(tam - 11, 3) + caracter + vr.substr(tam - 8, 3) + caracter + vr.substr(tam - 5, 3) + ',' + vr.substr(tam - 2, tam); } if((tam >= 15) && (tam <= 17)) { campo.value = vr.substr(0, tam - 14) + caracter + vr.substr(tam - 14, 3) + caracter + vr.substr(tam - 11, 3) + caracter + vr.substr(tam - 8, 3) + caracter + vr.substr(tam - 5, 3) + ',' + vr.substr(tam - 2, tam); } } } function maskKeyPress(objEvent) { var iKeyCode; iKeyCode = objEvent.keyCode; if(iKeyCode>=48 && iKeyCode<=57) return true; return false; } </script> e no campo: <INPUT TYPE="Text" NAME="texto" SIZE="10" MAXLENGTH="10" onKeydown="FormataMoeda(this,10,event)" onkeypress="return maskKeyPress(event)">
  9. Então eu fiz uma simulação aqui da sua aplicação e consegui entender o problema. Veja então: sql = "insert into cadastro (nome,email,ip,data,ativo) values ('"& nome &"','"& email &"','"& ip &"','"& data &"', '"& ativo &"')" set sql = conexao.execute(sql) sql2 = "select * from cadastro where Email = '"& Email &"'" set tab2 = Conexao.Execute (sql2) . . . HTML = HTML & "<font face='verdana' size='2'>Você solicitou o cadastro no Portal GPSOM através do ip "& ip &" em "& data &"<br> Para confirmar o seu cadastro </font><a href='http://www.gpsom.com/forms/login/cadastra_mail/confirma.asp?email="&email&"&id_usuario="&tab2("id_usuario")&"' target='_blank'> Eu acredito que tenha uma forma melhor do que esta porque só consegui chegar na solução fazendo uma outra consulta ao banco. Porque assim: se ele está cadastrado então você tem a id_usuario (já está no banco) se ele não está, o sistema ainda não tem a id_usuario, daí ele registra e ai sim pega a id_usuario. Nesse passo eu fiz uma nova consulta, pra ele achar a id_usuario. Outra coisa, mude tb no arquivo confirma.asp, porque Id_usuario é autonumeração e você não pode fazer update nela: sql_atualiza = "UPDATE Cadastro SET " sql_atualiza = sql_atualiza & "Ativo = " & Ativo & "" sql_atualiza = sql_atualiza & " WHERE ID_Usuario = " & ID_Usuario Se alguém ai tiver uma ideia melhor pra resolver, legal, se não CMachado pode fazer desse jeito q eu te passei porque testei aqui e funcionou. falou
  10. vamos pensar juntos hein rssss, o Id_Usuario vem do Banco de Dados e não do form... então tenta (pela milhonésia vez): . . <% nome = request.form("nome") email = request.form("email") ip = request.form("ip") data = request.form("data") ativo = request.form("ativo") strsql = "select * from cadastro where Email = '"& Email &"'" set rs = conexao.execute(strsql) id_usuario= rs("id_usuario") eu já confundi tudo agora hein, se não for você vai ter q me passar essa sua aplicação pra entender... ai ai ai
  11. opaaaaaa eu tb escrevi tag asp dentro de tag asp, nem percebi, desculpe... tente agora: <a href='http://www.gpsom.com/forms/login/cadastra_mail/confirma.asp?email="&email&"&id_usuario="&id_usuario&"' target='_blank'><b>Clique Aqui</b></a></center></font></td></tr></table>"
  12. Então o que está faltando é o ID_Usuario ou Email??? bom se for o ID_usuario, modifique em confirmacao_ativa1.asp: . . . Para confirmar o seu cadastro </font<a href="http://www.gpsom.com/forms/login/cadastra_mail/confirma.asp?email=<%= email %>&id_usuario=<%= id_usuario %>" target="_blank"><b>Clique... Se for email, você tem que colocar no confirma.asp request.querystring("id_usuario") ao invés de request.form("id_usuario") porque a variavel está vindo com o link e não por um form. Se for o e-mail que está faltando, é a mesma coisa request.querystring("email")
  13. Opa, se o seu campo Id_usuario e ativo são do tipo número então altere o UPDATE: sql_atualiza = "UPDATE Cadastro SET " sql_atualiza = sql_atualiza & "ID_Usuario = " & ID_Usuario & ", " sql_atualiza = sql_atualiza & "Ativo = " & Ativo & "" sql_atualiza = sql_atualiza & " WHERE ID_Usuario = " & ID_Usuario
  14. CMachado, desculpe estar respondendo só agora, é que não estava recendo avisos deste tópico! então, esse seu último erro é porque ele não está recebendo o valor do ID_usuario. Veja se você está passando o valor na página anterior, porque no confirma.asp está solicitando esta variável.
  15. .Andreia.

    Problemas Com Update

    Nossa, eu não vejo problema... você já fez um response.write sqlUpdate response.end antes do Execute(sqlUpdate) pra ver o que tá indo pro banco?
  16. .Andreia.

    Display

    Então Marcondes, como eu disse, talvez uma forma de suavizar seria aumentar o tempo do refresh, para 3 ou 5 segundos (ou quanto achar melhor). exemplo: 3 segundos: <META HTTP-EQUIV="REFRESH" CONTENT="3;Display.asp">
  17. .Andreia.

    Problemas Com Update

    então posta o erro pra gente ver
  18. .Andreia.

    Display

    Eu já vi este chat, aliás já peguei este chat. E este display tem um comando de refresh a cada 1 segundo. Veja nesta tag: <META HTTP-EQUIV="REFRESH" CONTENT="1;Display.asp"> Mas, se não me engano, se você tira esse refresh... as mensagens não irão aparer. A forma de suavizar seria aumentar o tempo pra 3 ou 5 segundos... mas daí as mensagens serão mostradas com X segundos se atraso.
  19. A mesma resposta que passei no seu outro post, neste link
  20. No Fireworks você faz esse tipo de menu brincando...
  21. Se você não sinaliza que campo será aquele (se CNPJ ou se CPF) fica ruim. Como Orlando disse, se tem máscara daí como vai saber qual a certa a ser aplicada? talvez fosse melhor um combo do lado, com as opções CPNJ|CPF.
  22. .Andreia.

    Problemas Com Update

    Bom, tenta assim então: sqlUpdate = "UPDATE Veiculos SET" sqlUpdate = sqlUpdate & " imagem = '" & varImg & "'" sqlUpdate = sqlUpdate & ", img_amp = '" & varAmp & "'" sqlUpdate = sqlUpdate & ", modelo = '" & varModelo & "'" sqlUpdate = sqlUpdate & ", fabr = '" & varFabr & "'" sqlUpdate = sqlUpdate & ", ano = " & varAno sqlUpdate = sqlUpdate & ", motor = '" & varMotor & "'" sqlUpdate = sqlUpdate & ", trac = '" & varTrac & "'" sqlUpdate = sqlUpdate & ", portas = '" & varPort & "'" sqlUpdate = sqlUpdate & ", cor = '" & varCor & "'" sqlUpdate = sqlUpdate & " where id = " & varID Os campos Id e ano são do tipo número no BD ?
  23. Não testei mas seria assim: <% id_usuario = request.form("id_usuario") Dim conexao call abre_conexao sql = "select * from USUARIOS where id_usuario = " & id_usuario set tab = Conexao.Execute(sql) if tab("autenticado") = 1 then response.write "você já foi autenticado" elseif tab("autenticado") = 0 then autenticado = 1 sql_atualiza = "UPDATE USUARIOS SET " sql_atualiza = sql_atualiza & "id_usuario = '" & id_usuario & "', " sql_atualiza = sql_atualiza & "autenticado = '" & autenticado & "'" sql_atualiza = sql_atualiza & "WHERE id_usuario = " & id_usuario set tab_atualiza = Conexao.Execute(sql_atualiza) response.redirect "ok.asp" end if %> Só lembrando que eu uso função pra conexão, ou você adapta pro seu uso ou pode criar um arquivo bib_conexao.asp(exemplo) assim: <% sub abre_conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=caminhodasuapasta\seubanco.mdb;Driver={Microsoft Access Driver (*.mdb)}" end sub sub fecha_conexao Conexao.close Set Conexao = nothing end sub %> E fazer o include na página, <!--#include file="bib_conexao.asp"-->
  24. Bom eu nunca fiz uma aplicação deste tipo, por isso estou sujeita a falar monte de besteira hehehe. mas eu imagino que dentro da sua tabela, com o cadastro do usuário, deva ter um campo "ATIVADO" e sinalado 0/1 (não e sim). Daí quando o cara clica no link e vai para um formulário... ele ativa o cadastro. A rotina seria de update no campo "ATIVADO" eu faria alguma coisa desse tipo, nesse caso
  25. A sua dúvida não é sobre como criar o link conforme o tipo de usuário? gerando uma planilha através do Asp
×
×
  • Criar Novo...