Ir para conteúdo
Fórum Script Brasil

DataSet

Membros
  • Total de itens

    367
  • Registro em

  • Última visita

Tudo que DataSet postou

  1. DataSet

    Busca De Cep

    É realmente funciona. Testei.
  2. DataSet

    Imprimir

    na função do onclick você dá um focus no frame que quer imprimir. Ex: frame.focus(); windows.print(); Se você tiver um botao em um frame, e usar o codigo acima, você vai direcionar o focus para o outro frame e ele vai imprimir. Para voltar a imprimir a frame que contém o botão é necessário usar o codigo acima, mas dando o focus no outro frame. Quaquer coisa tecla aí...
  3. DataSet

    Livro Sobre Asp

    www.apostilando.com pode ajudar... além de ser gratuíto contém bastante dica e exemplos.
  4. DataSet

    Sistema Boleto Bancario

    A parte mais difícil não é ó código ASP para gerar o boleto, e sim a conta corrente, é preciso ter o serviço de carteira que permite o pagamento por boleto. Pra isso a maioria dos bancos te dá duas opções de emissão de boleto. A primeira opção é cobrado uma taxa 2,50 ( + ou -) por boleto pago. Essa opção o banco não sabe da existencia do boleto até o dia em que é feito o pagamento, passando o valor para a sua conta, para cada boleto pago ele desconta da sua conta os 2,50 por isso que repassamos para o cliente essa diferença, então em vez do cliente pagar 35 reais ele pagará 37,50 A outra opção, é que ele cobra 2,50 (+ ou -) por boleto gerado, então você envia um doc dos boletos gerados pra lá, e ele desconta da sua conta esse valor de 2,50 X a quantidade de boleto gerado numa paulada só. A diferença é que nessa opção o banco fica acompanhando o boleto, se ele não for pago, o banco envia o boleto pra protesto e outros serviços a mais. Esolha um banco de sua preferência, e após acertar todos os passos com o seu gerente, entre em contato aqui no forum pra ver se você encontra um boleto do banco escolhido, já que alguns bancos trabalham com codificação diferenciada.
  5. http://forum.imasters.com.br/index.php?showtopic=169983
  6. http://forum.imasters.com.br/index.php?sho...mp;#entry595061
  7. Olá pessoal, segue este exemplo que achei nos scripts prontos aqui do fourm, o código faz o seguinte, a pessoa digita num input e ele faz a busca na combo, deixando selecinado a opção que mais se assemelha ao digitado no input. Eu preciso de algo assim, mas não posso ter um input, a pessoa clica na combo, daí ela fica azul, pois está selecionada, e vai digitando ali mesmo, e ele vai fazendo a pesquisa http://scriptbrasil.com.br/forum/index.php...st&p=207163 Veja esse exemplo acima, como fazer a mesma coisa sem usar input? usando a própria combo ? Valeu
  8. Olá turma.... tenho essa função que ao sair da página ( X ) ele abre uma pop up, então se o usuário não se deslogou, eu mostro uma mensagem pra ele.... eis a função <script language='Javascript'> function leave() { window.open('../meio.asp','','toolbar=no,menubar=no,location=no,height=500,width=500'); } </script> Mas tenho Frames, veja: <html> <head> <title>SWSIS - optimizes realtions 2006</title> <link rel='shortcut icon' href='../paratodos/imagens/swsis/swsis2.ico'> <script language='Javascript'> function leave() { window.open('frontend/meio.asp','','toolbar=no,menubar=no,location=no,height=500,width=500'); } </script> </head> <frameset rows='1,*' frameborder='NO' border='0' framespacing='0'> <frame name='cabecalho' scrolling='no' noresize target='cabPrin' src='#'> <frame name='principal' src='frontend/index.asp'> <noframes> <body> Esta página usa quadros mas seu navegador não aceita quadros. </body> </noframes> </frameset> </html> Acontece que se eu colocar só a função na página, ela roda, mas se eu colocar junto com o restante do código, que é os frames, ela não roda, o exemplo acima mostra o codigo inteiro. Será que tem como fazer funcionar ? Já tentei colocar a função dentro de um dos frames, mas também não roda. Valeu pela ajuda.
  9. O ao clicar em APLICAR, você da um submit na página index.asp, e no select faça o um WHERE onde o codigo da marca seja igual ao valor que você selecionou na combo. EX: Coloque o codigo abaixo dento das tags ASP IF request("id_table") <> "" THEN Set tabMar = Server.CreateObject("ADODB.RecordSet") sql = "SELECT nome1, nome2, nome3 FROM marcas where codMarca = " & request("id_table") tabMar.Open sql, conSTR WHILE not tabMar.EOF respons.write .... tabMar.MoveNext WEND END IF id_tabl é o nome da sua combo. desse jeito que você fez não dá : <a href="index7.asp?Fmarca="&id_table.selected>APLICAR</a> Troque por: <button name=enviar onclick='Form1.submit()'>Enviar</button> (Coloque dentro do seu FORM) Troque os nomes do campos do SELECT de acordo com sua tabela, qualquer coisa tecla aí...
  10. DataSet

    Banco De Dados Em Asp

    Set tabPal = Server.CreateObject("ADODB.RecordSet") sql = "SELECT nomPal FROM tabela WHERE nomPal like '%"&request("strBusca")&"%'" tabPal.Open sql, conSTR WHILE not tabPal.EOF response.write "<tr><td>"&tabPal("nomPal")&"</td></tr>" tabPal.MoveNext WEND
  11. DataSet

    Registros Lado A Lado

    http://scriptbrasil.com.br/forum/index.php?showtopic=79383 Troque a variável coluna, e você terá uma listagem lado a lado conforme a quantidade informada, na variável Talves tenha um jeito melhor de se fazer isso... mas funciona.
  12. Ok Andréia.. me diga... então usando dessa maneira, com css, não importa qual as margens estão configuradas no browser, ele vai imprimir do jeito que eu colocar no css ? É isso ?
  13. Meu email: dataset@swsis.com.br Me manda esse executavel que arruma ao iniciar o windows. Andreia... como faço com CSS ? me dá uma ajuda...
  14. Olá... Eu tenho um sitema para uma escola, e eles imprimem diploma de conclusão do curso. Esse sistema é acessado em 4 filiais, e estão reclamando constantemente do desperdício de folha, é uma folha timbrada da empresa, etc... e tal... A impressao sai desalinhada, as vezes a margem direita fica maior que a esquerda, e vise e versa com a superior e inferior. Eles mudam as configurações de página do IE e esquecem de colocar novamente nas margens corretas, e o pior, além de trocarem, as vezes a secretária de uma das filiais não sabe arrumar... daí eles não imprimem mas nada... Como eu posso resolver esse problema da impressão, alguém tem uma ideia ?
  15. Crie um arquivo chamado RandomImage.inc Conteúdo desse arquivo: <% Function RandomImage(strPath,strDefault) On Error Resume Next Randomize Timer Dim objFSO, objFolder, objFiles, objFile Dim strFiles, strImages, strPhysical, strFile Const strValid = ".gif.jpg.png" If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47) strPhysical = Server.MapPath(strPath) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysical) Set objFiles = objFolder.Files For Each objFile in objFiles strFile = LCase(objFile.Name) If Instr(strValid,Right(strFile,4)) Then strFiles = strFiles & strFile & vbTab End If Next strImages = Split(strFiles,vbTab) If UBound(strImages) > 1 Then RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages))) Else RandomImage = strDefault End If End Function %> Crie um arquivo chamado randomimages.asp Conteúdo desse arquivo: <% @Language="VBScript" %> <% Option Explicit %> <html> <head> <!--#include virtual="/includes/RandomImage.inc"--> </head> <body> <div align="center"><center> <table border="1"> <tr> <td bgcolor="#ffffff"> <img src="<%=RandomImage("/images/","/images/default.gif")%>"> </td> </tr> </table> </center></div> </body> </html> Arrume o include virtual de acordo com a estrutura das suas pastas aí Se você passar o primeiro paramentro na chamada da função, ele vai mostrar as imagem ramdomicamente, se ele não achar nenhuma imagem na pasta, ele mostra a imagem referente ao segundo parametro. Qualquer coisa tecla aí
  16. Para pegar as fotos, você pode gravar o caminho dela numa tabela do banco, daí fazendo um select nessa coluna, você vai ter response.write "<td><img src="&tabFot("nomCam")&"></td>" Faça o select para pegar o caminho da foto e use o comando 'random' para randomizar e pegar aleatoriamente.
  17. Troca por esse codigo e roda, como não testei aqui, pode ser que apareça pequenos erros. Se der algum erro, tecla aí. <% set Conn = server.createobject("adodb.connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="mechaangel/database/speed_search.mdb;" set Rec = server.CreateObject("ADODB.Recordset") strSQL = "SELECT url, decricao FROM search WHERE url LIKE '%"&Request("search")&"%' OR descricao LIKE '%"&Request("search")&"%'" Rec.Open strSQL,Conn IF not Rec.EOF THEN while not Rec.eof response.write Rec("url")%> & "<br>" & Rec("descricao") Rec.movenext WEND END IF Rec.close set Rec = nothing set Conn = nothing %>
  18. DataSet

    Sistema De Login

    Eu acho que neste caso você está acessando a intranet dessa empresa. Aqui onde eu trabalho tem um caso assim. Se eu acessar de casa, vai abrir a caixa de login e senha, como essa que abre ao tentar acessar ftp pelo windows explorer. Eu imagino que no iis, exista a restrição para abrir a pagina asp com usuário atenticado.
  19. DataSet

    Iniciante Em Asp

    Eu uso o TextPad, por enquanto ele está me sendo util... já andei vendo o visual studio.net pra programar em asp, tem uma versão gratuita na net... ele é muito bom também.
  20. DataSet

    Duvida Form

    O erro é que o servidor não dá suporte para o mailmsg.Host Provavelmente ele não tem esse componente instalado ou ele não está rodando. Entre em contato com o suporte pra ver quais componentes de envio de email eles tem instalado no component services.
  21. http://www.webwizguide.info/asp/sample_scr...wiz_CAPTCHA.asp
  22. DataSet

    Imprimir

    Na janela internet explorer vai em Ferramentas => Opções => Avançado => Procura por Impressora e deixe a caixinha imprimir caixa de fundo... Dá OK e manda imprimir agora, se não der resultado, feche a janela, abra uma outra e imprima... Qualquer coisa, tecla aí...
  23. DataSet

    Dominio.net

    acessa www.100br.com
  24. DataSet

    Que Banco De Dados Usar?

    SQL SERVER é excelente, já passei por uma experiência trágica de ter que trocar de banco. Tive que alterar um monte de códigos, refazer a modelagem e tudo mais... foram 25 dias penosos... Por isso pensar e discutir o projeto com a equipe de desenvolvimento antes é muito importante, porque depois de desenvolvido e implantado, é complicado fazer migrações. PostgreSQL e SQL SERVER são recomendados para projetos grandes.
  25. DataSet

    Retornar Erro

    SELECT login, url, FROM tabela WHERE login = '" & request("login") & "'" OR url = '"&request("url")&"'" IF not tabSel.EOF THEN IF tabSel("login") <> "" THEN auxLogin = tabSel("login") END IF IF tabSel("url") <> "" THEN auxURL = tabSel("url") END IF END IF tabSel.Close Set tabSel = Nothing IF auxLogin <> "" OR auxURL <> "" THEN response.write _ "Os dados abaixo já estão gravados no banco: " & _ auxLogin & "<br>" & _ auxUF & "<br>" & __ "Por motivo de segurança, não é permitido ter dois logins cadastrados. Redigite um login diferente." ELSE INSERT INTO tabela SET ... END IF
×
×
  • Criar Novo...