fertel

Olá... Estou querendo criar um bate-papo bem simples. Eu utilizaria banco de dados para armazenar as mensagens. Minha pergunta, prezados amigos, é a seguinte: Quando um usuário recebe as mensagens numa página deste bate-papo, a página tem que ser sempre atualizada, checando assim se tem nova mensagem enviada. Muito bem, mas a página dá aquela "piscadela" pra recuperar as novas mensagens na atualização. Como eu poderia resolver esta questão? Sei que bate-papo se costuma usar o global.asa. Bom, eu nem sei como usá-lo, alguém poderia me dar alguma luz. Se eu conseguir criar de alguma forma esta página sem a "piscada", ou seja que fosse mais rápida, já estaria muito satisfeito Muito obrigado a todos vocês...

Estou agora enfrentando um novo problema neste mesmo assunto: Agora ele grava e exibe direitinho se não fosse por letras com acento. Ele não grava de jeito nenhum. Só no padrão americano (sem acento ou ç) imaginei que fosse o banco de dados. Não é... o campo onde grava o dado é "memo" e digitei lá dentro. Se eu gravar utilizando Text1.Text ele grava com acentos. Se eu uso Text1.TextRTF como sugerido, ele grava com formatação mas come as letras com acento ou não grava nada... e agora? Eu preciso gravar com as formatações e com os acentos... Nota: já tentei usar "Replace" para trocar os acentos por chr() não deu certo. Fiz assim: Replace(Text1.TextRTF, "À", chr$(192)) Agora ferrou...

Tem razão, é exatamente isso... Eu acabei descobrindo sozinho porque tava desesperado atrás da resposta e era uma coisa tão simples né? rs. Mas muito obrigado mesmo.

Só retificando a dúvida... Na realidade ele grava no bd com alterações. o problema é que na hora de exibir no mesmo Rich Text Box com formatação ele exibe todo o código de formatação ao invés de exibir o texto já formatado e aí? Abraços

Estive tentando alterar a formatação de um texto dentro de um text box e não estava conseguindo. Então tentei substituir por um Rch Text Box e aí sim, consegui utilizando: nome.SelBold = True Por exemplo. Só que na hora de gravar no bd "Access", ele não grava com a formatação (negrito, fonte, cor etc.) o que estou errando ou esquecendo? É para uma aplicação tipo agenda. Se puderem me ajudar eu agradeço Abraços

Informação: A Infolink deixa bem claro em suas páginas que por questão de segurança, o que é uma bobagem, não permite buscas atrve´s do "parent" diretótios. Então o método correto é o Server. MapPath. Valeu...

Olá: Bom para fazer o Upload, você precisa saber qual componente de upload é utilizado em seu host. Se ASP Upload é mole... Mas lembre-se que no formulário deve ser Multi-part-form-data - putz, algo assim...rs <% Set Upload = Server.CreateObject("Persits.Upload") ' Salvando neste diretório... Upload.Save "c:\upload" For Each File in Upload.Files If File.ImageType = "UNKNOWN" Then Response.Write "Este arquivo não é uma imagem." Response.End End If Response.Write File.Path & "<BR>" Response.Write "Tipo: " & File.ImageType & "<BR>" Response.Write "Tamanho: " & File.ImageWidth & " x " & File.ImageHeight & " pixels" Next %> Ah, e para gravar no bd, faça como você costuma fazer mesmo, mas para chamar o nome do arquivo utilize: <% NOME = File.FileName %>

O evento JavaScript é: OnLostFocus

Obrigado pela resposta, mas como é a utilização deste split()? Confesso que nunca o utilizei. Se puder me ajudar ou um link com a explicação fico agradecido.

Você tem apenas o aplicativo para exibição das fotos e quer adicionar votação às mesmas? Bom, eu no seu lugar refaria praticamente tudo, já que até o bd será alterado. Pois é lá que você vai gravar as votações. Eu já fiz há anos atrás algo assim. Até tenho algo no ar: PAKERA lá aparece as fotos para votar. Porque além da opção de voto, tem o cálculo dos votos para exibir o resultado mais provável seja em "%" ou números inteiros. Não é complicado, dá uma olhada no site e reflita. É tão fácil que eu mesmo fiz sozinho. Se não conseguir poste aqui e te mando alguma coisa de código, porque tenho que procurar

Cara o teu problema é de certa forma simples mas estão complicando... É os seguinte... Tudo depende do compenente que será usado no upload. E a sua dificuldade não é criar propriamente o link, mas recuperar o nome do arquivo enviado por upload. Eu particulamente não conheço este componente que você usa, mas pelo que vi, tente recuperar o nome do arquivo enviado com: <% ARQUIVO = upl.filename '******ISTO RETORNARÁ O NOME DO ARQUIVO ENVIADO LINK = "<a href=www.meusite.com/pasta/" & ARQUIVO & ">LINK DO ARQUIVO</a>" Response.Write LINK %> A partir daí você libera tua imaginação, grava no bd, cria links, exclui arquivos, etc. ok? Espero ter entendido e ajudado.

Amiguinho, toma um completo com números e letras: e mais abaixo um só com números: <% ' Em primeiro lugar vamos criar uma função chamada GerarChave() ' esta função ira criar e definir um array alfanumérico de ' 0 a 9 e A a Z. Function GerarChave(valores) Dim chr_Array(35) chr_array(0) = "0" chr_array(1) = "1" chr_array(2) = "2" chr_array(3) = "3" chr_array(4) = "4" chr_array(5) = "5" chr_array(6) = "6" chr_array(7) = "7" chr_array(8) = "8" chr_array(9) = "9" chr_array(10) = "A" chr_array(11) = "B" chr_array(12) = "C" chr_array(13) = "D" chr_array(14) = "E" chr_array(15) = "F" chr_array(16) = "G" chr_array(17) = "H" chr_array(18) = "I" chr_array(19) = "J" chr_array(20) = "K" chr_array(21) = "L" chr_array(22) = "M" chr_array(23) = "N" chr_array(24) = "O" chr_array(25) = "P" chr_array(26) = "Q" chr_array(27) = "R" chr_array(28) = "S" chr_array(29) = "T" chr_array(30) = "U" chr_array(31) = "V" chr_array(32) = "W" chr_array(33) = "X" chr_array(34) = "Y" chr_array(35) = "Z" ' Agora vamos fazer um Randomize em todo Array Randomize ' Ok, feito a bagunça no Array vamos preparar ' para gerar a senha ' Enquanto a chave tiver a quantidade de caracteres ' menor que 10 o loop continua gerando ela. do while len(chave) < 10 num = chr_array(Int(35 * Rnd )) chave = chave + num loop ' Chave gerada com sucesso então definimos a ' função GerarChave GerarChave = chave End Function ' Finalizando a função ' Mostrando a senha no browser. ' Obs: O número dez significa o tamanho da senha em ' carateres que será criado response.write "Senha gerada: " & GerarChave(10) & vbcrlf %> ============================================= <% ' Em primeiro lugar vamos criar uma função chamada GerarChave() ' esta função ira criar e definir um array alfanumérico de ' 0 a 9 Function GerarChave(valores) Dim chr_Array(9) chr_array(0) = "0" chr_array(1) = "1" chr_array(2) = "2" chr_array(3) = "3" chr_array(4) = "4" chr_array(5) = "5" chr_array(6) = "6" chr_array(7) = "7" chr_array(8) = "8" chr_array(9) = "9" ' Agora vamos fazer um Randomize em todo Array Randomize ' Ok, feito a bagunça no Array vamos preparar ' para gerar a senha ' Enquanto a chave tiver a quantidade de caracteres ' menor que 10 o loop continua gerando ela. do while len(chave) < 10 num = chr_array(Int(9 * Rnd )) chave = chave + num loop ' Chave gerada com sucesso então definimos a ' função GerarChave GerarChave = chave End Function ' Finalizando a função ' Mostrando a senha no browser. ' Obs: O número dez significa o tamanho da senha em ' carateres que será criado response.write "Senha gerada: " & GerarChave(10) & vbcrlf %> VALEU?

Veja se é algo assim que deseja: Shopping-Rio.com

Olá amigos. De repente preciso fazer algo que nunca tinha feito antes e me deparei com uma dúvida: No objeto de formulário "lista" / menu tem a opção de selecionar mais de um ítem, correto? Aí é que está o problema, quando envio as informações dos ítens selecionados no campo eles vão assim: maria, josé, joão, etc Como faço para pegar cada ítem desse para trabalhar idependentemente? tipo um em cada registro diferente do bd? Na minha aplicação o usuário vai selecionar os ítens que deseja excluir do bd, mas como os dados vêm da forma descrita acima, não consegui utilizá-los nem para consulta no bd. Abraços e obrigado

Tá na mão meu companheiro! <% 'CHECANDO CPF Dim RecebeCPF, Numero(11), soma, resultado1, resultado2 RecebeCPF = DOCUMENTO 'Retirar todos os caracteres que não sejam 0-9 s="" for x=1 to len(RecebeCPF) ch=mid(RecebeCPF,x,1) if asc(ch)>=48 and asc(ch)<=57 then s=s & ch end if next RecebeCPF = s if len(RecebeCPF) <> 11 then ERRO = 1 ERRO_CPF = 1 elseif RecebeCPF = "00000000000" then ERRO = 1 ERRO_CPF = 1 else Numero(1) = Cint(Mid(RecebeCPF,1,1)) Numero(2) = Cint(Mid(RecebeCPF,2,1)) Numero(3) = Cint(Mid(RecebeCPF,3,1)) Numero(4) = Cint(Mid(RecebeCPF,4,1)) Numero(5) = Cint(Mid(RecebeCPF,5,1)) Numero(6) = CInt(Mid(RecebeCPF,6,1)) Numero(7) = Cint(Mid(RecebeCPF,7,1)) Numero(8) = Cint(Mid(RecebeCPF,8,1)) Numero(9) = Cint(Mid(RecebeCPF,9,1)) Numero(10) = Cint(Mid(RecebeCPF,10,1)) Numero(11) = Cint(Mid(RecebeCPF,11,1)) soma = 10 * Numero(1) + 9 * Numero(2) + 8 * Numero(3) + 7 * Numero(4) + 6 * Numero(5) + 5 * Numero(6) + 4 * Numero(7) + 3 * Numero(8) + 2 * Numero(9) soma = soma -(11 * (int(soma / 11))) if soma = 0 or soma = 1 then resultado1 = 0 else resultado1 = 11 - soma end if if resultado1 = Numero(10) then soma = Numero(1) * 11 + Numero(2) * 10 + Numero(3) * 9 + Numero(4) * 8 + Numero(5) * 7 + Numero(6) * 6 + Numero(7) * 5 + Numero(8) * 4 + Numero(9) * 3 + Numero(10) * 2 soma = soma -(11 * (int(soma / 11))) if soma = 0 or soma = 1 then resultado2 = 0 else resultado2 = 11 - soma end if if resultado2 = Numero(11) then CPF = "OK" else ERRO = 1 ERRO_CPF = 1 end if else ERRO = 1 ERRO_CPF = 1 end if end if %>

Amigo, se seu problema é este, está resolvido: <% Session.Timeout = 30 Server.ScriptTimeOut = 3000 %> Isso aí vai te dar umas 3 horas para execução do script hehe... A propósito, estou com um problema parecido com o seu de importação de dados, como eu faria para importar de um txt? Tipo um e-mail por linha do txt e jogar no banco de dados? Abraços

Cara o que você quer não é exatamente um "refresh" não. Realmente só pode ser feito em javascript. O que vai acontecer é que quando o cara selecionar algum ítem no menu, vai chamar uma function para atualizar os dados de outro campo (menu), mas estes dados, estão em outro arquivo (.js) que tb é javascript. Resumindo, já vi que vc [é um cara esperto e curioso, ok? Vá no site do Mercado Livre, entre na página de cadastro deles, onde tem os campos, e clique em "arquivos" / "Salvar como" Salve a página completa da web, que vai puxar até o arquivo (.js) aí analise, analise e analise o código que você vai entender e adaptar para vc, Abraços

Gente, aproveitando este tópico quero acrescentar minha dúvida, que quando vou gravar datas no bd que está com o campo configurado para data mesmo, se por acaso o campo de onde eu recolho a informação da data estiver vazio, ele dá um erro. Mesmo dizendo no bd que o campo não é requerido. Ex.: data = request.form("data") 'Se por acaso o usuário não preencher dá erro na gravação. E como fazer pesquisa, utilizo o "LIKE" e não tem retornado nada. Agradeço

Cara, você não vai achar nada gratuito neste sentido! Tenho um sistema semelhante ao Mercado Livre com todas as funções dele, idêntico mas sem copiar, a aparência é semelhante, mas obviamente é muito caro. Eu mesmo nunca o coloquei em funcionamento por falta de equipe para trabalhar no site, mas se houver interesse fale comigo em cinzaprata@bol.com.br

Obrigado, mas... Bom, baixei esta loja e até mesmo o cálculo de frete dela não está funcionando... nada aparece. Como disse, os Correios fizeram uma sacanagem bloqueando as informações aos sites. eles sé permitem isso agora aos que possuem o tal contrato de "e-sedex". Se alguém tiver umja solução melhor eu agradeço. O banco de dados com os CEPs já me ajudariam. Abraços

Aí vai um código bem simples: Para entender melhor, copie e cole no editor, ok? As partes com '**** são as explicações e não têm influência na aplicação. Lembre-se ainda, que dependendo do servidor, a conexão pode mudar um pouco. Informe-se junto ao host. este código aqui já está pronto para rodar no servidor remoto. Boa sorte e abraços <% '********** Abrindo conexão com o banco de dados set Conexao = Server.CreateObject("adodb.connection") Constr="DBQ=" & server.mappath("/") Constr=left(Constr, len(Constr)-3) & "dados\o_sucesso_de_escrever.mdb" Conexao.Open "Driver={Microsoft Access Driver (*.mdb)}; " & Constr & ";UID=;PWD=" '********** Fim da abertura da conexão '********** Aqui vamos pegar de um formulário da página anterior a nova senha SENHA = Request.Form("SENHA") '********** Aqui vamos abrir a tabela do banco de dados supondo o nome da tabela de "ADM" ComandoSQL = "SELECT * FROM ADM" Set bd = Server.CreateObject("ADODB.Recordset") bd.CursorLocation = 2 bd.CursorType = 0 bd.LockType = 3 bd.Open ComandoSQL, conexao,,, &H0001 bd.Move 0 '********** Aqui acontece a alteração propriamente bd("SENHA") = SENHA bd.UpdateBatch bd.Requery '********** Pronto, já foi alterada a senha e agora redirecione o usuário Response.Redirect "nova_pagina.asp" %>

Não entendi muito bem sua dúvida... Mas se a intenção é a pessoa enviar uma mensagem de para o e-mail de alguém junto com uma foto que já está no sistema, é fácil. É só se informar sobre o componente de e-mail que seu servidor trabalha e fazer o envio com a tag <img=endereco_da_foto> no corpo da mensagem. Agora, se adúvida é sobre a pessoa enviar aquela mensagem instantânea que aparece lá junto com sua foto, aí você precisa integrar um sistema de upload ao formulário de envio da mensagem, ok? Aí é um pouquinho mas complexo. Mas a princípio, você deve descobrir que componente seu servidor utiliza, tanto de e-mail quanto upload. Espero ter ajudado. Abraços

Olá, pessoal. Agora só conto com vocês... Estou com uma dificuldade um tanto grande para fazer o cálculo de frete de um site de e-commerce. O problema, não é bem referente ao código não, mas sobre as tarifas dos Correios para SEDEX. Alguém sabe como posso fazer este cálculo? Já que atualmente os Correios informam que para utilizar seu "script de cálculo" você precisa ter um contrato chamado "e-sedex". E sem isso não tem como fazer o cálculo automático. E aproveitando, onde eu consigo o banco de dados com os CEPs? Já vi um tópico aqui, mas já não funciona o link e e-mail. Desde já muito obrigado pela ajuda.

Estranho não estar cadastrando nem os espaços. Tem algo errado realmente. Envie o código para que possa ser analizado, ok?

Prezado companheiros: Estou com um pequeno problema, mas grave... Meus usuários entram com seu login e senha. Atribuo uma "session" para que eles possam se manter logados. Mas eles se queixam pois não completam nem 2 minutos e quando acessam outra página ou atualizam a mesma, pede novamente a senha. Como posso aumentar este tempo do Session. Se alguém puder me ajudar ficarei muito agradecido. Feliz ano novo a todos!!!