Romero Dias

caro amigo Bareta, eu desabilitei o wscript com o comando regsvr32 -u wshom.ocx e registrei de novo : regsvr32 wshom.ocx mas continua dando erro de acesso negado ai eu dei permissão na chave de registro [HKEY_CLASSES_ROOT\wscript.shwll] mas também deu na mesma, o erro continua, teria mais alguma alternativa ? vlw. pela ajuda,

É, eu percebi aqui, tem que levar em consideração os feriados, andreia, teria alguma tabela disponivel na internet com todos os feriados ?? obrigado pela ajuda,

vlw Kuroi, funfo beleza aqui cara, vlw mesmo,

Boa tarde pessoal, é o seguinte, tenho um modulo no meu sistema que necessita pegar o quinto dia util do mês, para pagamento dos funcionarios, a questao é, qual a forma de pegar o quinto dia util do mês corrente? me ajudem ai, obrigado,

cara, esse erro deve ser porq você esta procurando um titulo que seja exatamente o que estiver na variavel comp, testa ai, strTabela = strTabela & " Where titulo like '% "& comp & " %' " vlw

Bom Dia pessoal! Bom, estou com esta função que dispara um ping, mas da um erro de acesso negado, já revisei todas as permissoes de execusao de script e nada, algum tem alguma dica ai ou já conseguil fazer alguma coisa com wscript? Tipo de erro: WshShell.Exec (0x80070005) Acesso negado. /projetos/sistema/intranet/ping.asp, line 8 Public Function Ping(IP) Dim WshShell, oExec Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("ping " & IP) If Not oExec.StdOut.AtEndOfStream Then sText = sText & oExec.StdOut.ReadAll() End If Response.write(sText) End Function Call ping("127.0.0.1") vlw ..

já tentou assim ? Executar = "UPDATE DISTINCTROW imoveis SET tipo = '" & tipo & "', bairro = '" & bairro & "', valor = " & valor & ", finalidade = '" & finalidade & "' WHERE referencia = '" & referencia & "'"

cara, não sei se é a melhor forma, você pode criar uma condição, para a menssagem aparecer na pagina. você faz um painel para editar as menssagems, criando um campo a mais na tabela de menssagens, chamado status, que ira receber o valor = 0 (zero) por padrão, ai as menssagems só vão aparecer se tiver status = 1. espero ter ajudado.. falou

cara, poste seu cod e a string de conexao.. .. falou

Aparentemento o cod esta ok, so estava faltando o * na string delete. Set objConn= Server.CreateObject("ADODB.Connection") objConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&ConexaoNewsletter&";" Set objRS = Server.CreateObject("ADODB.RecordSet") stringSQL = "select * from import order by nome" objRS.open stringSQL,objConn,3,3 %> <% while not objRS.eof objConn.Execute ("DELETE * FROM destinatarios WHERE nome = '" & objRS("nome") & "' and email ='" & objRS("email") &"'") objRS.MoveNext Wend objConn.Execute("DELETE * FROM import") response.redirect "grupos.asp" %> <% objRS.close objConn.close Set objConn = Nothing %> Testa ai falou

cara, assim deve dar certo.. <% if date() = CDate(request.form("data1")) And Time() => "13:30:00" And Time() < "14:30:00" Then response.Redirect("aposta.asp?erro=expired") end if %> falou

Drakonicus, Qual o erro que esta retornando? .. Talves é algum atributo que esta limitanto o tamaho do campo. por exemplo: endereco varchar(20) ai você terá que aumentar o tamanho do atributo. falou

Vlw Kuroi, Problema resolvido, fico assim o cod: <%=replace(objRs("nome"), ""&nome&"" ,"<span style='background-color:yellow;'>"&nome&"</span>") %>

minha duvia é a seguinde. gostaria de exibir os dados assim ond tivesse a palavra tubos ficasse marcado. quando eu imrimo o resultado na tela. Resgistros Econtrados Tubos de alta pressão para construção civil. Canaletas e Tubos Tubus Para Calhas Motores e Tubos de alimentação vlw

Bom dia Pessoal, Bom, tenho um sistema de busca de catálogos, o usuário faz uma busca no banco pela palavra EX.: "tubos", e retorna todos os registro que contem "tubos" na descrição dos catálogos, tenho que identificar na descrição dos catálogos a palavra "tubos" por exemplo: Descrição: Tubos de alta pressão para construção civil. tenho que identificar a string que foi usada para buscar os catálogos, nas descrições retornadas do banco. Agradeço a ajuda,

vlw Bareta, funfo legal aqui, Obrigado,

Boa Noite pessoal, To com um probleminha, tenho uma tabela com 5 mil registros, quando uma usuário faz uma pesquisa que demora a retornar os dados, ele sai clicando em tudo, ou seja, não espera carregar os dados da tabela ai da pau no servidor. Não estou conseguindo fazer um preload.. Ex.: Carregando Tabela, favor esperar......... Fazendo isso o usuário vai esperar ate a tabela ser carregada e não ira clicar em lugar algum. Como eu faço uma mensagem desta em asp? agradeço a ajuda, vlw

Velim tenta assim... <option value="<% if cdate(rs("Data")) => date() then%> <%=rs("tipo")%>" > <%=rs("tipo")%> <%end if%> </option> falou

fantasma.. você poderia postar, qual foi a solução aplicada para resolver o problema? vlw.

^cara.. você já verificou se tem a dll CDONTS instalada ? pois aparentemente o código esta certo. falou

Amigo se for em asp.. na pagina de cadastro, você coloca esse script abaixo, ele ira direcionar para a pagina.asp Response.Redirect "pagina.asp" falou.

Amigo não intendi direito .. voce quer gravar tudo que o usuario submeteu de um formulario e gravar de qual pagina foi a origem do submit?? voce deve usar.. `Paga pegar a pagina pagina = request.servervariables("HTTP_REFERER") falou

Bom amigo.. você pode fazer deste jeito.. teste ai ! <% Option Explicit DIM conexaoDataBase DIM rsTabela,strTabela,codExclui codExclui= cstr(trim(request.QueryString("nome1"))) const cntCaminho = "c:\serieweb\nasp\database\dbcadastro.mdb" Set conexaoDataBase = Server.CreateObject("ADODB.Connection") Set rsTabela = Server.CreateObject("ADODB.Recordset") conexaoDataBase.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho strTabela = " DELETE FROM tabela WHERE nome = ' " & codExclui & " ' " set rsTabela = conexaoDataBase.Execute(strTabela) conexaoDataBase.close set conexaoDataBase=nothing `Linha que mostrará o erro. if err <> o then response.write err.description end if %> você já veficou se o caminho do banco de dados esta correto.. você deu permissao na pasta onde esta o *.mdb falou.. espero ter ajudado.

Bom pessoal, tenho um select que me retorna os registro referente a uma string... strFind = "café" como eu faço para o select procurar por : "cafe" e "café" ou seja, procurar com acento e sem acento.. eu fiz um for que substitui a letra acentuada pela mesma letra sem o acento. Mas assim ele faz a pesquisa duas vezes. teria algum jeito de fazer a pesquisa somente uma vez e me retornar os registro com acento e sem acento.. ou uma forma mais robusta.. vlw..

Amigo, não entendi a sua duvida.. mas da uma pesquisada.. em request.form("").count acredito que possa resolver.. falou