cyberalexxx

Boa Sorte, com essa missão!! Pois você vai precisar. Mais é legal passar isso pra galera, pra dar um upgrade nos cursos que existem por ai que na minha opinião são muito basicos, por isso que nunca fiz nenhum. Nas facul, quem ensina tabéla tabela dinamica são os professores de estatistica, é um recurso muito usado em pesquisas de mercado para tabulação dos dados de um formulario de pesquisa, foi ai que eu aprendi em uma pós-graduação que eu fiz a algum tempo. Para economizar Post: E ai lisandro, conhece algum bom tutorial de VBA principalmente voltado para o Excel, pois trabalho muito com Excel aqui na empresa e acho que se eu tivesse maiores conhecimentos nessa area me ajudaria bastante. T+

No sound forge é mole, é só selecionar o trecho dar um control+c e um control+e que a parte selecionada é colada em um novo arquivo

já tentou remover no gerenciador de dispositivos todas as portas USB, plugar a impressora e reiniciar a maquina para um novo reconhecimento das portas??? Fiz isso uma vez com uma Lexmark USB e deu certo

Cara, isso até já foi discutido em outro post hoje. Se esta funcionando no IIS e no servidor não roda, você tem que ver com o suporte do servidor, pois deve ser problema de permissão. Alguns servidores tem pastas reservadas para o uso de BD T+

Testei seu insert aqui na minha maquina e funcionou!! você esta usando duas tabelas?? eventos e equipe??? Cola o codigo todo aki, pra mim dar uma olhada.

já deu uma verificada no nome da tabela e nome e tipo dos campos, pra ver c não tem nada em discordancia

Fala Bareta, resolveu sair um pouco do ASP e passear um pouco no Office?? Na verdade o que o lisandro fez também é uma tabela dinamica só que em modo VBA (trocinho chato mesmo). Pra quem não gosta de VBA, como eu faz assim: 1 - Seguindo aquela mesma planilha de exemlo Produto | Vencido Feijao | Sim Arroz | Não 2 - Selecione toda a planilha 3 - Clique em Dados/Relatório de Tabela e gráficos Dinamicos 4 - Avance até concluir 5 - Arraste Produto para campo de linha 6 - Arraste Vencido para campo de coluna 7 - pronto ta criada a tabela dinamica, agora voce pode selecionar se voce quer ver somente os produtos vencidos, ou não ou ambos

Qual o seu grau de conhecimento?? Voce basicamente vai usar isso: Formulario de login(html) Base de dados de usuarios (access, txt, etc) pagina de validação dos dados do usuarios(asp) Session ou Cookies para armazenar dados do login

já tentou usar Include Virtual, no lugar do Include File???

Os programas do Office não reconhecem arquivos no formato "Quick Report", uma vez precisei passar os dados para o Excel e utilizei o metódo Gambi (gambiarra), olha o que eu fiz. Abrir o arquivo QRP com o devido visualizador. Definir a impressora padrão para: Microsoft Office Document Image Writer Imprimir o arquivo O arquivo QRP será gerado agora com o nome que você der com a extensão .MDI Abra o arquivo MDI usando o Microsoft Office Document Imaging Sera passado um OCR (reconhecimento Optico de caracteres) automatico no arquivo, ai é só voce selecionar e copiar/colar para o Word ou Excel. é chato mais funciona

Da pra fazer tambem com tabela dinamica, eu acho mais facil do que usar VBA. Caso tenha alguma duvida sobre tabela dinamica é só falar.

Caso queira usar o método do Victor que é bem mais complicado, eu fiz umas mudanças nele para não mais aquele erro. <!--#include file="configteste.asp" --> <% dim conn, rs, sql set conn = server.createobject ("ADODB.connection") Set rs =Server.CreateObject("ADODB.Recordset") conn.Open caminhoBD SQL = "select * from tabela order by id" Rs.Open sql, conn If rs.BOF Then Response.Write "Nenhum usuario cadastrado" else dim texto dim id texto = array() id = array() z=0 while not rs.EOF ReDim preserve texto(UBound(texto)+1) ReDim preserve id(UBound(id)+1) texto(Ubound(texto)) = rs("texto") id(Ubound(id))= rs("id") z=z+1 rs.MoveNext wend rs.Close end if response.write id(0)&" - "&texto(0)&"<br>" response.write id(1)&" - "&texto(1)&"<br>" response.write id(2)&" - "&texto(2)&"<br>" response.write id(3)&" - "&texto(3)&"<br>" response.write id(4)&" - "&texto(4)&"<br>" %> Mais eu tambem acho que é melhor usar o select TOP

Da pra fazer automatico sim, me explica como estão as suas tabelas que eu te passo uma lógica.

Caso já exista uma pontuação e ele acerte o resultado, o sistema esta somando ou esta colocando apenas 1 no update???

Concordo com tudo que você disse!!! Na minha "humilde" opinão isso é um "bug" da função Ubound, pois acredito que independetemente da maneira que a array foi criada (Dim(x), split(), ou array() com redim()) o tratamento deveria ser o mesmo. Lembra que discutimos sobre contador?? se vou fazer um loop para exibir dados de um array criado com DIM(), tenho que usar o método que tinha dito, ex: <% dim a(3) a(0)= 1 a(1)= 2 a(2)= 3 'mostrar dados for i = 0 to Ubound(a) - 1 ' ta contando de 0 a 2 response.write a(i) & "<br>" next %> agora caso esteja usando split() ou array() com redimensionamento o contador tem que ser: for i = 0 to Ubound(a) Realmente confunde. Mais agora apesar de não estar tecnicamente explicado, o jeito é aceitar o funcionamento da função.

já discuti algo parecido uma vez com o UrsoLouco, mais hoje tava no meio de uma programação quando me deparei com o seguinte: A função Ubound retorna a quantidade de itens de um vetor ou o maior valor da dimensão de um vetor??? Quando eu declaro que uma variavel vai ter 3 elementos tipo DIM a(3) e peço o Ubound(a) o retorno é 3. Quando não declaro a variavel e crio o array através de split, sabendo que a array gerada tem 3 elementos e peço o Ubond o retorno é 2. Olha um código que demonstra isso: <% dim a(3) a(0) = "valor1 de aa" a(1) = "valor2 de aa" a(2) = "valor3 de aa" response.write Ubound(a) & " é o Valor do Ubond de a " & "<br>" dados = "valor1 de b,valor2 de b,valor3 de b" b = split(dados,",") response.write Ubound(b) & " é o Valor do Ubond de b " & "<br>" %> alguém tem algo a dizer???

Só pra constar: Fiz um teste com URL Encode com duas palavras e funcionou ele colocou o sinal de "+" entre as palavras T+

Duas coisas: 1 - a linha de action do seu formulario: <form name="form1" method="get" action="pequisa.asp"> o correto é pesquisa.asp e não pequisa.asp 2 - o Input de pesquisa: <input name="textfield" type="text" size="23" id="pesquisa"> &nbsp; mude para:<input name="pesquisa" type="text" size="23" id="pesquisa"> &nbsp; Agora tem que funcionar

Execute esse script no servidor e depois poste o resultado aqui pra gente <% @ Language="VBScript" %> <% Option Explicit %> <% Dim theComponent(12) Dim theComponentName(12) ' componentes theComponent(0) = "ADODB.Connection" theComponent(1) = "SoftArtisans.FileUp" theComponent(2) = "AspHTTP.Conn" theComponent(3) = "AspImage.Image" theComponent(4) = "LastMod.FileObj" theComponent(5) = "Scripting.FileSystemObject" theComponent(6) = "SMTPsvg.Mailer" theComponent(7) = "CDONTS.NewMail" theComponent(8) = "Jmail.smtpmail" theComponent(9) = "SmtpMail.SmtpMail.1" theComponent(10) = "Persits.Upload.1" theComponent(11) = "UnitedBinary.AutoImageSize" theComponent(12) = "Dundas.Upload.2" ' apelido do componente! theComponentName(0) = "ADODB" theComponentName(1) = "SA-FileUp" theComponentName(2) = "AspHTTP" theComponentName(3) = "AspImage" theComponentName(4) = "LastMod" theComponentName(5) = "FileSystemObject" theComponentName(6) = "ASPMail" theComponentName(7) = "CDONTS" theComponentName(8) = "JMail" theComponentName(9) = "SMTP" theComponentName(10) = "Persits Upload" theComponentName(11) = "AutoImageSize" theComponentName(12) = "Dundas Upload" Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %> <html> <head> <title>O q tem aqui?</title> </head> <body> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes instalados:</b></font></td> </tr> <tr> <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <% Dim i For i=0 to UBound(theComponent) If Not IsObjInstalled(theComponent(i)) Then Else Response.Write "<tr>" & vbCrLf Response.Write "<td width=""100%"">" & vbCrLf Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf Response.Write "</td>" & vbCrLf Response.Write "</tr>" & vbCrLf End If Next %> </table> </font> </td> </tr> </table> </body> </html>

Ai já é paginação, faz uma busca no forum que varios tópicos discutindo sobre isso.

Erro de Sintaxe no FSO, o correto é: Set FSO = Server.Createobject("Scripting.FilesystemObject") nome = FSO.GetFileName ("d:\casa\arquivos\arquivo1.txt") T+

beleza!! Vamos montar algo para ser desenvolvido em conjunto!!! Hoje ta meio corrido pra mim, mais a noite eu estruturo melhor a ideia e amanha crio um Post pra gente trabalhar. T+

To montando uma estrutura aqui, só pra ter uma idéia da necessidade, assim que eu tiver alguma alguma coisa, abro um tópico pra gente executar a idéia.

Qualquer duvida com a função é so falar !!

A maneira é essa mesma, só que coloca a comparação antes do link apenas. Caso sejam muitos links crie uma função que antes de mostrar o link verifique o nivel de acesso do usuário.