dnlmosilva
-
Total de itens
117 -
Registro em
-
Última visita
Tudo que dnlmosilva postou
-
eu sei que estou apelando mas nas minha funções eu pego data da seguinte forma.... inData = date dia = day(DateSerial(year(inData),month(inData),day(inData))) mes = month(DateSerial(year(inData),month(inData),day(inData))) ano = year(DateSerial(year(inData),month(inData),day(inData))) se você já estiver desesperada o suficiente, tenta ai... []/s Daniel
-
Lembrando que para registrar dlls no servidor é só clicar em INICIAR >> EXECUTAR e digitar o comando: regsvr32 "caminho físico da biblioteca - dll" []/s Daniel
-
cara normalmente quando trabalho com arquivos de excel, eu primeiro monto o arquivo no proprio excel e depois salvo para WEB. Ele tem um tipo de linguagem própria que insere até mesmo no código HTML... Tenta montar uma planilha com senha e salvar para web... As vezes ele mesmo pode dar a dica! []s e qualquer coisa estamos ai... Daniel
-
Você também pode redirecionar para pagina que você quiser, atraves de um código meta. <meta http-equiv="refresh" content="5;URL=pagina_que_quiser.asp"> acho melhor dessa forma, pois não tem problema de conflitar navegadores... isso é uma opinião pessoal! []s Daniel P.S - Esse código vai dentro das tags <head></head>
-
Então cara... Até onde eu conheço, por motivos de segurança da propria Microsoft, não é possível inserir valor ao campo "FILE"... Mas se você descobrir alguma forma de fazer isso, por favor não deixe de postar aqui ok? []s Daniel Renascendo das cinzas...
-
então, tipo seu frames tem nomes certo??? imagina que seja frame1 e frame2 agora imagina que você está se logando no frame1 e quer que se o login obtenha sucesso, o frame2 mude para determinada pasta... no script do frame1 você vai colocar with response .write "<script>" & vbCrLf .write " frame2.location = 'pagina que será redirecionada.';" & vbCrLf .write "</script>" & vbCrLf end with Qualquer dúvida estamos aí []s Daniel Renascendo das cinzas...
-
cara, "Language" é o nome que o programador definiu para essa CLASSE. Vou dividir o codigo em duas partes e comentá-lo para que você entenda-o melhor... <% 'Criando variavel Dim oLang 'Criando objeto para CLASSE Language Set oLang = New Language %> <% 'Criando CLASSE Language Class Language 'Criando função IiF para classe LAnguage Function Iif(Condition, Value1, Value2) If Condition Then Iif = Value1 Else Iif = Value2 End If 'Finalizando função End Function 'Finalizando classe Language End Class %> cara, pelo visto essa função executa uma determinada condição (definida na variavel Condition) e retorna, dependendo do resultado, ou a variavel Value1 ou a variavel Value2. Ele apenas executa uma condição e retorna um valor... para utiliza-lo faça.. DIM obj set obj = new Language response.write obj.Iif(1==2,"um é igual a dois","um é diferente de dois") Qualquer dúvida entre em cotato ok?! Abraços Daniel Retornando das cinzas
-
Olá galera, estou em busca de um bom sistema de prospects. Ele tem que ser simples, útil e principalmente FREE hehehehe.... Será que essa lenda existe ? Abraços Daniel Retornando das cinzas...
-
Bom, levando em consideração que seu banco de dados é BDMuralRecados.mdb e a table contida dentro do mesmo é MuralRecados você tem que criar um código asp que selecione o registro que você quiser desta table e o exclua... Se precisar de alguma material para consulta, entre em contato comigo ok?! []s Daniel
-
porque você não valida em JavaScript e ASP?! É claro que o ASP é mais seguro porque o script não é vizualizado pelo cliente e não está sujeito a alteração, mas o Javascript envia respostas para o cliente imediatas... Seria legal criar regras iniciais em JavaScript e regras secundárias em ASP! Temos que pensar que haverá muitas pessoas tentado burlar nosso sistema, mas a maioria dos usuários querem apenas uma boa navegação! []s Daniel
-
Aí galera requisições de formulário são sempre bem chatos então segue mais uma montada por mim hehehehe... function MontarQuery(campo,valor) for each item in request.QueryString if not item = campo then NovaQuery = NovaQuery & concatena & item & "=" & Request.QueryString(item) else NovaQuery = NovaQuery & concatena & item & "=" & valor end if concatena = "&" next if instr(NovaQuery,campo) = 0 then if NovaQuery = "" then NovaQuery = campo & "=" & valor else NovaQuery = NovaQuery & "&" & campo & "=" & valor end if end if MontarQuery = NovaQuery NovaQuery = null concatena = null end function para chamar essa função faça apenas: - MontarQuery("nome do campo que você deseja alterar","novo valor para o campo") Esta função tem a finalidade de inserir um novo valor a um campo que foi enviado por querystring, caso ele exista, e se ele não existir insere o campo a mesma... Qualquer duvida entre em contato ok?! []s Daniel
-
Beleza então faz variavel = [Número de dias que você deseja somar...] data = cDate([Data do Banco de Dados]) DateSerial(year(data),month(data),day(data)+variavel) Isso vai adicionar x dias a data que você estipular na variavel data... Se não der certo me dá um toque ok?! []s Daniel
-
Não entendi bem a pergunta, mas em JavaScript seria mais ou menos isso... <script> function MostraPergunta(numPergunta) { if(numPergunta==1) { document.frm.resposta.value = "resposta 1" } else if(numPergunta==2) { document.frm.resposta.value = "resposta 2" } else if(numPergunta==3) { document.frm.resposta.value = "resposta 3" } else if(numPergunta=="...") { document.frm.resposta.value = "resposta ..." } else { alert('Não foi localizada resposta para essa pergunta!') } } </script> <form name="frm"> <select name="perguntas" onChange="MostraPergunta(this.value)"> <option value="1">Pergunta 1</option> <option value="2">Pergunta 2</option> <option value="3">Pergunta 3</option> <option value="...">Pergunta ...</option> </select> <input type="text" name="resposta"> </form> Desculpe se eu viajei e qualquer coisa estamos ai. []s Daniel
-
Dê mais detalhes, assim fica difícil de responder... []s Daniel
-
Eu somo assim variavel = [Número de dias que você deseja somar...] DateSerial(year(now),month(now),day(now)+variavel) Isso vai adicionar x dias a data atual... Se não der certo me dá um toque ok?! []s Daniel
-
Cara eu também estou com esse tipo de problema na minha máquina... O que acontece comigo é o seguinte... Bom eu tenho um script dando o mesmo erro. Tem vezes que eu reinicio o computador e ele funciona normalmente, depois ele para de funcionar de novo! Acho que o problema deve ser o Driver que nós estamos usando ou coisa assim... Se descobrir me avisa ok?! Abraços Daniel
-
Galera esse é muito bom para trabalhar com formulários grandes... sub forEach(metodo) valueStr = "for each item in Request." & metodo & vbCrLf _ & " response.write item & "" = Request.Form("""""" & item & """""")<br>"" & vbCrLf" & vbCrLf _ & "next" Execute valueStr valueStr = null end sub Aí para recuperar os dados basta apenas chamar forEach "Form" ou forEach "QueryString" dependendo da ocasião, copiar e colar no código as variáveis já definidas... Fui eu mesmo que fiz hehehehe.... Qualquer dúvida entrem em contato ok?! []s Daniel