zando
-
Total de itens
59 -
Registro em
-
Última visita
Tudo que zando postou
-
Olá, Gostaria de saber se tem como fazer através do ASP um aplicativo no qual ele verificava todos os dados do banco de dados e depois fizesse um arquivo em um diretório especificado no pc de BACKUP? Isso seria usando o banco de dados SQL... se puder no Access tb me fala. Desde já agradeço a resposta.
-
Cara, tá tudo igual mais o meu não está funcionando no meu servidor... Será que é algum problema de servidor... hospedo na locaweb... Amanhã tento fazer isto... tenho que sair... valeu pelas resposta!
-
Você modificou essa linha... "<a href="imag/<%=strArq.name%>">imag/<%=strArq.name%></a> " Acho que tem um erro = o nome do arquivo vai ficar imag/nomedoarquivo?
-
Simplismente a página não pode ser vizualizada... "A página não pode ser exibida" Tem como fazer no 2º código?
-
Ainda não está funcionando... o que ocorre? Será que meu código que errado? Aquele 2º código que passei está mostrando todos os arquivos e fazendo o link corretamente... mas quero que apareça somente 10 por página... entende?
-
Cara, sou iniciante e já olhei este código e não consegui transformá-lo para o meu problema... se tiver um tempinho, me ajude por favor! Desde já agradeço a compreensão.
-
Será que alguém pode me responder?
-
Tenho este codigo aí que já mostra os resultados, mas não faz a paginação. Como modifica-lo? <html> <head> <title>Editoras</title> </head> <body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <div align="center"> <strong><font color="#FFFFFF" size="6" face="Verdana, Arial, Helvetica, sans-serif"><strong> </strong></font><font color="#CC0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> <style type="text/css"> <!-- a:link {text-decoration: none;color: #AA0000} a:visited {text-decoration: none;color: #AA0000} a:hover {text-decoration: underline;color: #AA0000} a.barra:link {text-decoration: none;color: #AA0000} a.barra:visited {text-decoration: none;color: #AA0000} a.barra:hover {text-decoration: underline;color: #AA0000} --> </style> </strong></font> <STYLE type="text/css"> <!-- BODY { scrollbar-face-color: #EEEEEE; scrollbar-highlight-color: #EEEEEE; scrollbar-3dlight-color: #AA0000; scrollbar-darkshadow-color: #EEEEEE; scrollbar-shadow-color: #AA0000; scrollbar-arrow-color: #AA0000; scrollbar-track-color: #EEEEEE; } --> </style> <br> </strong> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="10"> <tr> <td height="15" bgcolor="#eeeeee"> <div align="left"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img src="../imagens/setinha.gif" width="9" height="9"> Clique nos links abaixo para fazer o download das listas de preços</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br> </font></strong></div></td> </tr> <tr> <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set principal = FSO.GetFolder("e:\home\logoslivraria\web\intranet\listas_precos\arquivos") Set arquivos = principal.Files 'criando vetor dim nome nome=array() For each arq in arquivos redim preserve nome(Ubound(nome)+1) nome(Ubound(nome)) = arq.name next 'listando arquivos for x = 0 to Ubound(nome) %> <td width="100%" height="15" valign="top" onmouseover="this.style.background='#eeeeee'" onmouseout="this.style.background='#ffffff'"><font color="#CC0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><img src="../imagens/downloads_baixar.gif" alt=">> Download do arquivo" width="16" height="16" border="0"> <a href="arquivos/<%=nome(x)%>" target="_blank"><%=nome(x)%></a> </font></td> </tr> <%next%> </table> <strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font></strong></div> </body> </html>
-
Quanto ao código acima, o que fazer para que ao invés de mostrar figuras mostre arquivos (txt, doc, xls...) e tb mostre uma paginação dos mesmos?
-
Fala galera! Alguém pode me ajudar? O código abaixo é uma galeria de fotos sem precisar de um banco de dados. Gostaria de saber o que é aquele arquivo chamado "Thumbs.db" e pra que serve? Estou tentando fazer, só com arquivos .xls e .doc... Será que tem como fazer?
-
Como consigo ler a data deste arquivo e exibi-lo juntamente com o nome do mesmo?
-
O código que está funcionando é este... Valeu pelas respostas.... <table width="100%" border="0" align="center" cellpadding="0" cellspacing="10"> <tr> <td><div align="left"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img src="../imagens/setinha.gif" width="8" height="11"> Clique nos links abaixo para fazer o download das versões</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br> </font></strong></div></td> </tr> <tr> <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set principal = FSO.GetFolder("e:\home\logoslivraria\web\intranet\versoes\arquivos") Set arquivos = principal.Files 'criando vetor dim nome nome=array() For each arq in arquivos redim preserve nome(Ubound(nome)+1) nome(Ubound(nome)) = arq.name next 'listando arquivos for x = 0 to Ubound(nome) %> <td width="100%" height="15" valign="top" onmouseover="this.style.background='#eeeeee'" onmouseout="this.style.background='#ffffff'"><font color="#CC0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><img src="../imagens/downloads_baixar.gif" alt=">> Download do arquivo" width="16" height="16" border="0"> <a href="arquivos/<%=nome(x)%>"><%=nome(x)%></a> </font></td> </tr> <%next%> </table>
-
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="10"> <tr> Não estou conseguindo, aí vai meu código... Valeu pelas respostas... <td><div align="left"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img src="../imagens/setinha.gif" width="8" height="11"> Clique no link abaixo para fazer o download do arquivo universao.rar</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br> </font></strong></div></td> </tr> <tr> <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set principal = FSO.GetFolder("e:\home\logoslivraria\web\intranet\versoes\arquivos") Set arquivos = principal.Files 'criando vetor dim nome nome=array() For each arq in arquivos redim preserve nome(Ubound(nome)+1) nome(Ubound(nome)) = arq.name next 'listando arquivos for x = 0 to Ubound(nome) %> <% do until x.EOF %> <td height="15" valign="top" onmouseover="this.style.background='#eeeeee'" onmouseout="this.style.background='#ffffff'"><img src="../imagens/downloads_baixar.gif" alt=">> Download do arquivo" width="16" height="16" border="0"> <a href="../intranet/versoes/arquivos/<%=nome(x)%>"><%=nome(x)%></a><br> </td> <% x.MOVENEXT loop %> </tr> <tr> <td height="15" valign="top" onmouseover="this.style.background='#eeeeee'" onmouseout="this.style.background='#ffffff'"> <div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <img src="../imagens/downloads_baixar.gif" alt=">> Download do arquivo" width="16" height="16" border="0"></font></div></td> </tr> </table>
-
Gostaria se fosse possível de colocar cada valor que retornasse em uma célula direferente na tabela de coloquei. Tem como fazer?
-
Olha só, como que eu faço para fazer um link para download desses arquivos?
-
Pode ser sem banco de dados mesmo... É só para disponibilizar alguns arquivos que tenho... Depois tem como fazer o download dos mesmos?
-
Olá galera, Gostaria que alguém me ajudasse e a resolver este problema. Seria assim: teria um diretório em meu servidor que eu colocaria vários arquivos com nomes diferentes a cada dia... eu queria fazer um código para ler estes arquivos e criar um link para download dos mesmos. Será que tem como fazer? Desde já agradeço as respostas. Valeu e t+
-
Valeu pela resposta.. Eu tinha errado... Olhá só que besteira.. Errado ============== string_consulta = "select * from editoras where" & request.Form("inicial") Certo ================ string_consulta = "select * from editoras where inicio ='" & request.Form("inicial") & "' order by nome" Valeu e até mais...
-
Olá galera, Não estou conseguindo fazer um busca do jeito que quero em meu site. Tenho que fazer uma condição que quando eu entro a 1ª vez, não apareça as editoras cadastras, mas sim uma mensagem dizendo que tenho que fazer a busca 1º. Aí depois que fazer a busca, gostaria que essa mensagem saísse e entrasse as editoras com iniciais que escolhi na busca... Desde já agradeço a ajuda.. Ah.. segue o código para facilitar... <% option explicit ' Faz a conexão com a tabela atual dim conexao, registros, string_conexao, string_consulta ' cria instancias dos objetos = connection e recordset set conexao = server.CreateObject("adodb.connection") set registros = server.CreateObject("adodb.recordset") string_conexao = "driver={microsoft access driver (*.mdb)}; DBQ=" string_conexao = string_conexao & server.MapPath("../noticias.mdb") ' abre a conexao com o banco de dados conexao.open string_conexao %> <html> <head> <title>:: Novidades - Fique atento! ::</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head> <body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="100%" border="0" cellspacing="5" cellpadding="0"> <tr> <td><div align="left"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> <img src="../imagens/setinha.gif" width="8" height="11"> Lnks dos sites de algumas editoras. Clique no endereço eletrônico!</font><font color="#CC0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> <style type="text/css"> <!-- a:link {text-decoration: none;color: #AA0000} a:visited {text-decoration: none;color: #AA0000} a:hover {text-decoration: underline;color: #AA0000} a.barra:link {text-decoration: none;color: #AA0000} a.barra:visited {text-decoration: none;color: #AA0000} a.barra:hover {text-decoration: underline;color: #AA0000} --> </style> <STYLE type="text/css"> <!-- BODY { scrollbar-face-color: #EEEEEE; scrollbar-highlight-color: #EEEEEE; scrollbar-3dlight-color: #AA0000; scrollbar-darkshadow-color: #EEEEEE; scrollbar-shadow-color: #AA0000; scrollbar-arrow-color: #AA0000; scrollbar-track-color: #EEEEEE; } --> </style> </strong></font></strong></div></td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="2" bordercolor="#CC0000"> <tr> <td width="50%" valign="top"> <div align="left"> <table width="109%" border="0" align="left" cellpadding="0" cellspacing="1" bordercolor="#eeeeee" bgcolor="#FFFFFF"> <tr valign="top" bgcolor="#FFFFFF"> <td height="18" colspan="2"> <form name="form1" method="post" action="index.asp"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">Selecione a inicial da Editora a ser pesquisada:<strong> </strong> </font> <select name="inicial" id="inicial"> <option value="false">---</option> <option value="a">a</option> <option value="b">b</option> <option value="c">c</option> <option value="d">d</option> <option value="e">e</option> <option value="f">f</option> <option value="g">g</option> <option value="h">h</option> <option value="i">i</option> <option value="j">j</option> <option value="k">k</option> <option value="l">l</option> <option value="m">m</option> <option value="n">n</option> <option value="o">o</option> <option value="p">p</option> <option value="q">q</option> <option value="r">r</option> <option value="s">s</option> <option value="t">t</option> <option value="u">u</option> <option value="v">v</option> <option value="w">w</option> <option value="x">x</option> <option value="y">y</option> <option value="z">z</option> </select> <input type="submit" name="Submit" value="Pesquisar"> </form> </td> </tr> <tr valign="middle" bgcolor="#eeeeee"> <td width="196" height="18"> <div align="left"><strong><font color="#333333" size="1" face="Verdana"> Nome</font></strong></div></td> <td width="375" height="18"><strong><font color="#333333" size="1" face="Verdana"> Endereço eletrônico</font></strong></td> </tr> <% dim valor valor = request.Form("inicial") if valor = false then string_consulta = "select * from editoras where" & request.Form("inicial") ' obtem todos os registros do banco de dados set registros = conexao.execute(string_consulta) else response.end end if do until registros.EOF dim site, nome, inicio site = registros("site") nome = registros("nome") inicio = registros("inicio") %> <tr bgcolor="#eeeeee"> <td height="18" bgcolor="#eeeeee" onMouseOver="this.style.background='#ffffff'" onMouseOut="this.style.background='#eeeeee'"> <div align="left"><font color="#333333" size="1" face="Verdana"><%=nome%></font></div></td> <td height="18" bgcolor="#eeeeee" onMouseOver="this.style.background='#ffffff'" onMouseOut="this.style.background='#eeeeee'"> <div align="left"><font color="#333333" size="1" face="Verdana"><a href="http://<%=site%>"><%=site%></a></font></div> <div align="center"></div></td> </tr> <% registros.MOVENEXT loop %> </table> </div></td> </tr> </table> </body> </html> <% conexao.close set conexao = nothing set registros = nothing %>
-
Olá Galera, Estou precisando de uma ajudinha pois não sei por onde começar. O problema é o seguinte: tenho camaras ao vivo em determinadas áreas da minha empresa e gostaria de acompanhar este vídeos de qualquer lugar que eu estiver. Acho que daria para publicar uma página na web e mostrar esses vídeos lá. Informações: tenho IP fixo, possuo servidor de dados, firowal ...) Será que tem como fazer isso? Se alguém poder me ajudar... Desde já agradeço... Valeu e t+.
-
Olá galera, Gostaria de saber o que preciso fazer para que meu pc, ou melhor, meu IIS rode ASP.net? Uso o windows 2000 e tenho possibilidades de ter o IIS 6.0 que vem com o Windows 2003. Posso instalá-lo normalmente ou tem que ser outra versão? Aguardo respostas... Valeu... T+
-
Valeu pelas respostas... Vou tentar fazer... Achei também uma função em Delphi que dá o mesmo resultado. Dêem uma olhada aí... **************************** function CaixaMista(nNome: String): String; Var tam, pos1, pos2, pos3: Integer; pal, nome: String; begin nome:= ''; tam:= Length(nNome); nNome:= TrimRight(nNome) + ' '; While True do begin pos1:= POS(' ', nNome); If pos1 = 0 then break; pal:= Copy(nNome, 1, pos1); pos2:= POS(pal, 'A - AS - O - OS - DA - DAS - DE - DO - DOS '); pos3:= POS(pal, 'a - as - o - os - da - das - de - do - dos '); //ShowMessage(pal + '-' + Copy(Pal,pos1-1,pos1) + '-' + Copy(pal,1,2) + '-' + (IntToStr(pos3))); If (pos1 > 0) AND ((pos3)=0) then pal:= AnsiUpperCase(pal); If pos2 > 0 then pal:= AnsiLowerCase(pal) Else pal:= Copy(pal, 1, 1) + AnsiLowerCase(Copy(pal, 2, tam)); nome:= nome + pal; Result:= TrimRight(nome); //Result:= Copy(nome, 1, (Length(nome)-1)); nNome:= Copy(nNome, pos1 + 1, tam) end; end; **************************** Valeu e até em breve...
-
Tem como você colocar o link dessa função aí... Tá um pouco difícil de achar... Se não, joga ela aqui fazendo o favor... Valeu..
-
Olá galera, tenho um banco de dados SQL SERVER e seus dados estão gravados em caixa alta. Gostaria de saber se tem algum código ASP que trate esses valores para que na minha página eles apareçam em caixa baixa... Se possível com tratamento = 1ª maiuscula ... Desde já agradeço a atenção...