DackAle

Tipos incompatíveis: 'cint' isso ocorreu porque o campo busca é o request busca = request("busca") ele é campo texto no caso...rs

hmmm vou tentar refazer esse sisteminha que tu fez cyber... mas outra duvida estou tentando fazer igual ao google, achar a palavra e deixar a palavra meio que centralizada e em negrita... tipo limitar caracteres antes e depois e deixar a palavra procurada em negrito... fiz assim <% busca_final = "<b>" & busca & "</b>" tamanho = len(busca) texto = instr(rs("descricao"),busca) texto3 = mid(rs("descricao"),cint(texto) - 10,cint(texto) + cint(tamanho) + 10) texto4 = replace(texto3,busca,busca_final) response.write texto4 Bom... o que aconteceu ele ta deixando a palavra buscada em negrito... e antes ele ta deixando só 10 caracteres... ta perfeito, mas o limitador de caracteres da direta não ta funcinando ele mostra o texto todo que vem depois da palavra buscada... já tentei de tudo, mas num vai.... texto3 = mid(rs("descricao"),cint(texto) - 10,cint(texto) + cint(tamanho) + 10) no caso ocorre aqui no mid, especificamente no cint(texto) + cint(tamanho) + 10 explicando cint(texto) é a posição da palavra busca, ele ta somando com o tamanho da palavra e somo mais 10 caracteres.... um exemplo disso... tipo ele limito no começo, tanta que começa de um "e" (a palavra procurada foi site no caso) pode ver que só tem 10 caracteres ANTES e depois mostra o texto todo, ele não limita... alguém tem ideia porque ?? E detalhe fiz um teste mandando ele mostrar o "cint(texto) + cint(tamanho) + 10" e ele me retorna o numero exato... é como se função MID não tivesse vendo este numero apesar dele existir... Acho que nesse tópico vai sair a busca perfeita hein ahahuahuah Abraços

Bom alem disso tem a função de converter acentos e tal... tipo se o cara busca cao e cão tem diferença...vi um codigo +/- assim, mas num funciona busca = request("busca") busca = replace(busca,"a","[a,á,à,ã,â,ä,A]") busca = replace(busca,"e","[e,é,è,ê,ë,E]") busca = replace(busca,"i","[i,í,ì,î,ï,I]") busca = replace(busca,"o","[o,ó,ò,õ,ô,ö,O]") busca = replace(busca,"u","[u,ú,ù,û,ü,U]") busca = replace(busca,"c","[c,ç]") e o resultado sai assim por exemplo ou seja o replace que o cara usa aonde ele ensina não funciona... existe uma forma de fazer isso em um replace só como ta ai emcima ou vou ter que fazer de um em um... tipo busca = replace(busca,"a","á") busca = replace(busca,"a","à") busca = replace(busca,"a","ã") busca = replace(busca,"a","â") busca = replace(busca,"a","ä") busca = replace(busca,"a","A") Poque ai eliminaria mais uma coisa na busca, procura por acentos... alguém sabe como arrumar ?

já tentou converter tudo para maiuscula ou minuscula na hora de fazer o Select: SQL = "select * from tabela where Ucase(campo) like '%"&Ucase(request("palavra")&"%'" é uma chance mas.... já penso se o cara digita assim Asp é diferente de ASP ou asp... mas acho que talvez eu tenha uma ideia de como fazer isso, vo tentar e se funcionar posto aqui...

Ae cyber mais 50 e faz diferenciar maisculas e minusculas agora hauhahuahua a de diferenciar as palavas é só fazer um replace, mas o problema é que quando desenvolvi uma busca qui para testar ele só acha se for exatamente igual, se você escrever "asp" e estiver no banco como ASP ele não acha =( Dai não sei exatamente como fazer para arrumar isso, se tiver alguma dica ae seria bom =D Abraços

um vamos la... eu faria isso com select case... mais array select case verifica a hora... e o array guarda os valores e utilizando a função rnd você poderia pegar um destes valores... não é dificil de fazer, logica =) Ou até por if no lugar do select case =) Qualquer coisa da um berro =) Abraçosss

E ae galera Não me batam ahahahahaha mas to colocando aqui duas estruturas basicas de portfolio meu que comcei a fazer, tava com duas ideias em mente e comcei a fazer os dois, mas não sei se ta ficando legal e qual continuar mexendo, não tem muita coisa, mas da pra ter uma breve ñoção de como vai ser a estrutura... Se puderem dizer o que estão achando fico grato =) Abraços OBS: Não reparem nas fontes, é porque tava sem fonte no PC e usei qualquer uma... depois ponho as finais Portfolio Portfolio 2

logica basica, tem um campo que pede o email e o nick da pessoa na proxima pagina você reucpera estes dois valores recuperandos os valores você faz um select e um where, aonde você compara estes dois valores no banco de dados, se eles existirem no memo reigstro, então você seleciona o email da pessoa e a senha, faz o codigo do cdonts (para mandar email) e nele coloca o email da pessoa e a senha que recuperou... fazer na pratica é facinho tambem, posta ae seu codigo que a gente te ajuda

Bom vou tentar explicar da minha forma o que é array... rss imagine UMA variavel que você tem que guardar varios valores nela exemplo Variavel: Casa Valores: Cama, Toalha, Microondas Bom agora você precisa utilizar estes valores sozinhos... vou chamar esta variavel casa/cama casa/toalha casa/microondas meio feio certo ? mas poderia fazer assim Casa(2) já que temos 3 valores (Cama, Toalha, Microondas) e começa a ser contado do 0 ou seja 0,1 e 2 Então eu ponho quantos valores vai ter do lado da "variavel" Casa(2) Agora eu quero utilizar o valor toalha... como eu chamo ? Casa(1) só por o numero correspondente que no caso é 1... E se eu quiser mostrar todos os valores ? Com um For e ubound você faz isso, assim por exemplo <% FOR I=0 TO UBOUND(Casa) response.write casa(i) & "<br>" Next %> Aonde eu estou mostrando que o I vai ter o valor 0, o ubound serve para pegar o maior numero da matriz que no caso é o 2 (lembra ? casa(2)) o response.write vai mosrar o valor do I atual no looping e vai dar um br e o next manda ele pro começo do looping a leitura ficaria assim Para I igual a 0 até o maior numero da matriz casa (que no caso é 2) escreva casa(I atual) mais o enter proximo é facinho tudo isso é caso de treino =) e pra você pegar um valor da arra´y aleatoriamente tambem é facil <% randomize valor = rnd*2 response.write casa(valor) %> Aonde o randomize serve para ele forçar o valor não ficar se repetindo faço a varial valor, nele ponho a função rnd que serve para fazzer o valor aleatorio ponho o *2, que serve para ele pegar um valor aleatorio até o numero 2 e mando ele mostrar pelo response.write a matriz que vai cair aleatoria =) Resumindo array seria uma forma organizado de você guardar multiplos valores e muito facilmente de chama-los... Qualquer duvida é só berrar =)

Então inicialmente eu fiz isso falado acima, do delete com dateadd... e coloquei ele em praticamnte todas as paginas ou seja conforme você se cadastra, faz login, vai pra index, ele vai vendo no banco de dados e limpando, como o Guto disse se for um site bem visitado nem precisa se preocupar porque constantemente ele vai ser limpado, agora se você ficar parado olhando os nomes por 10 minutos ele realmente vão ficar la ahahaha o que posso fazer é um refresh a cada 3 minutos na index por exemplo ou na pagina que mostrar os users on, pra deixa-la sempre atualiza... Ontem fiz um teste mandei umas 10 pessoas do MSN entraram la e testarem e tal e funfo supimpa... fiquei semanas pra pensar na logica disso e acreditem no banheiro pensei ontem ahahuhau e deu certo, tinha achado exemplos, mas involvia XML, mais complexo...rs Vo terminar de acertar o codigo e depois posto aqui se alguém quiser ver, usar e tal =) Abraços

E ae galera =) A um tempinho perguntei se alguém sabia como fazer um com session, mas acaba sendo meio chato, desenvolvi um apenas com dateadd, select, insert e delete... Queria que vocês dessem uma olhada... basicamente é o sistem que veem em forum, o cara se loga aparece o nick dele la nos logados, quando o cara sai depois de um tempo o nick dele sai... Utilizei a logica de um sistema de contador de usuarios e melhorei e fiz isso, não vo por o codigo porque ainda vo modifica-lo para deixa-lo melhor... e ta sem segurança alguma porque fiz em alguns minutos pra pra testar =D Link O usuario fica valido por 3 minutos, se tiver on ele sera renovado, senão tchau =D Quando você se cadastra automaticamente já fica logado, mas tem o o login ali tambem caso você volte ao site... mas é isso galera =D Vejam ai o que acham =) Abraços

qual banco de dados serio um gbd ? Abraços

outra forma que eu uso <% SQL = "SELECT titulo FROM links ORDER BY id DESC" RS.Open SQL, conexao,3,3 %> <table> <tr> <% n = 1 c = 5 'c, é aqui que você controla o numero de colunas Do while not RS.Eof %> <td width="20%"><%=RS("titulo")%></td> '<%=RS("titulo")%> é aonde mostra um dado do banco de codigos, você pode por o que quiser aqui <% n = n + 1 RS.Movenext If n > c then response.write "</tr><tr>" n = 1 End If Loop %> </table> Funcional =D Abraços

Como assim, desculpe a ignorancia, mas não entendi a duvida...rss Abraços

você faz tudo isso com INSTR e variaveis =) Utilize a função INSTR pra achar o http:// e se quiser o www se não achar (ou seja retornar 0), você pega o endereço (por www.terra.com.br) e poe o http://, é só na base de criar variavel =) Abraços

Acho que ele entendeu o "soma" errado, tipo ele entendeu uma soma para dizer o total de registros... e não o total do valor dos registros...rs

Bom hoje mesmo fiz algo parecido, tinha que excluir varios arquivos de um banco e respectivamente os arquivos da pasta, fiz um while e deletei um por um no looping, facinho =) FSO Ai ensina a deletar pasta =) Aqui foi parte do codigo que fiz hj, ve se te ajuda em alguma coisa =) Abraços tabela = trim(request("tabela")) ids = split(request("apagar"),",") For Each idselecionado IN ids SQL="SELECT * FROM clientes WHERE id_cliente=" & idselecionado SET RS = Server.CreateObject("AdoDB.RecordSet") RS.Open SQL,VConexao imagem = rs("imagem") if len(imagem) > 0 then SET FSO = Server.CreateObject("Scripting.FileSystemObject") FSO.DeleteFile upload_logo & imagem SET FSO = Nothing end if rs.close set rs = nothing SQL="SELECT * FROM imagem WHERE id_cliente=" & idselecionado SET FSO = Server.CreateObject("Scripting.FileSystemObject") SET RS = Server.CreateObject("AdoDB.RecordSet") RS.Open SQL,VConexao if not rs.eof then while not rs.eof FSO.DeleteFile upload_foto & rs("imagem") FSO.DeleteFile upload_foto & "thumb_" & rs("imagem") rs.movenext wend rs.close set rs = nothing set fso = nothing end if

Apesar de ter aprendido usar o application e hj não saber nem bri-lo mais, usando ele, você tambem pode armazena-lo os usuarios e mostra-los =) Abração

Cara o mais pratico, avançado e completo que já usei foi o ASPUPLOAD da Persits, tem todos os comandos que você precisa, não precisa ficar fazendo gambiarras igual ao Dundas...rs Bem facil, pratico, renomeia imagens bunitnho e tem otima integração com o ASPJPEG =) O ruim é que é pago e carro, mas verifica se teu servidor possui ele =) Abraços

entaum, só vou testar a tardezinha, espero que funfe, se não estou na roda...rs tenho projeto pra entregar amanhã... e o que houve foi, instalei o aspjpeg e tal.. dai em seguida, meu pc travo por outra coisa, quando inicio, fui testar uma pagina num rodava.. dai fui ver o iis tava assim...=/ mas valeu vo instala isso em casa e ver se da certo =D abraçosss

GUTO, eu procuro dentro do que eu LIMITEI (no caso quero pegar só 70 caracteres), o ULTIMO espaço, porque ? Pra poder quebrar o texto nele, e não ficar aquela coisinha porca "e ele foi embora com ela po..." é a função 3 pontinhos, quebrando no ultimo espaço antes do que limitei... basicamente, limito a 70 caracteres, procuro o ultimo espaço nos 70 caracteres, salvo a posição, e faço mais um left, com a posição do espaço... Testei com 2000 cacracteres e funfo hahaha Sobre o codigo, como disse já achei varios prontos, mas gosto de tentar desenvolver minhas funções e afins, mesmo que possa estar "porquinha", hoje ela esta funcionando, semana que vem quem sabe não consiga faze-la de uma forma melhor e menor, mas pelo menos esta funcional...rs Abraçosss

E ae galera =) Isso é muito urgente... Seguinte galera é a terceira vez que acontece, meu IIS fica estranho, para de funcionar, some meu "servidor" tudo, não tem como dar stop, play... do nada... da primeira vez tive que formatr o PC po IIS funcionar, na segunda, só reinsatalei e funfo, mas perdi meu cd do XP em Ingles e não tem como reinstalar e to cheio de projetos aqui, to ferrado...rss Ele ta exatamente assim, alguém sabe como faço pra ele voltar a funcionar ? Ou se existe outra forma de rodar ASP local ? To fudido...rs Abraços e Valeu Galera =)

vo tentar explicar a logica que eu utilizei GUTO =) <% titulo = left(rs("titulo"),70) 'Aqui basicamente pego os 70 primeiros caracteres do recordset titulo if len(rs("titulo")) > 70 then titulo2 = InStrRev(titulo,chr(32),-1,1) response.write left(titulo,titulo2 - 1) else response.write rs("titulo") end if 'emcima faço a verificação pra ver o recordset tem mais de 70 caracteres, se tiver então eu vo utilizar a função que limita o texto com 70 caracteres... O Insrtrev, ele procura o caractere que eu quero (no caso o ESPAÇO (chr(32)) de tras pra frente, o instr procura da esq pra dir, ele faz ao contrario... Ou seja ele vai procurar o ultimo espaço aonde limitei a 70 caracteres e vai me retornar o valor de onde encontrou o espaço, por exemplo, ele encontrou o espaço la pro caracteres 65, então eu pego e faço mais um left, aonde eu utilizo o valor que o instrrev me passa pra limitar nesse espaço... if len(rs("titulo")) > 70 then resposen.write "..." end if %> A logica que utilizei foi essa e funcionou ehehe parece meio complexo, mas pelo menos funcionou, o que fiz foi fazer o contrario do instr, procurar o espaço da dir pra esq, salvar a posição e fazer mais um left com esse valor =) Abração

bom, se quer mostrar os primeiros 25 caracteres ? é isso ? se for left(variavel,25) exemplo left(rs("descricao"),25) Abraços

e ae galera =) Então consegui refaze-la funcionando perfeitamente, fiko assim, maior mas funcional e eu que fiz...rs <% titulo = left(rs("titulo"),70) if len(rs("titulo")) > 70 then titulo2 = InStrRev(titulo,chr(32),-1,1) response.write left(titulo,titulo2 - 1) else response.write rs("titulo") end if if len(rs("titulo")) > 70 then resposen.write "..." end if %> Abraços e Valeu =)