Ir para conteúdo
Fórum Script Brasil

rcnery

Membros
  • Total de itens

    57
  • Registro em

  • Última visita

Tudo que rcnery postou

  1. rcnery

    Contar Click

    Redirect é quando você abre uma pagina conta o click e depois encminha para o link, Eu só quero criar o contador de clicks para verificar quantas pessoas estão clicando nos banners dos parceiro, o problema é que o adsense não permite alterar nada no código deles, por isso não posso usar o redirect. Obrigado por ajudar.
  2. rcnery

    Contar Click

    Obrigado por tentar me ajudar, o problema é que estou usando o script do adsense e não tem como alterar nada no script e a link não abre em blank, entendeu?
  3. Cyberalex, Estou usando o código que está postado, e ele está fazendo o upload mas não está renomeando. O host tem que dar alguma altorização para utilizar o comando file? Na linha Set File = Upload.Files("foto") retorna sempre como vazio. quando eu tiro o if ele dá erro na linha File.SaveAs caminho & "\" & nome & "." & file.filetype o que pode ser? Grato pela ajuda
  4. rcnery

    Contar Click

    Bom dia, estou precisando colocar um contador de click sem utilizar o redirect. Alguém sabe como fazer? Obrigado
  5. rcnery

    Editor De Texto.

    Estou precisando de um editor de texto free não muito complexo, igual ao do fórum com local para visualiar o código html estaria ótimo, alguém sabe onde eu consigo? Obrigado pela ajuda. Ricardo :lol:
  6. rcnery

    Problemas Recordset

    Amigo, Você tem certeza que tem alguma coisa na tablea do seu bd? Abraço Ricardo
  7. rcnery

    Problemas Recordset

    Amigo Eu tive esse mesmo problema quando fazia paginação e a tabela estava vazia, o que estava me causando o erro era essa linha: RS.AbsolutePage = pg Foi só eu colocar: IF not RS.EOF THEN RS.AbsolutePage = pg END IF Para resolver o problema. Veja s eé esse seu caso. Abraço Ricardo Nery
  8. rcnery

    Senha Na Propria Página

    Amigo, Até tem como você fazer usando um IF <% IF senha <> xxxxx Then %> <script LANGUAGE="JavaScript"> <!-- redirTime = "1000";// 25000 equivale a 25 segundos redirURL = "end pagina invalida" function redirTimer() { self.setTimeout("self.location.href = redirURL;",redirTime); } // --> </script> <BODY onLoad="redirTimer()"> <!-------- Fim --------> <% ELSE %> <script LANGUAGE="JavaScript"> <!-- redirTime = "1000";// 25000 equivale a 25 segundos redirURL = end pagina valida"; function redirTimer() { self.setTimeout("self.location.href = redirURL;",redirTime); } // --> </script> <BODY onLoad="redirTimer()"> <!-------- Fim --------> <% END IF %> Ou utilizar na mesma pagina <% IF senha <> xxxxx Then %> Senha inválida <% Response.End END IF %>
  9. rcnery

    Fso - Endereços Fisicos

    Amigo Eu costumo criar uma pagina separada que determina o endereço físico em uma variável, ai é só alterar essa pagina qunado precisar trocar. Abraços Ricardo Nery
  10. rcnery

    Dividir Texto Em 2 Colunas

    Consegui resolver Obrigado a todos pela ajuda código final <% inicio = Cint (MinhaPos+1) s=Mid(MeuString,inicio) Response.Write s %>
  11. Pessoal, Por favor que solber me ajude! Estou limitando um texto para ser colocado em 2 colunas a primeira parte está certa a segunda q eu não sei como fazer o texto partir de onde parou. Segue abaixo o código q estou usando na primeira parte Agradeço a ajuda de todos. Ricardo Nery <% procuraString = quem_desc ' String onde procurar ProcuraChar = " " ' Procurar por "P" MinhaPos = Instr(540, ProcuraString, ProcuraChar, 1) ' Uma comparação textual a começar em 4 devolve 6 'e isso MeuString = quem_desc IF MinhaPos <> 0 Then Resultado = Left(MeuString, MinhaPos) ' Resultado tem "VBS". ELSE Resultado = quem_desc End If response.write replace(Resultado, vbcrlf,"<br>") %>
  12. Muito obrigado Fabi, Agora vou tentar adaptar esse código ao meu site. Qualquer dúvida eu volto aqui para te perguntar!!! Abraço Ricardo
  13. Fabi, Obrigado pela sua sugestão, o problema é que não entendo nada de java, você poderia me dizer onde encontro esse código?. Abraço Ricardo
  14. Estou montando uma página com opção de várias várias foto, gostaria de saber como eu faço para que ao clicar para ver a próxima foto a mesma seja substituída sem que ocorra o recarregamento da página toda. Tipo a do Mercado livre http://www.mercadolivre.com.br/jm/item?site=MLB&id=19795337 Espero poder contar com a ajuda de todos. Abraço Ricardo
  15. Estou montando uma página com opção de várias várias foto, gostaria de saber como eu faço para que ao clicar para ver a próxima foto a mesma seja substituída sem que ocorra o recarregamento da página toda. Tipo a do Mercado livre http://www.mercadolivre.com.br/jm/item?site=MLB&id=19795337 Espero poder contar com a ajuda de todos. Abraço Ricardo
  16. rcnery

    Editor Em Asp

    Não sei se você já encontrou o que queri, mas acabo de encontrar u editor parecido com o que você deseja. http://www.interactivetools.com/products/htmlarea/ Abraço e boa Sorte
  17. rcnery

    Novamente Problemas Com Data

    Amigo, Obrigado por tentar me ajudar mais acho q você não entendeu meu problema, a Data aparece correta no envio do cDonts e no response.write, o problema esta na hora de ir para o bd ai q eu não sei o que pode estar errado. Se souber de algo que realmente possa me ajudar agradeço muito. Abraço Ricardo
  18. Pessoal, To um baita problema que já tentei de tudo pra resolver mais não consigo! Quando é enviada uma data superior ao dia 12 aparece correta no sistema nacional, (ex 13/04) o problema é quando o dia é menor ou igual a 12 que a data escreve no sistema americano, (ex 04/02) mesmo utilizando o Session.LCID=1046. Código abaixo: <% Session.LCID=1046 referer = Request.ServerVariables("HTTP_REFERER") mData = Date() Response.Write mData %> <!--#include file="banco de dados"--> <table width="560" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="center"> <% SUB errorForm(theError) %> <%=theError %> <form method="post" action="<%=referer%>"> <% FOR EACH item IN Request.Form %> <input name="<%=item%>" type="hidden" value="<%=Server.HTMLEncode( Request.Form( item))%>"> <% NEXT %> <input type="submit" name="Submit" value="Retorna"> </form> <% Response.End END SUB %> </div></td> </tr> <tr> <td> <% FUNCTION fixQuotes( theString ) fixQuotes = REPLACE( theString, "'", "''" ) END FUNCTION ' Get the Form Variables addmsg = TRIM( Request( "addmsg" ) ) addrep = TRIM( Request( "addrep" ) ) msgID = TRIM( Request.Form( "msgID" ) ) forNome = TRIM( Request.Form( "forNome" ) ) forEmail = TRIM( Request.Form( "forEmail" ) ) forTitulo = TRIM( Request.Form( "forTitulo" ) ) forMensagem = TRIM( Request.Form( "forMensagem" ) ) smile = TRIM( Request.Form( "smile" ) ) codigoperg = TRIM( Request.Form( "codigoperg" ) ) reNome = TRIM( Request.Form( "reNome" ) ) reEmail = TRIM( Request.Form( "reEmail" ) ) reTitulo = TRIM( Request.Form( "reTitulo" ) ) reResposta = TRIM( Request.Form( "reResposta" ) ) repsmile = TRIM( Request.Form( "smile" ) ) IF addmsg <> "" THEN ' Assign Default Values IF forNome = "" THEN errorForm " Você esqueceu de colocar seu nome! " END IF IF forEmail = "" THEN errorForm " Você esqueceu de colocar seu e-mail! " END IF IF forTitulo = "" THEN errorForm " Você esqueceu de colocar um titulo na sua mensagem! " END IF IF forMensagem = "" THEN errorForm " Você esqueceu de colocar sua mensagem! " END IF ' Add New Mensagem sqlString = "INSERT INTO forum " &_ "( nome, email, titulo, data, mensagem, smile, contdata ) VALUES ( " &_ " '" & forNome & "', " &_ " '" & forEmail & "', " &_ " '" & forTitulo & "', " &_ " '" & mData & "', " &_ " '" & forMensagem & "', " &_ " '" & smile & "', " &_ " '" & mData & "')" Con.Execute sqlString %> Aguardo ajuda urgente! Obrigado a Todos Ricardo
  19. rcnery

    Combo

    Pessoal, Valeu pela força, mais o DW tem pronto essa opção. Abraço Ricardo
  20. rcnery

    Combo

    Pessoal, como eu faço para que ao ser selecionado um item dentro de um combo a pessoa seja direcionada a pagina relacionada a essa opção, sem ter que clicar em um botão de enviar form?
  21. Italo, Coloca em um if que se não tiver o produto apareça uma opcão para enviar o form todo a uma pagina que inclui o cadastro do produto, nessa pagina você recupera as informações do form em variáveis e após colocar o produto a pessoa é enviada novamente a pagina inicial. ai você chama as variáveis em cada local do form. Entendeu mais ou menos o que tem de ser feito? Abraço
  22. rcnery

    Me Ajudem

    Urso, O problema é realmente com a tabela resultidexpo, removi ela do Where ai funcionou direito, o problema é que preciso dela na condição, o que você sugere para arrumar isso? O que é mais estranho nisso é que somente as colunas definadas como número não alteram no loop, as outras alteram normal. Obrigado pela ajuda. Ricardo
  23. rcnery

    Me Ajudem

    Urso, Desculpa a demora para lhe responder, só existe uma variavel chamada resultidexpo. Valeu pela força Ricardo
  24. rcnery

    Me Ajudem

    Pessoal, Não sie o que esta acontecendo sempre que chamo uma coluna do BD (access) definada como numero para loop a variável assume o primeiro valor e depois não altera mais. O que eu to fazendo errado? ' Open Recordset Set resulRS = Server.CreateObject("ADODB.Recordset") resulRS.ActiveConnection = Con resulRS.Open "Select * FROM exporesul WHERE resultidexpo = '" & idexpo & "' ORDER BY resultidgrupo" While not resulRS.EOF resultiddog = resulRS ("resultiddog") ' Coluna de texto altera normal resultdograca = resulRS ("resultdograca") ' Coluna de texto altera normal resultidgrupo = resulRS ("resultidgrupo") ' Coluna de texto altera normal resultclasse = cInt (resulRS ("resultclasse")) ' Coluna de numero assume o primeiro valor e não altera Response.Write resultiddog & "<br>" Response.Write resultdograca & "<br>" Response.Write resultidgrupo & "<br>" Response.Write resultclasse & "<br>" Set resultiddog = Nothing Set resultdograca = Nothing Set resultidgrupo = Nothing Set resultclasse = Nothing resulRS.Movenext Wend Set resulRS = Nothing
  25. rcnery

    Check Box

    Urso e Guest, Valeu pela força!!! Abraço Ricardo. PS: Urso pode fechar o tópico!
×
×
  • Criar Novo...