
rcnery
Membros-
Total de itens
57 -
Registro em
-
Última visita
Tudo que rcnery postou
-
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.
-
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?
-
To Querendo Renomear O Arquivo De De Foto No Upload
pergunta respondeu ao fernando2dias de rcnery em ASP
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 -
Bom dia, estou precisando colocar um contador de click sem utilizar o redirect. Alguém sabe como fazer? Obrigado
-
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:
-
Amigo, Você tem certeza que tem alguma coisa na tablea do seu bd? Abraço Ricardo
-
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
-
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 %>
-
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
-
Consegui resolver Obrigado a todos pela ajuda código final <% inicio = Cint (MinhaPos+1) s=Mid(MeuString,inicio) Response.Write s %>
-
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>") %>
-
Trocar Imagem Sem Recarregar A Página.
pergunta respondeu ao rcnery de rcnery em Ajax, JavaScript, XML, DOM
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 -
Trocar Imagem Sem Recarregar A Página.
pergunta respondeu ao rcnery de rcnery em Ajax, JavaScript, XML, DOM
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 -
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
-
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
-
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
-
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
-
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
-
Pessoal, Valeu pela força, mais o DW tem pronto essa opção. Abraço Ricardo
-
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?
-
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
-
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
-
Urso, Desculpa a demora para lhe responder, só existe uma variavel chamada resultidexpo. Valeu pela força Ricardo
-
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
-
Urso e Guest, Valeu pela força!!! Abraço Ricardo. PS: Urso pode fechar o tópico!