fdirk

Oi gente. Gostaria de preencher um campo <input type='text' ...> com a descrição da referencia selecionada em um select. A pessoa seleciona uma opção no select e automaticamente o campo descrição é preenchido, como ficaria o código? obs.: utilizo o asp para puxar os dados do bd. Att. FDirk.

Poderiam me dizer como posso puxar as APIS do google chart pelo servidor, no lugar de chamar pelo HTTP do URL??? Gostaria de agilizar a criação dos gráficos, seria um bom começo não precisando buscar na net. Isso seria possível?? obs.: se esse não for o tópicos adequado, peço desculpas e se puderem me trasferir para o correto. Atenciosamente, Flávia Dirk.

Boa Tarde! Gostaria de criar ums função que ao informar 4 valores em um form ele busque o mês e o ano atual (date()) e adicione em uma tabela esses valores separados por trimestre. Se eu passar alguns valores hj (date() = 29/05/2009): Valores - 12,0 (1º Tri) - 15,0 (2º Tri) - 14,5 (3º Tri) - 22,0 (4º Tri) OBS.: o 1º Trimestre sempre inicia em abril (os valores são decididos até março do ano). Adicionar: _Ano_|_Mes_|_Valor_ 2010 | 04 | 12,0 2010 | 05 | 12,0 2010 | 06 | 12,0 2010 | 07 | 15,0 2010 | 08 | 15,0 2010 | 09 | 15,0 2010 | 10 | 14,5 2010 | 11 | 14,5 2010 | 12 | 14,5 2011 | 01 | 22,0 2011 | 02 | 22,0 2011 | 03 | 22,0 Por isso preciso verificar a data atual, se estivessemos em março os valores preencheria como "2009 | 04 | 12,0 ".... Como poderia criar essa função?

Oi Bareta, eu estou usando uma sub dentro <% %> Para chamar o Call funções(...) ... eu teria q passar o sub para function?? Só usei funções em javascript, dá para usar me asp?

Existe o modo "request.querystring("id")" ou "request.form("id")" quando quero me refereciar um valor da página anterior. Como posso fazer isso com um sub? Exemplo: Pag_1.asp tem uma sub q te devolve um 'response.write'. Gostaria de chamar esta mesma sub na Pag_2.asp. Tem como??

Desculpe Jonathan pelo comentário postado. E em relação a sub, eu já havia tentado. Esse código do "mostrar_ppt.asp" antes ficava em uma sub. Mas somente rodava o conteúdo da página quando o código da sub era finalizado. Nada em tempo real. =/ ...

Como posso conseguir comprarar com o nome do arquivo? Ficaria: Set fs=Server.CreateObject("Scripting.FileSystemObject") teste = (fs.FileExists(RAC)) if teste = true then 'se arquivo existe if (nome do arquivo) = idRAC then 'compara o nome do arquivo com o nome do botão ... Com qual termo conseguiria puxar o nome do arquivo. Em relação ao else, estou usando porque tem mais códigos q vão rolar dentro dele, só a imagem q não vai entrar.

Consegui resolver. A tabela tem chave composta utilizei fazendo referência as duas. RSNor.Index = "PrimaryKey" RSNor.Seek "=", ID, DataX Funcionou!! Obrigada assim mesmo pela ajuda MrMALJ!

Oi Pessoal! Estou tendo problemas no atualizar da minha tabela. Estou atualizando a "Tab_2" com os dados da "Tab_1". Na "Tab_1" tenho os seguintes registros: 1 ___ 02/03/2009 ___ 10,00 1 ___ 03/03/2009 ___ 20,00 2 ___ 05/02/2009 ___ 50,00 2 ___ 10/03/2009 ___ 70,00 2 ___ 23/04/2009 ___ 15,00 Na "Tab_2" não tenho nenhum cadastrado (vazia) Rodo o código a baixo: Set DB = CurrentDb status = "PROGRAMADA" strSQL = "SELECT Lib_Total.Num_Operacao, Lib_Total.Dat_Liberacao, Lib_Total.Val_Liberacao_UM " _ & "FROM Lib_Total Where Lib_Total.Sit_Liberacao='" & status & "';" Set RSCop = DB.OpenRecordset(strSQL) Set RSNor = DB.OpenRecordset("Lib_Nova") RSCop.MoveFirst Do While Not RSCop.EOF Conta = RSCop!Num_Operacao 'variáveis para salvar os valores e adaptar a tabela "Lib_Nova" ID = RSCop!Num_Operacao ID = Replace(ID, "/", "") Data = RSCop!Dat_Liberacao Valor = RSCop!Val_Liberacao_UM Valor = Replace(Valor, ",", ".") RSNor.Index = "ID_Projeto" RSNor.Seek "=", ID If RSNor.NoMatch Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Lib_Nova (ID_Operacao, Data_do_Planejamento, Valor_Planejado) " & _ "VALUES ('" & ID & "', #" & Data & "#, " & Valor & ");" DoCmd.SetWarnings True Else Debug.Print ID RSNor.Edit ' O Cliente já está cadastrado na tabela - Inclui RSNor!Data_do_Planejamento = RSCop!Dat_Liberacao RSNor!Valor_Planejado = RSCop!Val_Liberacao_UM RSNor.Update End If RSCop.MoveNext Loop Set RSCop = Nothing Set RSNor = Nothing Resultado: A "Tab_2" ficam esses registros: 1 ___ 03/03/2009 ___ 20,00 2 ___ 23/04/2009 ___ 15,00 Só salva, ou atualiza, os últimos registros de cada código. Gostaria de salvar, ou atualizar, todos. O q está errado no código?!?!?! Alguém saberia?!? Desde já agradeço!

Para esse caso eu saberia, mas no q estou trabalhando o pessoal trabalha com tabela.txt. você pode ter uma idéia melhor através da Function q eu postei. Gostaria de saber como poderia resolver nesse meu caso. Me indicaram usar o "Scripting.Dictionary" porque parece q ele salva por cima da duplicação. Mas não estou sabendo onde devo usá-lo nos códigos q forneci.

Oi Pessoal! Tenho uma tabela onde salvo o IP e o Login do usuário. Problema: Criei um método q salva direitinho o IP e o nome q o usuário preenche na caixa de texto. Só q eu queria somente salvar um vez o mesmo IP. Exemplo, digamos q já tenham esses dados salvos na tabela: IP - Login 00.200.100.100 - Fulano 00.200.100.2 - Beltrano Caso o IP "00.200.100.100" logar novamente no sistema não salve na tabela, somente ignore. Me indicaram usar o "Scripting.Dictionary", só não estou sabendo como. E se verificar q o IP já existe na tabela não permitir q o usuário faça o Login novamente,´aparecendo então a Mensagem de Boas Vinda com o 'login' dele. Código q uso para Login: <% 'Parte do código q ainda não sei como fazer Se já existe na tabela então Response.write ("<h6 class='tit5'>&nbsp; &nbsp; &nbsp; Seja Bem Vindo, " & Login & "!</h6>") Senão if request.querystring("nome") <> "" then Response.write ("<h6 class='tit5'>&nbsp; &nbsp; &nbsp; Seja Bem Vindo, " & request.querystring("nome") & "!</h6>") %> <form method="post" action="logout.asp"> <input type="submit" value=" sair " class="btsubmit"></h6></font> </form> <% else %> <table> <form method="post" action="login.asp"> <div><h6><font color="#0D3F99">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Login: </div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <input size="10" type="text" name="nome">&nbsp; <input type="submit" value=" login " class="btsubmit"></h6></font> </table> </form> <% end if %> Login.asp <html> <body> <!-- #include file="banco/banco.asp" --> <% session("sinal")=true dim dados_aux dim nome nome = "" response.buffer = false 'início do conteúdo do site dados_aux = Limpacampo(Request.Form("nome")) nome = dados_aux lixo = Identidade(nome) response.redirect("default.asp?nome=" & dados_aux) Function Limpacampo(campo) campolimpo = LimpaHTML(campo) campolimpo = Replace(campolimpo, chr(13) & chr(10), "<br>") Limpacampo = campolimpo End Function %> </body> </html> Function: Function Identidade(byval nome) if session("sinal") then arquivo = Server.mappath("/SS/banco/identidade.txt") Dim ObjFSO, ObjFile, ObjStream, IpNum Const forReading = 1, forWriting = 2, forAppending = 8 Const TriDef = -2, TriTrue = -1, TriFalse = 0 Set ObjFSO = CreateObject("Scripting.FileSystemObject") If ObjFSO.FileExists(arquivo) = False Then ObjFSO.CreateTextFile (arquivo) End If Set ObjFile = ObjFSO.GetFile(arquivo) Set ObjStream = ObjFile.OpenAsTextStream(forAppending, TriDef) 'salva IP Usuario = Request.ServerVariables("REMOTE_ADDR") ObjStream.WriteLine Usuario & " " & nome ObjStream.Close end if End Function

Sim, resolveu sim!!! Já está até em uso!!!! =] Obrigada!!

Oi Rafael, Por enquanto o login não serve para restringir nenhuma página. Por enquanto! Serve somente para saber quem logou no site (é gravado quando ocorre o login). Jow, funcionou perfeitamente!!!!!! Obrigada Jow e Rafael pela ajuda!!!!

Eu faço a mesma coisa em relações as minhas páginas. Mas o meu problema está em ocultar e mostar antes e/ou depois do logout. Gostaria q quando o usuário fizesse o login: > Ficassem somente a opção 'Logout' e a mensagem "Seja Bem Vindo, <login>!" ----- ISSO JÁ FUNCIONA > A caixa de texto (onde preencheu com o login) e o botão 'Login' ficassem ocultos. ------ ISSO AINDA não FUNCIONA E quando o usuário fizesse o logout: > A mensagem "Seja Bem Vindo, <login>!" sumisse ----- ISSO JÁ FUNCIONA > A opção 'Logout' ficasse oculta ------ ISSO AINDA não FUNCIONA > A caixa de texto (onde preencheu com o login) e o botão 'Login' voltassem a aparecer OBS.: isso td ocorre no canto da mesma página (principal)

Olá pessoal. Tenho uma página default.asp. Para recepção, criei um logon. Depois de logar aparece o nome da pessoa do lado da frase pronta: "Seja Bem Vindo, <login>" Problema: Gostaria q quando o usuário logasse o botão Login e a caixa de texto ficassem ocultos. E um botão 'sair' ficasse a mostra. Clicando no 'sair' o botão Login e a caixa de texto voltassem, fazendo com q a frase e o botão 'sair' ficassem ocultos. Como posso fazer essa troca?? Desde já agradeço!

Obrigada Jonathan, funcionou perfeitamente!!! =]

Oi pessoal. Tenho q mostrar na página principal a quantidades de pessoas on-line nela. Me pediram para criar uma session em um diretório, q já é usado como padrão na empresa, nomeado como "global.asa", nunca tinha mexido com isso antes. Criei a session dentro dele: Sub Session_OnStart Session.TimeOut = 120 'Minutos Application.Lock Application("Num_usuarios_conectados")= Application("Num_usuarios_conectados") + 1 Application.Unlock End Sub Sub Session_OnEnd Application.Lock Application("Num_usuarios_conectados")= Application("Num_usuarios_conectados") - 1 Application.Unlock End Sub Agora tenho q mostrar o valor da variável em uma página.asp. Como faria para puxar esse valor?!?!?!?!

Alguém saberia onde terei q mudar nesse código para somente mostrar a última atualização?!?! Ou no lugar de salvar em uma tabela seria melhor salvar em uma variável e mostrar nessa página.asp acima?!?! Como faria salvar o conteúdo de uma caixa de texto em uma variável e depois mostrar em outra página?!?!?!

Oi Jonathan, em relação ao caminho do documento eu já tenho pronto ... O problema é pegar a última linha da tabela.txt (último registro) e mostrar na página.asp. Salvar na tabela eu já salvo, e já mostro na página.asp. Mas na página estão aparecendo todos as descrições inseridas, gostaria q aparecesse somente a última preenchida. O que tenho q mudar no meu código para q isso ocorra?? <!-- #include file="dados/dados.asp" --> <h4 class="tit4">Microcrédito</h4> <table width="100%" border="0" class="tbl"> <%'seleciona os projetos aux_limpa_espacos = limpa_espacos("select id,data,nome,descricao from programas;") readsql (aux_limpa_espacos) lixo = le_arquivo (tabela & ".txt", " ") dim aux_fim aux_fim = "" session("sinal")=true For i=1 to dados_size Response.write("<h4 class='tit3'><div align='right'>" & dados(i,2) & "</h4></div>") Response.write("<h4 class='tit3'><div align='center'>" & dados(i,3) & "</h4></div>") Response.write("<p class='alertnoimg' align='center'>" & dados(i,4) & "</p>") Next %> </table> <br> <table> <tr><td valign="botton"><a href="frm_insere_microcredito.asp"><img src="insere.jpg"></a></td></tr> </table> <!-- ************ FIM do Conteudo do site ************ --> </div> </div> </body> </html> obs.: Quando começamos a trabalhar no projeto não tínhamos um BD, com isso criamos em txt mesmo.

Oi!!! Gostaria de saber como posso mostrar a atualização mais recente de uma tabela.txt em uma página.asp?? Exemplo: Quero criar uma página onde o usuário poderá escrever sua idéia em um determinado assunto. Esse conteúdo poderá ser alterado. Mas caso venha ser preenchido outra opnião a última ficaria no lugar da anterior. Resumindo a página só irá mostrar uma opinião, a mais recente.

Vlw pela dica Rafael!!! Gostei dessa idéia!!

não exatamente .... Gostaria para esse caso: function Teste(byval Nomearquivo,byval len_dados,byval mensagem, byval envia) Gostaria q essa última variável (envia) fosse opcional. Como faço?!?

Como posso criar uma variável opcional em uma 'function' em ASP?? Desde já agradeço!

Por enquanto estou usando 2 páginas: Cadastrar a descrição: <!-- #include file="dados/dados.asp" --> <div id="container"> <% 'lê o arquivo todo e acha o registro com id recebido como querystring dim i_achou i_achou=0 if request.querystring("id").count <> 0 then aux_limpa_espacos = limpa_espacos("select id,data,nome,descricao from programas;") readsql (aux_limpa_espacos) lixo = le_arquivo (tabela & ".txt", " ") for i=1 to dados_size if dados(i,1) = request.querystring("id") then i_achou = i end if next end if %> <!-- inicio do conteudo do site --> <p align="center">&nbsp; <div align="center"> <h3 class="tit3" align="center">O que é o programa?</h3> <form action="<% session("sinal")=true 'serve para fazer insert ou update, dependendo de como o form for chamado if request.querystring("id").count = 0 then response.write("insere_programa_executa.asp") else response.write("insere_programa_executa.asp?id=" & request.querystring("id")) end if %>" method="post"> <table border="0" cellpadding="0" cellspacing="0" width="90%"> <tr> <td width="100" valign="top"><h3>Postado por:</h3></td><td valign="botton"><input type="text" name="titulo" size="30" value="<% if request.querystring("id").count <> 0 then response.write(Limpacampo(dados(i_achou,4))) end if %>" class="input"></td> </tr> <tr> <td width="100" valign="top"><h3>Data:</td><td valign="botton"><input type="text" name="data" size="10" value="<% if request.querystring("id").count <> 0 then response.write(Limpacampo(dados(i_achou,2))) end if %>" class="input"></h3> </td> </tr> <tr> <td width="100" valign="top"><h3>Descri&ccedil&atildeo:</td><td valign="botton"> <textarea name="descricao" COLS="70" ROWS="8" class="input"><% if request.querystring("id").count <> 0 then response.write(Limpacampo(dados(i_achou,3))) end if %></textarea> </h3> </td> </tr> <tr> <td> <input type="submit" value="Inserir" class="btsubmit" onclick="form.submit()"> </td> </tr> </table> </form> <!-- ************ FIM do Conteudo do site ************ --> </div> <% Function Limpacampo(campo) campolimpo = Replace(campo, "<br>",chr(13) & chr(10)) Limpacampo = campolimpo End Function %> <!-- ************ FIM do Conteudo do site ************ --> </div> </div> </body> </html> E essa para mostrar: <!-- #include file="dados/dados.asp" --> <h4 class="tit4">Microcrédito</h4> <table width="100%" border="0" class="tbl"> <%'seleciona os projetos aux_limpa_espacos = limpa_espacos("select id,data,nome,descricao from programas;") readsql (aux_limpa_espacos) lixo = le_arquivo (tabela & ".txt", " ") dim aux_fim aux_fim = "" session("sinal")=true For i=1 to dados_size Response.write("<h4 class='tit3'><div align='right'>" & dados(i,2) & "</h4></div>") Response.write("<h4 class='tit3'><div align='center'>" & dados(i,3) & "</h4></div>") Response.write("<p class='alertnoimg' align='center'>" & dados(i,4) & "</p>") Next %> </table> <br> <table> <tr><td valign="botton"> <a href="frm_insere_microcredito.asp"><img src="insere.jpg"></a> </td> </tr> </table> <!-- ************ FIM do Conteudo do site ************ --> </div> </div> </body> </html> Mas elas estão baseados em uma tabela txt. na qual pode colocar mais de uma decrição, gostaria de bloquear para somente um descrição e caso a pessoa altere substitua a atual.

Boa tarde! Tenho uma página chamada 'principal.asp' onde o usuário preenche uma caixa de texto "descrição". Nessa mesma página, acima da caixa de texto, aparece o q foi escrito. Essa descrição pode ser alterada. Gostaria de saber como ficaria o código da página 'principal.asp' para q isso ocorra. E como ficaria o código do botão "inserir"? (será ele que irá inserir o q foi escrito na caixa de texto). Pode ser um modelo básico, só para eu ter uma noção de como ficaria. Obrigada!