[ GuTo ]
-
Total de itens
955 -
Registro em
-
Última visita
Tudo que [ GuTo ] postou
-
Colocar Icone Na Barra De Endereço?
pergunta respondeu ao iel de [ GuTo ] em Ajax, JavaScript, XML, DOM
A dica do jissa está correta. Para verem um tutorial q eu mesmo fiz, acessem: Ícone nos Favoritos Façam bom proveito! Dica -> Baixem um programa com este nome: IconCool Ele pega uma imagem .gif, .jpg etc e tranforma em ícones, e você pode escolher as dimesões, as q eu mais usei foi a 16x16 e 32x32. Em breve estarei colocando este site todo no ar. Tempo indeterminado! :( -
7host = lixo brinkster e domaindlx: recomendo-os, ambos têm cdonts e td mais o ruim do brinkster e q tem um banner junto da página, iguais aqueles da geocities. e o ruim do domaindlx é q tem um link no fim da página deles. obs.: é bom ter cadastro em mais de um servidor, pois às vezes as páginas q não rodam num servidor ou demonstram erro, no outro são executadas perfeitamente. já me ocorreu problemas do tipo na aspecto, não funcionava. Dae no brinkster e no domaindlx funfou :lol:
-
Reginaldo, entendi sim! pgmador, olhe: <% Option Explicit dim db, rs, sql dim i, cor dim id_logado, email id_logado = session("id") email = request.Form("email") set db = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") db.open "Provider=Microsoft.Jet.OLEDB.4.0;data source="& Server.MapPath("db\geral.mdb") %><html> <head> <title>Newsletter</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="styles.css" rel=stylesheet type=text/css> <link href="favicon.ico" rel="shortcut icon"> <script language="JavaScript"> <!-- Este script e muito mais você encontra GRÁTIS em --> <!-- Super JavaScripts - http://www.superjavascripts.kit.net --> <!-- function checkFields() { if (document.form.email.value == "") { alert("Digite seu e-mail"); form.email.focus(); return false; } if (document.form.email.value.indexOf("@", 0) == -1 || document.form.email.value.indexOf(".", 0) == -1 || document.form.email.value.length <= 10) { alert("Digite um e-mail válido"); form.email.focus(); return false; } } // --> </script> </head> <body><% ' membro logado, funcoes a serem executadas if session("logado") = 1 then if Request.Form("acao")="del" then Set rs = db.Execute("DELETE FROM newsletter WHERE id_membro="&id_logado&" ") if not rs.eof then With Response .Write("") .Write("") .Write("<p align=center>Olá Membro!<br><br>Seu email foi removido com sucesso.</p>") Response.end End With else With Response .Write("") .Write("") .Write("<p align=center>Prezado(a) Membro,<br><br>Seu email ainda não está cadastrado em nossa newsletter.<br>") .Write("Verifique se você digitou seu email corretamente!</p>") Response.end End With end if elseif Request.Form("acao") ="add" then Set rs = db.Execute("INSERT INTO newsletter (id_membro,email) VALUES ("&id_logado&",'"&email&"') ") With Response .Write("") .Write("") .Write("<p align=center>Parabéns!<br><br>Você é mais um membro a receber notícias quentinhas de nosso site.") Response.end End With end if ' visitante, funcoes a serem executadas else if Request.Form("acao")="del" then Set rs = db.Execute("DELETE FROM newsletter WHERE email='"&email&"' ") if not rs.eof then With Response .Write("") .Write("") .Write("<p align=center>Olá Visitante,<br>Seu Email foi removido com sucesso.</p>") Response.end End With else With Response .Write("") .Write("") .Write("<p align=center>Prezado(a) Visitante,<br><br>Seu email ainda não está cadastrado em nossa newsletter.<br>") .Write("Verifique se você digitou seu email corretamente!</p>") Response.end End With end if elseif Request.Form("acao") ="add" then Set rs = db.Execute("INSERT INTO newsletter (id_membro,email) VALUES (0,'"&email&"') ") if not rs.eof then With Response .Write("") .Write("") .Write("<p align=center>Olá Visitante,<br>Seu Email foi cadastrado com sucesso.<br>") .Write("Em breve você receberá notícias quentinhas de nosso site.</p>") Response.end End With else With Response .Write("") .Write("") .Write("<p align=center>Prezado(a),<br>Este Email já está cadastrado em nosso site.</p>") Response.end End With end if end if end if %> <table align="center" cellspacing="2" cellpadding="2" border="0"> <tr bgcolor="#E4E4E4"> <td align="center" class="titulo" colspan="4">Newsletter</td> </tr> <form action="newsletter.asp" method="post" name="form" onsubmit="return checkFields()"> <tr class="bg1"> <td align="center"><input type="text" name="email" size="30"></td> </tr> <tr class="bg1"> <td align="center"><input type="radio" name="acao" value="add"> Add <input type="radio" name="acao" value="del"> Del <input class="botao" type="submit" value="ok"></td> </tr> </form> </table> <% db.close Set db = Nothing Set rs = Nothing %> </body> </html>
-
Fala Galera!!! Eu fiz uma newsletter P E R F E I T A pelo q eu vejo (a principio só a página para adicionar e remover e-mails, página comum, normal, não fiz a parte de administração ainda...). E tá ocorrendo um erro aki, dizendo isso: if Request.Form("acao")="del" then Set rs = db.Execute("DELETE FROM newsletter WHERE id_membro="&id_logado&" ") if not rs.eof thena linha do erro seria aí no If not rs.ef then <_< Se alguém achar q o erro está em outro ponto da página, eu coloco todo o código fonte aki. Conto com a ajuda de vocês! ;) :D Interessados em dar um look, acessem: newsletter.asp
-
Bá, olhando este tópico me surgiu uma curiosidade. Pelo q vi no CDONTS dá anexar um arquivo fazendo como foi dito antes mail.attachfile request.form("Arquivo") então, se eu adicionar um campo no meu form e inserir esta linha no meu script asp, vai enviar o arquivo pro destinatário especificado com as demais informações postadas pelo form? Abraços!
-
Ok. Tirei o trim... funfou!Dae agora adicionei + 2 campos no form, pras horas... porque vai ser inserido data e hora de qlqr tipo de evento (festas, campeonatos e etc)... Os segundos sempre serão zero 00!!! E esse é o erro reportado do código acima! A linha na ql diz q tem erro é aki na sql.
-
Concordo com o Decio Mas porque vai sair urso.louco?
-
Ué, normal! Como no HTML! Se não for isso, seja mais claro brother!
-
como é o certo para incluir uma data no bd? to fazendo assim e vi q tá errado! evento_dia = trim(request.form("evento_dia")) ' data do dia do evento, ex.: 25 evento_mes = trim(request.form("evento_mes")) ' data do mes do evento, ex.: 12 evento_ano = trim(request.form("evento_ano")) ' data do ano do evento, ex.: 2003 data = evento_dia&"/"&evento_mes&"/"&evento_ano ' pega as três variáveis passadas, ex.: 25/12/2003
-
Ae galera! Achei o URL pra download do script completinho ocom BD e tudo mais. http://download.superasp.mco2.net/downloads/cidades.zip Façam bom proveito! Agora peço a ajuda do DIRAOL e da GALERA TODA pra mim ajeita aquele meu form aonde seleciona-se o estado e depos as cidades sem deixar os outros campos em branco pelo modo do DIV e até de JavaScript q o diral disse!!! Vou tentar agora fazer akela sua dica com o código q você conseguiu do kit.net. Eu fui nu kit.net, ateh nu hpg, mas pra cadastra gratis não dá mais, dae fui embora. Me eskeci q dá pra criar um novo url no kit.net e dae ver o tal código. :P Valeu Diraol. ;)
-
Ae rapaziada Desculpe a demora... é q tava sem fone em casa :P Agora assim... enviei o BD pro urso.louco, pgmador e resopi. Junto a minha dúvida, se puderem me ajudar... é no negócio dos cadastros q na hora de inserir no BD dá erro. E na hora q o cara tá digitando os dados dele no form, tá tudo ok, mas quando ele seleciona o estado o restante dos campos torna-se vazio. Bem, eu expliquei isso melhor nos posts anteriores deste mesmo tópico. Se alguém mais kiser eu envio. E por favor, me ajudem nos probleminhas q tenho, plissss Abraços a todos!
-
Ae jissa, dá uma olhada e veja o meu problema, veja se pode me ajudar! http://www.aspecto.net/sitesdoguto/cadastroCC.asp
-
Olá! Tenho um form com vários campos e no meio do form tem um de escolher o estado. Pois bem, na hora q escolho o estado, lista todas as cidades do mesmo, até aí tudo bem. Mas o problema é quando isso acontece, todos os outros campos são recarregados novamente só q eles não continuam com o valor inserido pelo usuário. Por Ex.: Eu digitei meu nome, senha, apelido, email e tudo mais, dae quando escolhe o meu estado, os outros campos q eu já tinha preenchido ficaram em branco. Aí está o problema. Preciso arruma isto! Ficará chato o cara ter de preencher novamente os campos :P <script> function envia(){ document.form.action = "cadastroCC.asp" document.form.submit(); } </script> Então olhem o código ae, será q eu adicionando alguns outros códigos ae para capturar o value inserido funfaria? não sei como fazer em javascript isso.
-
Para listar os usuários q precisam ser autorizados: SELECT * FROM tabela WHERE autorizado=0 ORDER BY data campo da tabela q você tem a criar: autorizado - Sim/Não Quando NÃO (0), não autorizado. Quando Sim (1), autorizado. (só será autorizado quando você mudar o value no seu módulo de Administração)!
-
Também!!! :D Mas estou falando mesmo é o meu problema nessa página ae de cadastro, porque na hora q escolho o estado, lista todas as cidades do mesmo, até aí tudo bem. Mas o problema é quando isso acontece, todos os outros campos são recarregados novamente só q eles não continuam com o valor inserido pelo usuário. Ex. Eu digitei meu nome, senha, apelido, email e tudo mais, dae quando escolhe o meu estado, os outros campos q eu já tinha preenchido ficaram em branco. Aí está o problema. Preciso arruma isto! Ficará chato o cara ter de preencher novamente os campos :P . Obs.: Digam seus e-mail pra eu enviar à vocês! ;)
-
Ae resopi!!! Olhe este link -> Cadastro. Eu fiz um form pra cadastro bem completinho até, e dae quando o cara selecionar o seu estado, vai listar as cidades do mesmo, só q este campo não é o primeiro do form, está no meio do form(como você mesmo pode ver nesta página, ali em DADOS PESSOAIS), e quando isso acontece de selecionar o estado, o resto dos campos anteriores são recarregados também, nisso ficando todos em brancos, menos o do estado... keria solucionar isso. porque os vai ficar chato o cara ter de preencher novamente os campos q já tinha preenchido antes. Bá, pensei numa coisa agora... vou tentar.. mas de qlqr forma veja o código da página do link q te forneci e me ajude ;) Bem, eu pensei nisso... pensei então já q tem outros campos do form antes, então submete-los também na hora q o cara selecionar o estado. o código javascript tah assim: <script> function envia(){ document.form.action = "cadastroCC.asp" document.form.submit(); } </script> e eu fiz um outro assim, não funfou pro q eu keria... q seria retornar os valores já escritos no form deste campos q antecedem o do estado.... se puder me ajude.<script> function envia(){ document.form.action = "cadastroCC.asp" document.form.apelido.value document.form.titulo.value document.form.senha.value document.form.senha2.value document.form.nome.value document.form.sexo.value document.form.nasc_dia.value document.form.nasc_mes.value document.form.nasc_ano.value document.form.e_civil.value document.form.submit(); } </script> quando estivermos online eu te mando tudo ok! :D Desde já agradeço a ajuda (será útil para ambos)!!! Abraços
-
Valeu pelas notas. Mas já disse q akilo fiz meio q na correia pra apresentar meus sites a meus amigos. Não comercio sites e nem faço-os pra fora, aquilo é só pratirar onda ;) Concodo com o urso.louco, curto também cores mais claras prum SITE digamos comercial, porque é limpo e etc. Pra HOMEPAGES é bom cores escuras, não machucam os olhos! ;) Mas esse layout (as cores) eu tentei fazer parecido com as cores do winME. Não se preocupem q aquele layout não está pronto realmenti.
-
Ok galera, fui no site superasp.com.br para ver pra q serve o Cint e Cstr, tudo ok! Agora vejam como declarei minhas váriaveis, eu dei uma pequena descrição de cada uma para que entendam direitinho, qlqr coisa me corrijam. Ah, os únicos campos da tabela q são do tipo NÚMERO, são os do TELEFONE e CELULAR. ;) apelido = trim(request.form("apelido")) ' apelido do cliente, ex.: GuTo nome = trim(request.form("nome")) ' nome do cliente, ex.: Antonio Augusto nasc_dia = trim(request.form("nasc_dia")) ' data do dia do nascimento, ex.: 25 nasc_mes = trim(request.form("nasc_mes")) ' data do mes do nascimento, ex.: 05 nasc_ano = trim(request.form("nasc_ano")) ' data do ano do nascimento, ex.: 1985 nascimento = nasc_dia&"/"&nasc_mes&"/"&nasc_ano ' pega as três variáveis passadas, ex.: 25/05/1985 e_civil = trim(request.form("e_civil")) ' estado civil do cliente, de 1 a 6 - tipo do campo é texto cidade = trim(request.form("cidade")) ' cidade do cliente, ex.: Porto Alegre uf = trim(request.form("uf")) ' estado do cliente, ex.: RS icq = trim(request.form("icq")) ' UIN do ICQ do cliente, ex: 322840175 MSN = trim(Lcase(request.form("MSN"))) ' endereço do messenger, ex.: guto@hotmail.com yahoo = trim(Lcase(request.form("yahoo"))) ' endereço do yahoo messenger, ex.: guto@yahoo.com.br email = trim(Lcase(request.form("email"))) ' e-mail do cliente, ex.: guto@terra.com.br homepage = trim(Lcase(request.form("homepage"))) ' endereço do site do membro, ex.: www.sitedocliente.com cel_ddd = Cint(request.form("cel_ddd")) ' DDD do estado do celular do cliente, ex.: 51 cel_num = Cint(request.form("cel_num")) ' número do telefone celular do cliente, ex: 98765432 celular = cel_ddd & cel_num ' pega as duas variáveis passadas, ex: 5198765432 fone_ddd = Cint(request.form("fone_ddd")) ' DDD do estado do telefone fixo do cliente, ex.: 51 fone_num = Cint(request.form("fone_num")) ' número do telefone fixo do cliente, ex.: 4761078 telefone = fone_ddd & fone_num ' pega as duas variáveis passadas, ex: 514761078 sobre = trim(request.form("sobre")) ' descricao fisica/psicologica do cliente, algo sobre ele e etc. titulo = trim(request.form("titulo")) ' pequeno texto de 20 caracteres que aparecerá embaixo do apelido do cliente no fórum nivel = 1 ' nivel do cliente é igual a 1 que é NOVATO! senha = trim(Lcase(request.form("senha"))) ' senha do cliente, para ajustes futuros e segurança, login, etc. login = now ' quando realizar o cadastro, será como se tivesse se logado. Então insere a data e hora completa de agora na tabela. Ex.: 20/10/2000 expedicao = now ' quando realizar o cadastro, será inserido a data e hora completa de agora na tabela, como a data de REGISTRO. Ex.: 20/10/2000 Assim como o código está, é exibido este erro: Se refere a linha do cel_num = Cint(request.form("cel_num"))
-
Tudo bem, concordo até :angry: Mas quero saber exatamente o que vocês acharam DAS CORES, se tá combinando... e etc...
-
Sem querer ser chato, eu outro dia precisava do mesmo script, mas não postei a dúvida... fui fazer uma "busca" aki pelo fórum... Na parte de mini scripts, tópico pendurado, na 2ªpágina tem um feito pelo jissa. Eu tinha um outro aki em casa q não me servia exatamente...
-
tem algum erro nesta sql, não keria pedir ajuda, mas já faz um mês q eu procuro o erro não sei direito... me ajudem... por favorrrr ;) ;) ;) ;) aki só a sql: sql="INSERT INTO membros (sexo,apelido,nome,nascimento,e_civil,cidade,uf,icq,MSN,yahoo,email,homepage,celular,telefone,sobre,titulo,nivel,senha,login,expedicao) " sql=sql&"VALUES("&sexo&",'"&apelido&"','"&nome&"','"&nascimento&"',"&e_civil&",'"&cidade&"','"&uf&"',"&icq&",'"&MSN&"','"&yahoo&"','"&email&"','"&homepage&"',"&celular&","&telefone&",'"&sobre&"','"&titulo&"',"&nivel&",'"&senha&"','"&login&"','"&expedicao&"')" Agora o erro Agora pros interessados, o código todo... <html> <head> <title>Chat Canoas</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="styles.css" rel=stylesheet type=text/css> <link href="favicon.ico" rel="shortcut icon"> </head> <body topmargin="0"> <% dim ErroMsg if Request.Form("sexo") <> "" then if (Request.Form("apelido") <> "") and (Request.Form("email") <> "") then %> <% dim db, dsn, sql, rs dim sexo,apelido,nome,nascimento,e_civil,cidade,uf,icq,MSN,yahoo,email,homepage,celular,telefone,sobre,titulo,nivel,senha,login,expedicao set db = server.createobject("adodb.connection") dsn="provider=microsoft.jet.oledb.4.0;data source="& server.mappath("dados.mdb") db.Open dsn 'Replacing If(Request.Form("sexo") = "H") then sexo = 1 else sexo = 0 apelido = trim(request.form("apelido")) nome = trim(request.form("nome")) nasc_dia = trim(request.form("nasc_dia")) nasc_mes = trim(request.form("nasc_mes")) nasc_ano = trim(request.form("nasc_ano")) nascimento = nasc_dia&"/"&nasc_mes&"/"&nasc_ano e_civil = trim(request.form("e_civil")) cidade = trim(request.form("cidade")) uf = trim(request.form("uf")) icq = trim(request.form("icq")) MSN = trim(Lcase(request.form("MSN"))) yahoo = trim(Lcase(request.form("yahoo"))) email = trim(Lcase(request.form("email"))) homepage = trim(Lcase(request.form("homepage"))) cel_ddd = trim(request.form("cel_ddd")) cel_num = trim(request.form("cel_num")) celular = cel_ddd & cel_num fone_ddd = trim(request.form("fone_ddd")) fone_num = trim(request.form("fone_num")) telefone = fone_ddd & fone_num sobre = trim(request.form("sobre")) titulo = trim(request.form("titulo")) nivel = "1" senha = trim(Lcase(request.form("senha"))) login = now expedicao = now sql = "SELECT * FROM membros WHERE email='"&email&"' AND senha='"&senha&"'" set rs = db.execute(sql) if rs.eof then 'Novo membro, porque se chegar ateh o fim não existe sql="INSERT INTO membros (sexo,apelido,nome,nascimento,e_civil,cidade,uf,icq,MSN,yahoo,email,homepage,celular,telefone,sobre,titulo,nivel,senha,login,expedicao) " sql=sql&"VALUES("&sexo&",'"&apelido&"','"&nome&"','"&nascimento&"',"&e_civil&",'"&cidade&"','"&uf&"',"&icq&",'"&MSN&"','"&yahoo&"','"&email&"','"&homepage&"',"&celular&","&telefone&",'"&sobre&"','"&titulo&"',"&nivel&",'"&senha&"','"&login&"','"&expedicao&"')" db.execute(sql) response.write("<p align=center><font face=Verdana size=4 class=cor2><b>Cadastro efetuado com sucesso!</b></font><br>Aguarde confirmação.</p><p> </p><div align=center><a href=http://www.chatcanoas.pop.com.br/main.htm>Clique aqui para continuar</a></div>") elseif (rs("senha") = senha) then 'Atualizacao de cadastro sql = "update membros set " & _ "apelido = '" & apelido & "'," & _ "idade = '" & Idade & "'," & _ "icq = '" & icq & "'," & _ "email = '" & email & "'," & _ "sobre = '" & sobre & "'" & _ " where id = " & rs(("id")) db.execute(sql) response.write("<h3 align=center>Atualização efetuada com sucesso!</h3>") else 'Senha incorreta ErroMsg = "<p align=center><font face=Verdana size=4><b>Atualização cancelada.</b></font><br><font size=2 class=cor2>Senha incorreta.</font></p>" Erro end if db.close set db = nothing %> <% else %> <% ErroMsg = "Os dados não foram completados conforme necessitado...<br>" & _ "Certifique-se de que preencheu os campos <font class=cor2>Apelido</font> e <font class=cor2>E-mail</font>." Erro %> <% end if %> <%else%> <p align="center"><font face="Verdana" size="4"><b> <script language="JavaScript"> // Texto var message="Área restrita!" // Cor do texto apagado var neonbasecolor="#666666" // Cor do texto aceso var neontextcolor="#FF0000" // Velocidade do efeito var flashspeed=100 //in milliseconds ///No need to edit below this line///// var n=0 if (document.all){ document.write('<font color="'+neonbasecolor+'">') for (m=0;m<message.length;m++) document.write('<font id="neonlight">'+message.charAt(m)+'</font>') document.write('</font>') //cache reference to neonlight array var tempref=document.all.neonlight } else document.write(message) function neon(){ //Change all letters to base color if (n==0){ for (m=0;m<message.length;m++) tempref[m].style.color=neonbasecolor } //cycle through and change individual letters to neon color tempref[n].style.color=neontextcolor if (n<tempref.length-1) n++ else{ n=0 clearInterval(flashing) setTimeout("beginneon()",1500) return } } function beginneon(){ if (document.all) flashing=setInterval("neon()",flashspeed) } beginneon() </script> </b></font></p> <p align="center"><a href="contato.asp">Clique aqui para se cadastrar</a><br> ou<br> <a href="javascript:history.back()"><img src="icons/seta_left.gif" width="10" height="9" border="0">Clique aqui para voltar.</a> </p><%end if %> <%Sub Erro() %> <H3 align=center><%=ErroMsg %></H3> <%end sub %> </body> </html> Se alguém quiser ver o form pra cadastro, é só clicar aki
-
HUAHAUAHAUAHAU que BURRO EU SOU ;) NEM PERCEBI bem, aí vai www.sitesdoguto.kit.net