Ir para conteúdo
Fórum Script Brasil

1980coelho

Membros
  • Total de itens

    69
  • Registro em

  • Última visita

Tudo que 1980coelho postou

  1. 1980coelho

    Encode asp ..

    tentei usar o screnc para codificar o arquivo asp mais esta dando pau ao rodar no windows7 alguém sabe outro programa que criptografe os dados?
  2. opa.. estou interecado entre em contato por msg aqui no site mesmo.. enntro todo dia.. quero saber mais sobre..
  3. você pode usar cookies para armazenar dados tb.. rocure saber o que e e como funcionam..
  4. 1980coelho

    overflow

    você quer alterar a cr da barra de rolagem do site e isso?
  5. se tenho em uma tabela 10 registros e quero listar em apenas uma pagina os valores serao: rs.RecordCount = 10 rs.PageCount = 1 duvida a algum comando para que possa listar o numero correspondente de cada registro no paging? exemplo ao dar o loop nos 10 registros vir o numero de cada um ? de 1 a 10 ..
  6. 1980coelho

    Script Classificados

    não entendi.. o que especificamente você quer fazer?
  7. descobri como se conta o tatoal de numeros de cookies Request.Cookies("nome").count , porem o que preciso e somar os valores numericos de cada um dos cookies que são 10 no total..
  8. existe alguma forma para somar valores de cookies? RESOLUCAO: criei uma variavel para adicionar outro cookie com nome de valor e contabilizo eles, ainda não sei se há alguma forma de somar so os valores guardados neles.. Request.Cookies("brownies").Count ---
  9. montei o sistema so falta agora ver como contabilizar os votos, sendo que são 4 opcoes na multipla escolha: A ) B ) C ) D ) a opcao correta tem o valor=1 as demais valor=0 , como faria para contar os votos por cada ID & VALOR e no final das questoes dar o resultado? sera que rola fazer isso em cookie? como?
  10. galera como faço para aparecer um resultado fazendo uma subtração de dois dados no banco de dados explo : gols a favor = 3 gols contra = a 6 então o saldo de gols é igua a -3 como fazer esse script abraços Resonse.Write (rs("GolFavor") - rs("GolContra")) ---
  11. coloca na tabela do banco de dados na coluna a opcao para ser unico os nomes e ao dadastrar o nome algo como: se der erro escreva: time cadastrado.. --
  12. consegui fazer que se já exista o nome procurado ele atualize com +1 a contagem da procura mais não estou conseguindo fazer s a palavr digitada não existir na tabela que adicione a palavra, segue o codigo: If Request.Form("search") = rsTagCloudSubmit("Tag") Then strSQL = "UPDATE tblTagCloud SET tblTagCloud.Click='" &(rsTagCloudSubmit("Click")+1)& "' WHERE tag ='" & Request.Form("search") & "' " adoCon2see.Execute(strSQL) Else strSQL = "INSERT INTO tblTagCloud ([tag], [click]) VALUES('" & Request.Form("search") & "', '1')" adoCon2see.Execute(strSQL) End If ---
  13. problema, quero que em uma busca a palavra digitada verifique se já existe na tabela, se existir atualizar com mais um click se não existir adicionar a tabela.. sendo que na tabela tando o ID como o nome da coluna TAG são unicos e não podem se repetir.. a minha duvida e questao esta na linha sublinhada não estou sabendo mandar verificar se a palavra da busca no caso strSearchFor existe na tabela ou não, como esta o codigo da erro ele volta dizendo que: Microsoft JET Database Engine error '80004005' The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again. /files/2see/search.asp, line 317 --- ento e facil deduzir que a nha não esta funcionando a varificacao e esta tentando adicionar a palavra em vez de atualizar.. se mando a busca com a primeira palavra da tabela ela se atualiza as outras voltam com o erro acima; codigo: strSQL = " SELECT *" strSQL = strSQL & " FROM tblTagCloud" strSQL = strSQL & " WHERE tag" Set rsTagCloudSubmit = Server.CreateObject("ADODB.Recordset") rsTagCloudSubmit.Open strSQL, adoCon2see If strSearchFor = rsTagCloudSubmit("Tag") Then strSQL = "UPDATE tblTagCloud SET tblTagCloud.Click='" &(rsTagCloudSubmit("Click")+1)& "' WHERE ID =" & rsTagCloudSubmit("Tag") adoCon2see.Execute(strSQL) Else strSQL = "INSERT INTO tblTagCloud ([tag], [click]) VALUES('" & strSearchFor & "', '1')" adoCon2see.Execute(strSQL) End If --- RESOLUCAO: 'TagCloud Isert Or Update If Request.Form("search") <> "" Then strSQL = " SELECT *" strSQL = strSQL & " FROM tblTagCloud" strSQL = strSQL & " WHERE tag ='" & Request.Form("search") & "' " Set rsTagCloudSubmit = Server.CreateObject("ADODB.Recordset") rsTagCloudSubmit.Open strSQL, adoCon2see If rsTagCloudSubmit.EOF Then strSQL = "INSERT INTO tblTagCloud ([tag], [click]) VALUES('" & Request.Form("search") & "', '1')" adoCon2see.Execute(strSQL) Else strSQL = "UPDATE tblTagCloud SET tblTagCloud.Click='" &(rsTagCloudSubmit("Click")+1)& "' WHERE tag ='" & Request.Form("search") & "' " adoCon2see.Execute(strSQL) End If End If ---
  14. estou querendo fazer um sistema de 20 perguntas cada uma com 4 multipla escolha e ao final dar o resultado como uma prova, cadastrar as perguntas e dar o valor a cada resposta pelo que penso e facil o problema esta em como ir somando as notas para dar o resultado final? RESOLUCAO: criei um cookie especifico para quando a pergunta for correta e no fnal somo quantos corretos foram. ---
  15. não estou entendendo.. rsTagCloud("Tag") esta fixado em um especifico registro para todos os itens, não estou sabendo como cada item listado seja correspondente ao seu proprio valor e não ao mesmo valor para todos, segue meu codigo: <% strSQL = "SELECT Top 20 *" strSQL = strSQL & " FROM tblTagCloud" strSQL = strSQL & " WHERE click > 10" strSQL = strSQL & " ORDER BY click DESC" Set rsTagCloud = Server.CreateObject("ADODB.Recordset") rsTagCloud.Open strSQL, adoCon2see Do While NOT rsTagCloud.EOF %> <a href='search.asp?mode=tag' OnClick='<% Response.Cookies("pci")("tag") = ""& strTagCookies &"" %>' target='icenter'> <% Response.Write ("<b>") Response.Write (rsTagCloud("Tag")) Response.Write ("</b>") Response.Write ("</a>") 'strTagCookies = ""& rsTagCloud("Tag") &"" strTagCookies = ""& rsTagCloud("Tag") &"" rsTagCloud.MoveNext Loop Set rsTagCloud = Nothing %> ---
  16. estou tentando criar um codigo para TagCloud em asp.. so que estou tendo alguns problemas alguém entende? RESOLUCAO: parei de tentar usar os cookies neste caso e use o Request.Querystring("name") ---
  17. 1980coelho

    Notícia não aparece

    Não pois o que quero ninguém consegue ajudar e meio complicado mesmo eu acho... este já é o site em questão que estou fazendo, o que quero é que nele fique todas as notícias, porém so aparece da seguanda em diante nunca a primeira... esta armazenando as noticias em algum tipo de banco de dados? qual?
  18. 1980coelho

    Iframe auto size..

    achei esse codigo mais ele funciona so 50% ele chama o tamanho do conteudo e ajusta a pagina o problema e que ele não volta o tamanho se for menor .. <script language="JavaScript"> // CalcHeight Iframe function CalcHeight() { // find the height of the internal page var the_height=auto document.getElementById('imain').contentWindow. document.body.scrollHeight; // change the height of the iframe document.getElementById('imain').height= the_height; } // <iframe name='imain' id='imain' src='' allowTransparency='true' width='614px' marginwidth='0' marginheight='0' hspace='0' vspace='0' frameborder='0' scrolling='no' style='position:relative; border-style:solid;border-width:0px; z-index:3; left:0px; top:0px; margin-left:0px; margin-top:0px; overflow-x: hidden;' OnLoad='CalcHeight();'> function CallHeight() </script> --- alguém sabe como resolver ou tem alguma outra solucao?
  19. como faco para que o resultado de uma procura a palavra chave apareca em negrito? RESOLUCAO: 'Highlight Search Results Function stringReplace(strSearchWithin,strSearchFor) If Len(strSearchWithin) > 0 And Len(strSearchFor) > 0 Then intStart = 1 intFound = InStr(intStart,strSearchWithin,strSearchFor,1) Do While intFound > 0 strReplaced = strReplaced & Mid(strSearchWithin,intStart,intFound - intStart) & "<span style='background-color:yellow'>" & mid(strSearchWithin,intFound,len(strSearchFor)) & "</span>" intStart = intFound + len(strSearchFor) intFound = InStr(intStart,strSearchWithin,strSearchFor,1) Loop stringReplace = strReplaced & Mid(strSearchWithin,intStart) Else stringReplace = strSearchWithin End If End Function Response.Write stringReplace(""&rs("Name")&"",Request.Form("search")) ---
  20. exemplo: strSQL = " SELECT *" strSQL = strSQL & " FROM tblList" strSQL = strSQL & " WHERE name LIKE '%" & Replace(strSearch, "'", "''") & "%'" strSQL = strSQL & " ORDER BY date DESC" Set rs = adoCon.Execute(strSQL) como faco para ele procurar o WHERE em mais de dois lugares se coloco: strSQL = strSQL & " WHERE name AND date AND subname AND location LIKE '%" & Replace(strSearch, "'", "''") & "%'" não rola ele so me pega os dois primeiros, como fazer para pegar mais de dois lugares? RESOLUCAO: strSQL = " SELECT *" strSQL = strSQL & " FROM tblList" strSQL = strSQL & " WHERE name LIKE '%" & Replace(strSearch, "'", "''") & "%'" strSQL = strSQL & " Or aka LIKE '%" & Replace(strSearch, "'", "''") & "%'" strSQL = strSQL & " Or director LIKE '%" & Replace(strSearch, "'", "''") & "%'" strSQL = strSQL & " Or actors LIKE '%" & Replace(strSearch, "'", "''") & "%'" strSQL = strSQL & " Or date LIKE '%" & Replace(strSearch, "'", "''") & "%'" strSQL = strSQL & " ORDER BY date DESC" Set rs = adoCon.Execute(strSQL) ---
×
×
  • Criar Novo...