[ GuTo ]

Ah, o link está aki: http://scriptbrasil.com.br/forum/index.php...usuarios+online Pelo q vi no fórum, já tem algo feito... o problema eu já solucionei e tals.. No fim, eu fiz todo o sistema sozinho, ficou muito melhor Dica: faça seus scripts, eles ficam sem erros, não ti dão tanta dor di cabeça e melhor, são exatamente do jeitinho que você quer

Fala Galera! Antes de mais nada informo que fiz uma busca aki no fórum e não encontrei nada parecido Todos vocês conhecem o campo de autonumeração do ACESS né. Então, sabem que a contagem dele não foi feita pra fazer um numero de 1 até digamos 5000 (5 mil) sem ter nenhuma "brecha", ou seja, sem por exemplo no meio contagem faltar o número 3000, por exemplo. Isso também quer dizer que não vai ter exatamente os 5mil registros, mas sim os 4999 registros, se apenas estiver faltando um. Pois então, no site que tenho é comum a cada 5 registros eu ter de excluir um registro, dae fica esta falha no BD, essa "brecha". Então, como eu poderia resolver isso? No caso para poder fazer uma contagem correta, sequencial, ex.: 1,2,3,4,5,6,7,8,9,10... Não quero deixar falhas, ex.: 1,2,3,8,9,18,19... Alguém saberia fazer pra consertar isso? Só sei q na tabela eu ia ter de ter o campo do tipo Número , e não AutoNumeração! Aguardo respostas...

Brother!!! Realmente isso vem acontecendo, não só aqui, mas acredito que todos os forum passam, passaram ou passarão por isso. Ajudar, na boa, ajudo, com maior prazer, pois sei que um dia vou precisar de ajudar (e muita) e vai haver alguém, diposto, a me ajudar, agora entregar pronto... é complicado. O que acontece na maioria dos forums é o cara chegar e falar.....: "Eu quero...." "Me faz..." "Me arruma...." Isso acho uma ofensa.... sei que nem todo mundo tem tempo de desenvolver um aplicativo ASP, mas pensem...... 'se você esta sendo pago para fazer aquilo, companheiro, dê seus pulos, corra atrás e vá desenvolver... não pegue nada pronto'.. Na maioria das vezes, passo artigo com o conteudo que possua algo semelhante, fazendo o programador desenvolver o exemplo, se basear e contruir o proprio. Mas vamos continuar... espero que um dia isso ainda venha acabar... Abraços!!! [urso] Concordo planamente, esta é a mesma idéia minha. O que o Reginaldo_ASP falou também, essas pessoas nunca aprendem nada. E o pior, às vezes vem no fórum com a idéia de q vão conseguir tudo ´pronto só pedindo ajuda, não tentam nem dae uma olhada no código (se já tiverem um) Tem 5 fóruns que frequento, nos quais 3 q frequento, com este apelido e outro ( [ GuTo ] ), tem um cara q tá sempre nessas daí. Na boa, dá um pouco de raiva, mas a gente não sai chingando, muito pelo contrário, orienta, ajuda, dá a lógica e as vezes assim mesmo, o cara volta com uma dúvida que qlqr um q der uma lida num tutorial em 5min aprende. Isso é de amargar

Seria isso que você quer? Soma todos os valores de um campo de uma tabela do banco de dados. sql = "SELECT SUM(campo_da_tabela) AS soma FROM sua_tabela" rs.open sql,conexao response.write rs("soma") Lembrando que você pode especificar quais registros q devem ser somados, colocando um WHERE.

Putz! Sem querer fugir do assunto principal em questão, mas já fugindo, digo... Todo mundo trabalha aki neste fórum já, mesmo não sendo com sites e tals... menos eu, só estudo, e nunca tirei cursos de informática, hauahaua. E assim, nem sabia q o urso trabalhava no suporte técnico..hehe... mas daonde ae urso? Isso deve ser meio xarope mesmo. Ah, parabéns pelo reconhecimento que vem tendo por todos, você merece

Pode procurar um post meu aí, mais ou menos recente. O urso.louco e eu discutimos bem sobre o assunto, vale a pena pesquisar ae e conferir. A lógica é bem simples, só é necessário ter domínio sobre a linguagem.

Brother!!! Não é assim que a coisa funciona.... tem que ser aprovado lá pelo chefe!!! Mas vamos ver no que vai dar, vamos torcer, quero que saiba que você também tem capacidade de ocupar esta vaga . Eu até tentei com For Next, For Each, o que mais chegou perto foi o GetRows, mas já desisti desta idéia maluco de por em paragrafos... deixa pra lá!! Mas já que você mencionou o assunto, me fala do <br>, como poderia coloca-lo após um certo numero de caracteres.. ? Abraços!!! [urso] Brother, é uma satisfação e orgulho receber um elogio vindo de sua pessoa, na ql aprecio muito. Valeuz! Mas acho não chego perto de seus conhecimento ainda e com toda certeza, você é a pessoa mais capacitada e indicada ao cargo. Assim, apesar de ter tido já ajuda do nosso amigão jissa aí (que pelo visto solucionou com êxito a sua dúvida), continuo procurando solucionar esta dúvida de outra forma, pois deve haver Veja este artigo aki, talvez possa ajudar, não sei http://www.imasters.com.br/web/conteudo/se...775&codsecao=33 E quanto ao que disse antes do <br>, vou tentar ver se consigo aprender e explicar bem o q eu disse e retorno pra tentar esclarecer, valeu

Isso ae Resopi, falou bem! E pra não deixar dúvidas, achei um artigo legalzin sobre o assunto. http://www.imasters.com.br/web/conteudo/se...802&codsecao=33

Brother!!! Eu ainda não usei nada além de CDONTS, pra você ver Mas sei, porque já vi mta gente discutindo, não só aki neste fórum, como em outros, este assunto. "Qual será o melhor, ASPMAIL ou CDONTS?" ou "ASPMAIL vs CDONTS". E que o que tem mais recursos, e que melhor realizará o q você quer, é o ASPMAIL. Pra complementar... Sei que existe também o ASPEMAIL e o JMAIL.

www.enois.com www.ifesta.com.br www.festere.com.br www.festashow.com.br www.festinhaducapeta.com.odiabo

Fala ae futuro moderador Entendi perfeitamente sua dúvida e vou ver se posso te ajudar (nada mais que retribuir). Desculpe se vou falar besteira, mas use um For Next, e entre eles coloque o Replace... alguma coisa pra continuar executando isso com os caracteres que sobraram. E pra isso ae, não ficaria melhor uma quebra de linha, <br> ???

www.domaindlx.com www.7host.com

Ae urso.louco, Parabéns. Acho q você entrou o ano bem. Mesmo tendo acabado a votação, o meu voto é seu. Mas se desse pra dividir o voto, votaria no Reginaldo_ASP. Ele também é fera!! Só não responde tanto como o urso.louco. Ah, não vamos esquecer do pgmador, que anda meio desaparecido, mas sempre foi bastante ativo aki. Mais uma vez parabéns ursão meu brother e, bom trabalho.

Com certeza! Li um artigo mtooo grande lá na amigoswm ontem, nossa, cansei de tanto ler, mas valeu a pena. Por enquanto eu só queria saber o q eu tinha dito no meu post anterior.

Isso mesmo brother! Como já tinha dito, não tinha trabalhado com cookies ainda, e desconhecia o AddHeader, então assim... o cara só me disse pra colocar na página onde vai estar o include este código: <% Response.Buffer = True Response.AddHeader "cache-control", "private" Response.AddHeader "pragma", "no-cache" Response.ExpiresAbsolute = #January 1, 1990 00:00:01# Response.Expires=0 %> Ok. Tudo bem, coloquei e tive q fazer algumas modificações no contador.asp que tava com problema, pois depoois que me deram um toque eu aprendi melhor como criar e pegar o cookie. Dae o código melhorado/corrigido ficou assim:<% dim rs, db, sql set db = Server.CreateObject("ADODB.Connection") db.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/geral.mdb") if Request.Cookies("contador")("session_id") = Session.SessionID then Response.Cookies("contador")("session_id") = Session.SessionID Response.Cookies("contador")("ip") = Request.ServerVariables("REMOTE_ADDR") else sql = "UPDATE contador_novo SET visitas = visitas + 1" db.Execute(sql) Response.Cookies("contador")("session_id") = Session.SessionID Response.Cookies("contador")("ip") = Request.ServerVariables("REMOTE_ADDR") end if Response.Cookies("contador").Expires="Jan 1, 2010" sql = "SELECT * FROM contador_novo" set rs = Server.CreateObject("ADODB.Recordset") rs.open sql,db,3,3 if not rs.eof then %><%=rs("visitas")%><% end if db.close set db = nothing set rs = nothing %>Tudo ok agora, tá que nem uma manteiga Só que eu NÃO sei quando que devo usar aquele códigozinho ali q tá o AddHeader e td mais Se puder explicar ou melhor, me dizer aonde posso saber mais sobre o assunto, te agradeço Valeu Aproveitem o código ae, tá funcionando perfeitamente agora.

Hehehehe, não capaz ursão, não ia cometer alguns destes erros grotescos. Porém um amigo meu de outro fórum me deu a solução. Se quiseres MESMO, eu posto aki e explico tudinhu Valeu, abraços aí brother!

Fala Galera!!! Assim... eu acho que não tem o porque de substituir o apóstrofo (aspas simples) por dois apóstrofos (duas aspas simples) no replace. Acho q ficaria melhor substituir o apóstrofo por nada, assim(pelo menos na parte de login): senha = Trim(Replace(Request.Form("senha"),"'","")) Mas digamos que dae num sistema de cadastro, o brother que colocar o nome dele, e suponhamos q seu sobrenome é D'Avilla (ou qlqr outro q nome tenha um apóstrofo (aspas simples)). Então, se eu substitir as aspas simples por duas aspas simples ou substituir a aspas simples por nada, não vai ser inserido o nome dele corretamente né? Ficaria apenas como DAvilla, sem o apostrófo. Mas eu não quero isso... quero que fique da meneira correta o nome do pobre cliente, hehe, tem como solucionar isso?

Valeu aí pelos elogios, fico lesongeado Também achei que ficou legal e deixaria até (hehehe) pendurar o tópico, mas primeiro coloquem os créditos meus no código Ae urso.louco meu brother, essa página aí funciona perfeitamente QUANDO ABERTA SOZINHA... Agora crie um documento .asp EM BRANCO, SEM NADA DE CÓDIGO DENTRO, e coloque esse contador.asp (meu código) num include dentro desta página em branco. Ah, antes do include ponha um ponto, apenas um ponto ou qlqr outro caracter q quiser e teste (eu no exemplo abaixo coloquei um "A"). Vai dar este erro: Só não sei porque! Pra você testar aí rápidinho, pegue este código aki: A <!--#include file="contador.asp"--> Se tu ou outra pessoa souberes a solução , eu vou agradecer muito!!! Pois eu precisava botar essa página no menu duma página minha

noticia.asp pra acessa-la vai ser simples... vai ter de ter um link assim: <a href="noticia.asp?id=2">titulodanoticia</a> E claro q este link será gerado pela sua página chama_noticias.asp, porque nela é aonde você vai listar as noticias do seu BD <% dim id, db, rs, sql id = request.QueryString("id") set db = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.recordset") db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/noticias.mdb") sql = "SELECT * FROM noticias WHERE id="&id rs.open sql, db if rs.eof then %>Noticia não existente<% else %>Aki você faz o recordset dos campos da notícia<% end if db.close set rs = nothing set db = nothing %>

Ae cara, você pode procurar uns códigos ae que usam outros componentes, ou você mesmo adaptar este código aqui ao componente instalado no seu servidor e td mais. Aqui vai somente a parte de asp da contato_envia.asp q uso num site meu aki. O componente é o CDONTS. <% horatempoquandoenviado = now ip = Request.ServerVariables("REMOTE_ADDR") apelido = Request.Form("apelido") icq = Request.Form("icq") email = Request.Form("email") sexo = Request.Form("sexo") assunto = Request.Form("assunto") mensagem = Request.Form("mensagem") dim objMail,htmlemail ' Criando o objeto para enviar email Set objMail = Server.CreateObject("CDONTS.Newmail") ' Definindo o destino do email (para qual email (para quem) vai ser enviado) objMail.To = "seuemail@provedor.com.br" 'aki vai o seu e-mail caso use para um "fale conosco" ' Remetente do Email objMail.From = email ' Assunto do Email objMail.Subject = assunto ' A partir de agora vamos formatar a mensagem ' que será postada no corpo do email, esta ' mensagem irá conter as tags HTML comum htmlemail = htmlemail & "<font face=Verdana size=1 color=#000000>Email enviado dia: "&horatempoquandoenviado&" pelo IP: "&ip&"</font><br><hr><br>" htmlemail = htmlemail & "<font face=Verdana size=2><p>Assunto:<font color=#FF0000>"&assunto&"</font><br><br>" htmlemail = htmlemail & "Apelido: "&apelido&"<br>" htmlemail = htmlemail & "ICQ#: "&icq&"<br>" htmlemail = htmlemail & "Email: "&email&"<br>" htmlemail = htmlemail & "Sexo: "&sexo&"<br>" htmlemail = htmlemail & "Mensagem: "&mensagem&"</font>" ' Você pode ver que a mensagem é uma´página HTML Comum ' Agora vamos definir a propriedade Bodyformat como 0 (zero) ' O 0 significa que o corpo da mensagem contém tags em HTML ' Para texto simples utiliza-se 1 objMail.Bodyformat = 0 ' Após definir o corpo da mensagem você define o ' formato da mensagem objMail.MailFormat = 0 objMail.Body = htmlemail ' E enviamos o email objMail.Send ' Fechando o objeto para envio de email Set objMail = Nothing %><html> <head> <title>Titulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body topmargin="0"> <br> <p align="center"><font face="Verdana" size="4"><b> Obrigado! Seu e-mail foi enviado com sucesso</p> <p align="center"><a href="main.asp">Clique aqui para continuar</a></p> </body> </html> Se funcionar diz ae... ou se der algum erro, retorna aí q a gente te ajuda, valeu?

Fala Urso. Antes de mais nada, estou esperando você dar uma analisada na minha resposta anterior a esta aki, beleza. Agora pra galera TODA... E assim, como eu queria antes, optmizar este código e o DB, pra não ocupar muito espaço, optei então trabalhar com cookies. Nunca trabalhei com cookie, é a primeira vez. Pelo que testei aki em casa ficou perfeito. Gostaria que alguém aí testasse ou simplesmente desse uma olhadinha no código, conferisse e postasse aki a sua opnião e td mais. Pra usar o contador de visitas (código) que logo mais abaixo está, você precisa: - um banco de dados acess com uma tabela chamada contador, com um campo só chamado visitas do tipo Número - pegar o código abaixo e salvar como contador.asp <% Option Explicit dim rs, db, sql set db = Server.CreateObject("ADODB.Connection") db.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/geral.mdb") if Request.Cookies("session_id") = Session.SessionID then Response.Cookies("session_id") = Session.SessionID Response.Cookies("ip") = Request.ServerVariables("REMOTE_ADDR") else sql = "UPDATE contador SET visitas = visitas + 1" db.Execute(sql) Response.Cookies("session_id") = Session.SessionID Response.Cookies("ip") = Request.ServerVariables("REMOTE_ADDR") end if Response.Cookies("session_id").Expires="Jan 1, 2010" Response.Cookies("ip").Expires="Jan 1, 2010" sql = "SELECT * FROM contador" set rs = Server.CreateObject("ADODB.Recordset") rs.open sql,db,3,3 if not rs.eof then %><%=rs("visitas")%><% end if db.close set db = nothing set rs = nothing %> Espero opniões, críticas, sugestões (ou até correções) e td mais sobre o mesmo. Façam bom proveito e aguardo suas opniões. Feliz ano novo! Obs.: o cookie ip não é necessário, só pra ocupar mais espaço no cookie do visitante, rs*

Concordo com ambos e acrescento. Espero que 2004 seja um ano repleto de conquistas e que todos membros tenham um significativo crescimento no seu aprendizado aqui conosco. Feliz 2004. "Saúde e paz, o resto a gente corre atrás"

Bem cara, não uso o contador da SB, mas acho que esta história de ficar abrindo um pop-up pode ser algum erro seu mesmo. Não posso dizer o q é realmente, pois como já disse, descoheço o serviço do ql fala da SB. Porém, eu tenho uma dica á você: Faça você mesmo o seu contador de visitas (geral) e seu sistema de usuários online. Se não estiver familiarizado com linguagens dinâmicas, use então o da SB mesmo. Mas é recomendado você aprender a mecher com estas linguagens e fazer os seus "sistemas". É melhor, pois quem tem o controle sobre daí é você! Para entrete-lo mais, vá no Fórum de ASP aki da SB, e veja alguns dos meus posts. Acho que os meus dois últimos são bem tratados as questões de usuários online e contador de visitas(geral). Já aproveitando o tópico, convido você a se tornar membro de nosso site no ano que chega, você será bem acolhido entre nossa comunidade. Espero que o tenha ajudado. Feliz Ano Novo!!!

Vocês sabem os ícones de calendário, membros, procura e ajuda q tem aki no topo da página do fórum? Pois bem, eu sei que existem mais uns e fazem parte deste conjunto ae. Tem lixeira e outros mais... Se alguém tiver me envia por e-mail ae, por favor! É pra eu fazer um sitezinho pra mim mesmo, nem na web vou por! 003@bol.com.br

Hehehe, valeu aí! Mas uma coisa que um amigo meu falou, um que nem conhece nada de web, que existe pessoas que tem IP fixo, que nunca muda mesmo depois de ter reiniciado. Dae eu tive q mudar esta linha sql = "SELECT * FROM contador WHERE session_id='"&session_id&"' OR ip='"&ip&"'" parasql = "SELECT * FROM contador WHERE session_id='"&session_id&"'" e esta outra linha que estava erradasql = "UPDATE contador SET hora='"&agora&"'" parasql = "UPDATE contador SET hora='"&agora&"' WHERE session_id='"&session_id&"'"hehehe, esqueci do UÉRE..rs* Urso.lokinhu (hehe) Não entendi sua observação... mas td bem. Era pra ser a fruta Coco ou o excremento Côco ?