Ir para conteúdo
Fórum Script Brasil

spash

Membros
  • Total de itens

    20
  • Registro em

  • Última visita

Tudo que spash postou

  1. Pessoal, to tentando contar todos os dados do meu banco de dados que possui várias tabelas. Fiz o código abaixo mas nçao tá contando todos os dados. Somente alguns. Onde foi que eu errei? Grato a todos <% Dim totalBandas3, rst3, conn3, driver3, rst4, rst5, rst6, rst7, rst8, rst9, rst10, rst11, rst12, rst13, rst14, rst15, rst16, rst17, rst18, rst19, rst20, rst21, rst22, rst23, rst24, rst25, rst26, rst27, rst28, rst29, totalop, totalBandas4, totalBandas5, totalBandas6, totalBandas7, totalBandas8, totalBandas9, totalBandas10, totalBandas11, totalBandas12, totalBandas13, totalBandas14, totalBandas15, totalBandas16, totalBandas17, totalBandas18, totalBandas19, totalBandas20, totalBandas21, totalBandas22, totalBandas23, totalBandas24, totalBandas25, totalBandas26, totalBandas27, totalBandas28, totalBandas29 set conn3 = Server.CreateObject("ADODB.Connection") driver3 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\clientes\digitalsub.com.br\wwwroot\bandas\operadoras.mdb;Persist Security Info=False" conn3.Open driver3 Set rst3 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Acre") Set rst4 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Alagoas") Set rst5 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Amapa") Set rst6 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Amazonas") Set rst7 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Bahia") Set rst8 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Brasília") Set rst9 = conn3.Execute("SELECT COUNT(Operadora) As MailFROM Ceará") Set rst10 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Espirito Santo") Set rst11 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Goiás") Set rst12 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Maranhão") Set rst13 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Mato Grosso") Set rst14 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Mato Grosso do Sul") Set rst15 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Minas Gerais") Set rst16 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Pará") Set rst17 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Paraíba") Set rst18 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Paraná") Set rst19 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Pernambuco") Set rst20 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Piauí") Set rst21 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Rio de Janeiro") Set rst22 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Rio Grande do Sul") Set rst23 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Rio Grande do Norte") Set rst24 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Rondônia") Set rst25 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Roraima") Set rst26 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Santa Catarina") Set rst27 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM São Paulo") Set rst28 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Sergipe") Set rst29 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Tocatins") totalBandas3 = rst3("Mail") totalBandas4 = rst4("Mail") totalBandas5 = rst5("Mail") totalBandas6 = rst6("Mail") totalBandas7 = rst7("Mail") totalBandas8 = rst8("Mail") totalBandas9 = rst9("Mail") totalBandas10 = rst10("Mail") totalBandas11 = rst11("Mail") totalBandas12 = rst12("Mail") totalBandas13 = rst13("Mail") totalBandas14 = rst14("Mail") totalBandas15 = rst15("Mail") totalBandas16 = rst16("Mail") totalBandas17 = rst17("Mail") totalBandas18 = rst18("Mail") totalBandas19 = rst19("Mail") totalBandas20 = rst20("Mail") totalBandas21 = rst21("Mail") totalBandas22 = rst22("Mail") totalBandas23 = rst23("Mail") totalBandas24 = rst24("Mail") totalBandas25 = rst25("Mail") totalBandas26 = rst26("Mail") totalBandas27 = rst27("Mail") totalBandas28 = rst28("Mail") totalBandas29 = rst29("Mail") totalop = totalBandas3 + totalBandas4 + totalBandas5 + totalBandas6 + totalBandas7 + totalBandas8 + totalBandas9 + totalBandas10 + totalBandas11 + totalBandas12 + totalBandas13 + totalBandas14 + totalBandas15 + totalBandas16 + totalBandas17 + totalBandas18 + totalBandas19 + totalBandas20 + totalBandas21 + totalBandas22 + totalBandas23 + totalBandas24 + totalBandas25 + totalBandas26 + totalBandas27 + totalBandas28 + totalBandas29 Set rst3 = Nothing Set rst4 = Nothing Set rst5 = Nothing Set rst6 = Nothing Set rst7 = Nothing Set rst8 = Nothing Set rst9 = Nothing Set rst10 = Nothing Set rst11 = Nothing Set rst12 = Nothing Set rst13 = Nothing Set rst14 = Nothing Set rst15 = Nothing Set rst16 = Nothing Set rst17 = Nothing Set rst18 = Nothing Set rst19 = Nothing Set rst20 = Nothing Set rst21 = Nothing Set rst22 = Nothing Set rst23 = Nothing Set rst24 = Nothing Set rst25 = Nothing Set rst26 = Nothing Set rst27 = Nothing Set rst28 = Nothing Set rst29 = Nothing Set conn3 = Nothing Response.Write("<b>Operadoras cadastradas:</b> ") & totalop %> Obrigado a todos...
  2. spash

    Tabela Em Php

    Olá pessoal, Como ficaria o código abaixo em PHP? <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td> <div align="right"><b><font color="#999999" size="1"><a href="./">DOUTORBUSCA.COM</a> -<a href="oduvidas.asp"> AJUDA</a></font></b></div> </td> </tr> </table> <br> <br> <div align="center"> <table width="95%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="5%"><a href="./"><img src="imagens/logo.gif" width="246" height="61" border="0"></a></td> <td width="95%"> <form method=get name=frmInterSaerch action=search.asp onSubmit="return CheckForm();"> <div align="right"> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="left"> <tr> <td colspan="2" height="27"> <div align="center"><font size="2"> </font> <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td colspan="3" valign="middle" height="8" rowspan="2"> <div align="center"><b><font color="314C09" size="2">&nbsp;<font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Diret&oacute;rio</font>&nbsp;&nbsp;</font></b><font size="2"><b><font color="314C09" size="2">&nbsp;</font></b> <a href="artigos/questionlist.asp?psearch=<% =Request.QueryString("search") %>">Artigos</a> <b><font color="314C09" size="2"> &nbsp; &nbsp;&nbsp;</font></b><a href="downloads/downloadlist.asp?psearch=<% =Request.QueryString("search") %>">Downloads</a><b><font color="314C09" size="2">&nbsp;&nbsp; &nbsp;</font></b> <a href="dic/dicMedicolist.asp?psearch=<% =Request.QueryString("search") %>">Dicion&aacute;rio M&eacute;dico</a></font><font size="2"><a href="dic/dicMedicolist.asp?psearch=<% =Request.QueryString("psearch") %>"> </a><b><font color="314C09" size="2">&nbsp;</font></b></font></div> </td> <td rowspan="2" height="8" width="14%">&nbsp;</td> <td rowspan="3" height="8" width="0%">&nbsp;</td> <td rowspan="3" height="8" width="32%"> <br> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="5%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#666666"><font color="#FFFFFF"> <input type="radio" name="mode" value="allwords" CHECKED> </font></font></td> <td width="95%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#666666">Frase exata</font></td> </tr> <tr> <td width="5%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#666666"><font color="#FFFFFF"> <input type="radio" name="mode" value="allwords"> </font></font></td> <td width="95%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#666666">Todas as palavras</font></td> </tr> </table> </td> </tr> <tr> </tr> <tr> <td colspan="3" valign="middle" height="2"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#666666"><font color="#FFFFFF"> </font></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#666666"></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#666666"><font color="#FFFFFF"> <input type="text" name="search" size="62" value="<% =Request.QueryString("search") %>"> </font></font></div> </td> <td width="14%" height="2"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#666666"> <input type="image" border="0" name="submit" src="imagens/buscar.gif"> </font></div> </td> </tr> </table> &nbsp; &nbsp; <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#666666"><font color="#FFFFFF"> </font></font>&nbsp; &nbsp; </div> </td> </tr> </table> </div> </form> </td> </tr> </table> <br> <table width="95%" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#CCCCCC"> <td><img src="imagens/transp3.gif" width="1" height="1"></td> </tr> </table> Agradeço quem puder me ajudar...
  3. spash

    Newsletter

    Ae dark0, Muito obrigado pela ajuda...Modifiquei o código e deu tudo certo... Valeu mesmo manow! Fui!!
  4. spash

    Newsletter

    Ae pessoal, Tenho no meu site um sistema de newsletter em cdont, mas mudei de servidor e neste agora só aceita cdosys. Alguém poderia me indicar onde encontro úm código de newsletter que suporta o CDOSYS? Obrigado
  5. spash

    Problemasno Iis

    Olá pessoal, Instalei corretamente o meu IIS mas está acontecendo um problema, ele não está rodando códigos java. Como faço para resolver isso? Obrigado!
  6. spash

    Problema No Iis

    OLá pessoal, Instalei o IIS no meu pc e toda vez que tento visualizar o meu site em ASP o servidor me pede uma senha. Como faço para desabilitar esta senha? Obrigado
  7. Olá pessoal, Estou com um problemas com um site meu. Estou precisando criar um formulário para realizar um determinado IMC (cálculo de índice de massa corpórea). O cálculo é o seguinte: peso (em Kg) / altura x altura (em centímetros) Por exemplo: peso: 91Kg altura: 150 cm IMC = 45/22500 = 0,002 Se alguém puder me ajudar eu ficaria muito grato. Obrigado.
  8. spash

    Listar Dados

    vaLEU A AJUDA GALERA...FUI!
  9. spash

    Busca Por Imagens

    FAZER UM BANCO DE DADOS E ENCHER DE IMAGENS ACREDITO QUE TODOS NÓS SABEMOS, O PROBLEMA É FAZER UM SISTEMA DE BUSCA POR IMAGENS QUE PESQUISE EM META TAGS COM O GOOGLE
  10. spash

    Listar Dados

    Ae pessoal, Estava fazendo uma paginação simples para mostrar todos os dados de uma banco de dados meu, só que quando abro a página somente aparece 1 registro. Como faço para resolver isso? <% dim db,rs,sql,ass,name set db = Server.CreateObject("ADODB.Connection") db.Open "provider=microsoft.jet.oledb.4.0;data source="& server.mappath("banco_de_dados.mdb") sql = "select * from faq order by name desc" set rs = db.Execute(sql) name = rs("name") %><img src=../imagens/bolinha2.gif><a href="artigos/busca/questionview.asp?key=<%=rs.fields("name")%>" target="_blank"><%= rs("name") %></a><br> <% rs.movenext %> alguém pode me ajudar a corrigir o código acima? Obrigado!
  11. spash

    Busca Por Imagens

    Ola, Gostaria de implementar no meu site um sistema de busca por imagens semelhante ao do google. Coloquei um código lá que busca os sites, inclusite o código eu peguei qui no site. Só que encontro sistema selhante para imagens. Alguém poderia me passar um código de busca por imagens ou indicar onde eu possa fazer o download? Obrigado! spash
  12. spash

    Destacar Paginação

    Olá pessoal, Como faço para destacar na paginação a palavra buscada? A minha paginação está ae embaixo, se alguém puder me ajudar ficarei muito grato! <% For intRecordLoopCounter = 1 to intRecordsPerPage If adoRec.EOF Then Exit For intSiteIDNo = CInt(adoRec("SiteIDNo")) strTitle = adoRec("Title") strURL = adoRec("URL") strDescription = adoRec("Description") intSiteHits = CInt(adoRec("Hits")) strData = adoRec("Date_Entered") '-----RESULTADOS DE BUSCA (NORMAL)----------------------------------------------- Response.Write vbCrLf & "<div align=""left""><font size=""2"" color=""#3891EC""><a href=""get_url.asp?SiteID=" & intSiteIDNo & """ target=""_blank""><b>" & strTitle & "</b></font></a>" Response.Write vbCrLf & "<br>" Response.Write vbCrLf & strDescription Response.Write vbCrLf & "<br>" Response.Write vbCrLf & "<span class=""italic""><div align=""left""><font size=""2"" color=""#000000"">" & "<b>URL:&nbsp;</b><font color=""#009933"">" & strURL & "</font>&nbsp&nbsp|&nbsp<b>&nbsp;Visitas:</font></b> " & intSiteHits & " </font></span>" Response.Write vbCrLf & "<br><font size=""1"" color=""#000000"">( <img src=""imagens/seta2.gif""> Cadastrado desde " & strData & " )</font><br><br>" adoRec.movenext next End If %>
  13. spash

    Link De Volta

    Entendi sim...mas aí torna inviável pois meu site é muito grande e não vai rolara criar um banco de dados e categorias...fiquei sabendo que pode se fazer também com java...vou ver como é... Mesmo assim obrigado pela ajuda!
  14. spash

    Link De Volta

    Ae manow... Voc~e tem algum exemplo ae? Sua explicação ficou um pouco confusa!
  15. spash

    Link De Volta

    Ae pessoal, Como faço para fazer um link de retorno para o meu usuário tipo assim: Inicício -> Busca -> Artigos Ou seja, a medida que o usuário vai navegando pelo vai sendo criada a barra acima. Tipo um histórico para que o usuário possa voltar. Tipo esse aqui do fórum: WebFórum -> Desenvolvimento -> ASP / ASP.net Se alguém puder me ajudar com este código ficarei muito grato! Obrigado, Ademar Júnior
  16. spash

    Conecção

    Olá, Gostaria de saber como faço para poder me conectar a outro servidor. Conectar a um banco de dados que esteja em um servidor diferente do meu. Obrigado
  17. spash

    Problema No Pws

    Conecto ao meu banco de dados utilizando este componente ae: ... provider=microsoft.jet.oledb.4.0 ... Este funcionava antes de formatar o meu computador... Reisntalei o pws do meu cd Win98SE e desde então não consigo conectar ao servidor mais utilizando este componente. Gostaria de saber se tem um jeito de instalar este componente pois não seria viável ter que modificar todos os códigod das minhas páginas... Obrigado pela atenção!
  18. spash

    Busca Na Web

    Existem alguns códigos na sessão ASP aqui do script brasil e no site Web Masters on-line (http://www.wmonline). Dê uma olhada lá e veja como fazer uma meta search... falow...
  19. spash

    Paginação

    :) Obrigado pela ajuda, Mas na verdade não quero um sistema de notícias, e sim um código em ASP para que eu possa puxar do meu banco de dados de artigos os 10 últimos artigos publicados e listá-los na página inicial. Obrigado, sapsh :lol:
  20. spash

    Paginação

    :rolleyes: Olá pessoal, :rolleyes: Como faço para colocar uma lista com 5 artigos aleatórios do meu banco de dados na´página inicial? Assim como é feito na página do script brasil, onde n´página inicial são colocadas as últimas mensagens do fórum, top 10 dos artigos, etc. Obrigado, Ademar Júnior
×
×
  • Criar Novo...