Ir para conteúdo
Fórum Script Brasil

Henderson

Membros
  • Total de itens

    362
  • Registro em

  • Última visita

Tudo que Henderson postou

  1. Henderson

    Banner Rotativo

    Já vi esse tópico. Usando ele a situação ficou pior. Ele pegava sempre o mesmo. Aí ele ainda dá uma "randomizada" nos banners. Com aquele select randomico era o mesmo pra cada carregada na página. E outra, eu uso mysql. E eu não entendi como colocar tudo num iframe só. Ó, o nome desse arquivo que eu postei é PUBLICIDADE.ASP. Aí na página que mostra os banners, tá esse código assim ó: <iframe src="http://www.seusucesso.info/publicidade.asp?area=26" width="120" height="60" scrolling="no" frameborder="0"></iframe> <br> <iframe src="http://www.seusucesso.info/publicidade.asp?area=26" width="120" height="60" scrolling="no" frameborder="0"></iframe> <br> <iframe src="http://www.seusucesso.info/publicidade.asp?area=26" width="120" height="60" scrolling="no" frameborder="0"></iframe> <br> <iframe src="http://www.seusucesso.info/publicidade.asp?area=26" width="120" height="60" scrolling="no" frameborder="0"></iframe> <br> <iframe src="http://www.seusucesso.info/publicidade.asp?area=26" width="120" height="60" scrolling="no" frameborder="0"></iframe> pra aparecerem os 4 banners. Pode ver aqui ó www.seusucesso.info O que eu faço pra resolver?
  2. Henderson

    Contador De Visualização

    Se desse jeito começo a contar, você tem que ver essa session("on") ela deve estar com o valor TRUE, porque aí não cai na execução do sql, por isso não conta Pra que você fez esse if? Coloca um response.write Session("on") pra ver o valor armazenado!
  3. ah você está colocando no action mailto:email@provedor.com? assim vai abrir o outlook mesmo. Você precisa utilizar algum componente ASP para enviar emails. Cdonts, Cdosys, ASPMail,.... Tem vários vê com teu servidor qual ele dá suporte para poder saber como fazer a programação para enviar o email.
  4. Henderson

    Contador De Visualização

    Você não precisa fazer um SELECT para depois fazer um UPDATE. Pode fazer assim direto ó: <% SET Con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("arvore.mdb") IF NOT Session("on") = TRUE THEN Con.Execute("UPDATE prlist SET cliques= cliques +1 WHERE id = "&id&"") 'ACIMA, A VARIÁVEL ID DEVE TER O NUMERO DA ID QUE DEVE SER ATUALIZADO O NÚMERO DE CLIQUES Session("on") = TRUE Session.TimeOut = 10 END IF set conta_visitas = Con.Execute("SELECT * FROM prlist WHERE id = "&id&"") Response.Write " "&conta_visitas("cliques") %> Na linha comentada, tem a variável ID. Ali vai ser a ID alterada. Esse valor você deve passar por um FORM, ou QUERYSTRING, você vê a melhor forma.
  5. Henderson

    Banner Rotativo

    aí, beleza? Assim, tenho um sistema de banner rotativo. Aí por exemplo, tem vários 120x60 cadastrados. Eu uso um iframe dessa página: strSQL = "SELECT * FROM banner WHERE exibicoes < maxexibicoes AND cliques < maxcliques" strSQL = strSQL & " AND estado = '"&um&"' AND area = '"&area&"'" strSQL = strSQL & " OR exibicoes < maxexibicoes AND maxcliques = "&zero&"" strSQL = strSQL & " AND estado = '"&um&"' AND area = '"&area&"'" strSQL = strSQL & " OR maxexibicoes = "&zero&" AND cliques < maxcliques " strSQL = strSQL & " AND estado = '"&um&"' AND area = '"&area&"'" strSQL = strSQL & " OR maxexibicoes = "&zero&" AND maxcliques = "&zero&" " strSQL = strSQL & " AND estado = '"&um&"' AND area = '"&area&"'" Set rs = conexao.Execute(strSQL) If rs.EOF Then display = defalte Else While not rs.EOF intCounter = intCounter & rs("id") & "," rs.MoveNext Wend Randomize ArraySplit = Split(Left(intCounter,Len(intCounter)-1),",") Randomize x = CInt(Rnd()*Ubound(ArraySplit)) intID = ArraySplit(x) sql = "SELECT * FROM banner WHERE id = "&intID set rs2 = conexao.Execute(sql) atualiza = "UPDATE banner SET exibicoes = exibicoes + 1 WHERE id = "&intID conexao.Execute(atualiza) HTML = rs2("html") If HTML = "vazio" then sqlarea = "SELECT * FROM areasbanner WHERE id = "&rs2("area") set rsarea = conexao.Execute(sqlarea) display = "<a href='clique.asp?id="&rs2("id")&"' target='blank'><img src='"&rs2("imagem")&"' border = '0' height='"&rsarea("altura")&"' width='"&rsarea("largura")&"'></a>" Else display = HTML End If End If 'MOSTRA O BANNER Response.write "<html>" Response.write "<body marginheight='0' marginwidth='0' leftmargin='0' topmargin='0'>" Response.write "<center>" Response.write display Response.write "</center>" Response.write "</body>" Response.write "</html>" pra mostrar o banner Só que assim, tipo na barra lateral, tem 5 vezes o mesmo iframe pra essa página então, várias vezes ele pega muito repetido o banner tipo, de 5, ele pega 4 iguais e um diferente sendo que no momento, tem 5 cadastrados no banco O que que eu faço? Tem algo que eu possa fazer pra evitar essa repetição? E outra coisa Meu site, tudo o que estava escrito, aparecia normal. Mas eu troquei de servidor, não sei se tem algo a ver, ou se é do meu pc mesmo. E agora, as palavras com acento aparecem com ? e o Ç também. Que eu faço? Tem algo que eu coloque no código pra evitar isso? Att
  6. Henderson

    Select

    não necessariamente Romero. não dá pra se prever o que os usuários vão fazer é fogo sabe o que faz? ao invés de escrever FECHAR no botão, escreve ENVIAR, que aí o usuário não vai achar que é só fechar a janela e acabou. acho que isso resolve né mesmo porque, se ele fechar ele vai ver que não foi o dado direito pro formulário e vai fazer tudo de novo
  7. Henderson

    Aprender

    aí galera, beleza? Seguinte NUNCA trabalhei com SQL Server. Não sei nem o que é direito, não sei nada. O que faço de programação é php com mysql e asp com access e principalmente asp com mysql. Mas eu to precisando aprender SQL Server Por onde começar? Preciso desenvolver um sistema, até que simples. Inserir, remover e alterar algumas coisas num banco de dados Mas não sei por onde começar, me deêm uma luz?
  8. Henderson

    Invision Usado Aqui

    aí galera, beleza? Assim, eu não entendo porcaria nenhuma de invision. Nunca instalei nenhuma vez. Já usei phpBB várias vezes, mas invision nunca. E vi essa versão aqui do fórum, ela é bem legal e tal. Aí eu queria saber se é uma versão modificada por vocês, ou se tem na net pra baxa. Se tiver, alguém poderia me passar os links? Do invision e da modificação, se for assim que funciona né Não sei nada, hehe Valeu aí Abraço
  9. Não sei se já tem aqui, mas eu fiz um bem simples, com uma página só de programação. Aí tem até assim, uma página com dois iframes, um tem o form e o outro tem os comentários. Assim que o usuário manda o comentário, ele já atualiza a página dos comentários. Achei que ficou legal, aí to postando aqui. O banco de dados deve ter o nome de "bd.mdb" Uma tabela com o nome "tabela" E os campos: id -> autonumeração nome -> texto email -> texto comentario -> texto Uma página de conexao (conexao.asp) <% caminho = Server.MapPath("bd.mdb") StringdeConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho set conexao = Server.CreateObject("ADODB.Connection") conexao.Open(StringdeConexao) %> A página do mural (mural.asp) <%@LANGUAGE="vb script:parent.mostra.location='mural.asp?mostra'"">Voltar</a></center></span>" Case 1 display = "<center><span class='texto'>Preencha todos os campos<br>" display = display & "<a href='java script:history.go(-1)'>Voltar</a></center></span>" Case 2 display = "<center><span class='texto'>O campo mensagem deve ter no máximo 255 caracteres<br>" display = display & "<a href='java script:history.go(-1)'>Voltar</a></center></span>" End Select Response.write display Case "mostra" sql = "SELECT * FROM tabela" Set rs = conexao.Execute(sql) While Not rs.EOF %> <a href="mailto:<%=rs("email")%>"><%=rs("nome")%></a><span class="texto">: <%=rs("mensagem")%></span><br> <% rs.MoveNext Wend End Select End If %> </body> </html> Aí depois, pra mostrar a página com os comentários e o form na mesma página, fiz isso aqui: <html> <head> <title>Mural de Recados</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <div align="center"> <table width="250" height="10" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC"> <tr> <td><div align="center"> <iframe name="mostra" id="mostra" scrolling="auto" src="mural.asp?mostra" height="200" width="250" frameborder="0"></iframe> </div></td> </tr> <tr> <td height="20"> <div align="center"> <iframe name="form" id="form" scrolling="auto" src="mural.asp" height="200" width="250" frameborder="0"></iframe> </div></td> </tr> </table> </div> </body> </html> Uma página com um css básico pra ficar um poco mais bunito, hehe (estilo.css) .caixa { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; border: thin solid #000000; } .botao { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; background-color: #FFFFFF; border: thin solid #000000; } a:link { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #0000FF; } a:visited { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #0000FF; } a:hover { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #0000FF; } a:active { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #0000FF; } .texto { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; }
  10. Henderson

    Filtrando Dados

    usa AND no sql SELECT * FROM Clientes WHERE Nome LIKE 'D*' AND Cidade LIKE 'S*' e por aí vai como num If
  11. Henderson

    Asp+flash

    Como instalar o Cdonts Como instalar a DLL? coloque o arquivo na pasta System32 dentro do windows e digite o seguinte no executar no menu iniciar: regsvr32 cdonts.dll o link da dll é: http://crt.doce.lsu.edu/CRT-HTML-Class/cdonts.dll Essa dica eu tirei do tópico http://scriptbrasil.com.br/forum/index.php...19597&hl=cdonts, aberto por victor, e respondido por bicicleta Mas achei interessante salientar! ate mais! Peguei de um post do dark0 Enviar email com Cdonts: http://scriptbrasil.com.br/forum/index.php?showtopic=34563 veja se com isso consegue o que quer abraço
  12. Henderson

    Erro Conecção

    mas mesmo você rodando localmente, você pode trabalhar com um banco de dados que está em algum servidor e aí não vai dar esse erro, creio eu né! e você naõ vai precisar instalar nada e coisa e tal
  13. Junto com asp né Porque se a pessoa executar o form de outra página vai conseguir passar por todas as barreiras que o javascript faz
  14. Henderson

    Asp+flash

    Não, php não é componente, é um tipo de linguagem. Verifique qual componente de email o servidor da suporte Alguns exemplos: Cdosys, Cdonts, ASPMail... Veja no site da empresa de hospedagem que deve ter uma lista com os componentes oferecidos.
  15. Não entendi porque você postou esse segundo código Fiz a paginação usando aquele primeiro que você postou Mas não testei, não estou em casa Se tiver algum erro você fala. Veja se é isso o que queria Se quizer alterar a quantidade de registros por página é só alterar a variável PORPAGINA <% sqlstmt = "SELECT * FROM noticias ORDER BY data, id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, Dados, 3, 3 cont = 0 while not rs.EOF cont = cont + 1 porpagina = 1 atual = Request.QueryString("pagina") if atual = "" then atual = 1 end if ate = atual * porpagina de = ate - porpagina If cont <= ate AND cont > de then date1 = rs("data") id = rs("ID") name1 = rs("titulo") link = date1 description = name1 %> <tr> <td height="2" valign="top"><p><font face="Geneva, Arial, Helvetica, san-serif" size="1" class="home"><span class="home"><img src="imagens/<%=rs("foto")%>" border="0" align="left" hspace="8" vspace="2"> <% =link %> -- <% =description%> </span></font> </p> </tr> <tr> <% End if rs.movenext wend paginaa = Cstr(cont / porpagina) Function AR(num Dim n1 n1 = CStr(num) if InStr(1,n1,".",1) > 0 Or InStr(1,n1,",",1) > 0 Then ARR = Fix(n1) + 1 else ARR = Fix(n1) end if End Function paginas = ARR(paginaa) If cint(atual) = cint(paginas) then proxima = "" separador = "" Else separador = "&nbsp;|&nbsp;" proxima = "<a href='?pagina="&atual + 1&"'>Próxima&nbsp;&gt;&gt;</a>" End if If atual = 1 then anterior = "" separador = "" Else separador = "&nbsp;|&nbsp;" anterior = "<a href='?pagina="&atual - 1&"'>&lt;&lt;&nbsp;Anterior</a>" End if %> <% If paginas <> 1 then %> Página <%=atual%> de <%=paginas%> <% Response.write anterior&separador&proxima %> <% End if %>
  16. Você não pode mudar as configurações de DNS no registro.br e deixar os dois domínios abrindo o site normalmente? Ou tem que ser assim, se abrir em um, redireciona pro outro? Se for assim, é mais fácil você só fazer uma única página nesse domínio com um Response.redirect pra outra página, ou mais simples ainda, criando um redirecionamento em HTML mesmo.
  17. olha aí http://www.imasters.com.br/artigo.php?cn=2996&cc=78 acho que é isso né? mas isso é javascrit abraço.
  18. Henderson

    Problema Com Aspas

    é, pensei nisso mas não queria ter que fazer mas vai ser o jeito =\
  19. Henderson

    Problema Com Aspas

    Eu não queria ter que fazer isso, porque no são muitas páginas que mostram o que está no banco e eu teria que fazer essa alteração em todas. Pelo jeito, essa vai ser a única forma! E outra, desse jeito, ele vai mudar TODAS as aspas duplas para simples, mas eu não quero isso Porque podem ter outras aspas duplas que não devem ser trocadas.
  20. Henderson

    Problema Com Aspas

    Olá É o seguinte. Eu tenho um sistema, onde se adiciona artigos e tal. Pra adicionar esses artigos tem um editor HTML, o FCKEditor. E ele usa as vezes, algumas coisas em javascript, como por exemplo dá pra fazer um link abrir em um popup, e ele faz isso em javascript. No javascript, tem coisas com aspas simples, que nem: java script:void(window.open('/upload/panfleto.JPG','Imagem','resizable=yes,location=no,menubar=no,scrollbars=no,status=no,toolbar=no,fullscreen=no,dependent=no,width=723,height=491')) Só que, quando eu envio, dá erro no mysql por causa das aspas simples. E percebi que é culpa delas, porque se eu coloco Replace(variavel,"'","""") Ele pára com o erro Mas aí também não funciona o javascript Que eu faço? Aproveitando o tópico, sei que já deve ter no fórum, mas se puderem, me respondam aquele esquema pra arrumar a data pro formato do brasil. Um troço de LCID, sei lá. Sabem do que eu do falando né? Que coloca a data no formato dd/mm/aaaa Se puderem, me ajuuuudem!
  21. Henderson

    Problema Com Servidor

    no libihost funciona normal no meu pc ele funciona só lá que não funcionava mas eu acho que era do servidor mesmo porque era estranho, o painel era cpanel rodava apache e o cara falou que rodava asp não sei mas agora to com outro servidor valeu aí!
  22. Henderson

    Problema Com Servidor

    se eu tiro a linha ele abre a página como se fosse um documento de texto tipo um .txt mostra o código todo não sei, eles não conseguiram resolver, mudei de servidor mas estou com problemas nesse também de dns agora! ¬¬ É fogo, não dá pra pegar esses host pequenos! Mas valeu aí! Abraço
  23. Henderson

    Asp+flash

    você tem que falar qual o componente está usando para enviar o email. bom, como não está dando erro nenhum, queé dizer que o componente usado está instalado. Então, poste o código que envia o email, pra poder saber qual o componente usado.
  24. eu não sei mas eu acho que o qe tá causando o problema, não é essa parte do código não aí não tem nada demais que vá fazer ficar pulando linha tenta ver naquele arquivo que ele inclui, se não tem nada ou posta ele aí
×
×
  • Criar Novo...