Decio

Bom , como prometido, vamos recomeçar de novo : Coloque o seguinte código abaixo no arquivo global.asa , certifique-se que ele esta na raiz da sua aplicação , faça as alterações necessárias na conexão e veja se vai ou não vai... Eu testei em minha máquina e funcionou. Qualquer dúvida ou se não funcionar, você pode entrar em contato diretamente por e-mail (deciohp@yahoo.com.br) para agilizar , e depois de resolvido a gente posta a solução aqui. Abraço. PS: Estou sugerindo por e-mail, porque não vou poder acessar a net constantemente nos próximos dias. Código do Global.ASA: <script language=VBScript RUNAT=Server> Sub Application_OnStart End Sub Sub Session_OnStart Session("start")=time End Sub Sub Session_OnEnd Dim con Set con = Server.CreateObject("ADODB.Connection") con.ConnectionString = "driver={SQL Server};" & _ "server=10.30.30.30;" & _ "database=testes;" & _ "Uid=sa;" & _ "Pwd=;" con.open con.Execute("insert into log(Hora_in,Hora_Out) values ('" & Session("Start") & "','"& time & "')") con.close set con = nothing End Sub </script>

Caro Rockbilly, eu não disse que você não me ajudou, eu apenas comentei o código.Existe situações da consulta que vai funcionar e outras que não vão funcionar.Não vou dar exemplos para não esticar o tópico.Obrigado pela atenção. Moderador, por favor, pode fechar o tópico.

você não falou o erro que esta dando , então vai um palpite: Na sua função FechaDB esta assim: Set conn = nothing : conn.close e deveria ser assim: Set conn.close: set conn = nothing ou seja, primeiro fecha a conexão e depois destroi o objeto. abraços.

Já que você conseguiu fazer alguma coisa em ASP, eu sugiro que você comece a programar em Visual Basic que linguagem é parecida e bem + fácil de aprender do que o C++ e você encontra muita informação a respeito na web.

Caro Rockbilly, eu acredito que vai ter um pequeno problema na busca com acento. Por exemplo se eu digitar a palavra "BATALHÃO" e usar o "Replace(palavracom,"Ã","[A]")" , a palavra vai ficar assim: "BÃTÃLHÃO", e não vai ser encontrada.A dica do nosso amigo urso.louco foi 10, e resolveu meu problema.eu peço para o usuario digitar sem acento, mas sabe como é o usúario não é?você pede uma coisa, ele faz outra e diz que não fez, por isto vou trabalhar melhor em cima deste código. estou dando uma olhada nas regras de acentuação para ver se eu chego a algum acordo.

Pois é urso.louco , pode até fechar o tópico, mas surgiu um pequeno problema... Se fizer a pesquisa com uma palavra sem acento , a consulta retorna as palavras com e sem acento. mas se fizer a mesma pesquisa com mesma palavra só que com acento, retorna somente as palavras com acento. Vou ter que alterar o código para procurar as palavras digitadas com acento também. Mas valeu a dica , só estou relatando para quem for usar o código não achar que funciona 100%

Eu vou fazer alguns testes e vou ver se funciona. Vai demorar um pouco pois estou sem tempo agora .Se ninguém responder antes, me aguarde...

Neste caso bastaria incluir: If (InStr(1, UCase(email), ".COM")) = 0 And InStr(1, UCase(email), ".NET") = 0 then 'erro...etc...etc..etc.. ou simplesmente verificar se existe a arroba e o ponto. Em todo caso é só uma sugestão mais simples.

Tenta esta calc e ignore o"download" escrito errado. Qualquer dia eu corrigo http://geocities.yahoo.com.br/deciohp/dowload/Calc.zip

Se o seu código para atualizar a tabela funciona, não era só definir "mcodigo=1" antes de começar a atualizar? Se você não definir, mcodigo começa com zero.

Uma forma mais simples: email="fulano@yahoo.com.br" If (InStr(1, email, "@")) = 0 Then 'erro If (InStr(1, ucase(email), ".COM")) = 0 Then 'erro Neste caso você esta só verificando se existe o "@" e o ".com" que deve ter em qualque endereço de e-mail.

Cara, não sei se é isto, mas a partir da hora em que você definir uma constante, você não pode mais alterar o seu valor . você deve fazer em forma de váriavel: userDir="PastaDoUsuario" mVarRoot="C:/Inetpub/wwwroot/teste/" & userDir

Caro colega, este post já foi respondido, só para lembrar: http://scriptbrasil.com.br/forum/index.php...7664&hl=cyllwah Surgiu mais alguma dúvida? Qual é a dúvida? Abraço.

É isso mesmo que eu precisava.Nem sabia que podia usar o "replace" desta forma. Valeu. Moderador,pode fechar o tópico.

Estou tentando fazer uma pesquisa por palavras (usando Like ), e gostaria que a consulta retornasse também as palavras com acento, tipo assim: O usuário faz uma busca pela palavra "João" e a consulta retornaria "Joao ou João". Para palavras digitadas com acento, é fácil, eu poderia usar o replace para substituir os caracteres com acento e procurar uma ou outra , mas eu não consegui pensar em como fazer se o usuário digitar sem o acento e eu procurar pela mesma palavras com acento. Alguém tem alguma idéia de como fazer?

pô Eddie_666, você é muito radical. O programa esta inacabado e vai ser preciso corrigir alguma coisa.

Se você quer especificar o erro você tem que fazer a consulta em separado: consulta = "SELECT * FROM tclientes where login='"&login_atual&"' Set sql = conexao.Execute(consulta) if not sql.eof = false then... consulta = "SELECT * FROM tclientes where cpf='"&cpf_atual&"'" Set sql = conexao.Execute(consulta) if not sql.eof = false then...

Eu acredito que o mais correto seria usar o Global.asa na função Session_OnEnd: <% Sub Session_OnEnd Application.Lock 'Seu código aqui Application.UnLock End Sub %> Neste caso os dados serão gravados quando o usuario fechar o browser ou ficar mais do que 'xx' minutos inativo, sem clicar em nada ('xx' é configurado no II's), ou se você criar um link para fechar a sessão.

Coloca o código pra gente ver o que acontece.

Basta usar: ' Notify visitor if account was found. If objRs.EOF Then Response.Write("Falha ao efetuar o Login") Response.Redirect("erro.asp") Else lngMemberID = objRs(1) Response.Write("Login efetuado com sucesso, ID do membro = " & lngMemberID) Response.Redirect("ok.asp") End If

Tenta assim: Constr = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=" & server.mapPath("Rádios.mdb")

Se não me engano você pode selecionar isto na abertura do banco: Vamos tomar como exemplo que você tenha criado um objeto conn: conn.mode = valor valor 1 = somente leitura 2 = apenas para escrita 3 = para leitura\escrita 4 = proibe que outros abram uma connection apenas de leitura etc...

Fiquei comovido , Carolzinha. procure em http://casadosprogramadores.com.br na sessão de downloads que tem um código de jogo da velha em c++ , (mas diz que esta inacabado, mas garante uma nota maior que 0). Caso não exista mais o link , me avise que eu já copiei o arquivo.

Eu acredito que você só vai conseguir usar no VB em forma de dll ou ocx criada em ambiente Windows.Se você criou seu programa em DOS e tentar usar em Windows 2000,NT etc... , provavelmente não vai funcionar. Eu aconselho você desenvolver sua rotina de comunicação usando o mscomm

você pode tentar assim: if len(general_description) >= 18 then general_description = left(general_description,18) end if