waag

oi pessoal uma ajudinha to usando um codigo de login e senha, não esta funcionado, creio que tem alguma coisa faltando na linha da session mas já não sei o que é, porfavor me ajudem. Esse codigo funciona quado eu usava request e o campo determinado, mas agora que eu mudei pra ser session não funciona set conecta=server.CreateObject("adodb.connection") conecta.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("distribuidores_acceso.mdb") set logar=server.CreateObject("adodb.recordset") logar.open "select * from distribuidores_acceso where usuario='"&session("usuario")&"' and senha='"session("senha")&"'", conecta obrigado

sim, acredito que seja isso tambem, porque meu windows esta em portugues. mas vlw pela tentativa abraço

aparece o mesmo erro ainda

aparece um erro Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0408) Caractere inválido coloquei exatamente o que você me passou <% Function base(n1) if isnumeric(n1) then if n1> 0 then iReturn = n1 else iReturn = 0 end if else iReturn = 0 end if base = Format$(FormatNumber(iReturn,5) , "##,##0.00") End Function %> vlw

mesmo assim ele só coloca uma virgula assim 100,00000 eu preciso que ele coloque um ponto antes dos dois ultimos zeros assim 100,000.00 eu coloquei o numero 5 pra imprimir os 5 caracteres "base = formatNumber(iReturn,5)" mas deve haver um geito dele colocar esse ponto

não tem nenhum banco, esta funcionando com puro ASP vlw

Muito obrigado funcionou!!!! abraço

não funcionou nenheum dos exemplos, achei estranho

bom cara, eu troquei de text para memo, creio que suporta muitos caracteres, mas a finalidade disso é que eu queria ver todos os acessos da pessoa pra ter um controle. Se voce sabe como por favor me ajude vlw cara. abraço

meu codigo esta funcionando porem ele imprimi o valor assim 100,00000. Eu preciso que ele coloque um ponto antes dos dois ultimo digitos assim 100,000.00 e deixar no formato dos estados unidos, virgula depois ponto. <% Function base(n1) if isnumeric(n1) then if n1> 0 then iReturn = n1 else iReturn = 0 end if else iReturn = 0 end if base = formatNumber(iReturn,5) End Function %> muito obrigado

oi cara funcionou perfeitamente, porem cada vez que a mesma pessoa entra ele tira a data anterior e coloca a nova, eu preciso que ele deixe todas as datas exemplo: 19/3/2008 18:25:02, 19/3/2008 18:30:02, 23/3/2008 18:25:02 etccc.... muito obrigado

oi pessoal preciso de uma ajuda meu odigo abaixo funciona perfeitamente, porem eu gostaria de fazer mais uma acao mas não esto conseguindo. Eu queria cada cada vez que uma determinada pessoa se logasse automaticamente aparecesse na tabela dessa mesma pessoa a data e a hora que ela entrou, e se ele entrar de novo aparece uma virgula e a data e a hora que ele entrou outra vez e assim sucesivamente com cada usuario. eu criei uma coloca na minha tabela que se chama "data" e quero que aparece a data e a hora nessa coluna. muito obrigado pela ajuda <% set conecta=server.CreateObject("adodb.connection") conecta.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("admin.mdb") set logar=server.CreateObject("adodb.recordset") logar.open "select * from administrador where login='"&request("f_login")&"' and senha='"&request("f_senha")&"'", conecta if logar.eof then response.Redirect("errou.asp") else url = logar("url") session("login")=true session("usuario")=logar("nome") visitas=logar("visita")+1 logar.close set registro=server.CreateObject("adodb.recordset") registro.open "update administrador set visita="&visitas&" where nome='"&session("usuario")&"'" response.redirect (url) end if%>

oi pessoal preciso de uma ajudinha meu codigo abaixo funciona perfeitamente, mas eu queria que ele imprimisse junto com o resultado a virgula, no formato igual nos EUA que é virgula depois ponto. E que imprimisse somente 6 digitos (somente milhar e centena), igual no exemplo: exemplo 150,000 <% Function divi(n1,n2,n3) if isnumeric(n1) And isnumeric(n2) then if n2 > 0 then iReturn = (n1 - n2) * 2 * 100 / n3 else iReturn = 0 end if else iReturn = 0 end if divi = iReturn End Function %> obrigado

oi pessoa, tenho uma pequena duvida, creio que voces podem me ajudar abaixo esta meu codigo e funciona perfeitamente, porem preciso que ele tambem faça automaticamente um acrecimo de uma virgula depois de tres numeros que a pessoa digitou, não se preucupem em fazer funcionar somente numeros porque isso eu já fiz em outro codigo, preciso somente do acrecimo de uma virgula de pois de tres numeros. Caso ajude, no total sempre são 6 digitos. exemplo 150,000 <script language="javascript"> function valida_campo() { <!-- var campo1 = document.form.campo1.value if (campo1==""){ alert("Entre com seu campo1!"); document.form.campo1.focus() return false } } //--> </script> OBRIGADO PELA ATENCAO ABRAÇO

Oi pessoal, meu sistema de busca no banco de dados, funciona perfeitamemte, porem quero fazer uma melhora nele, gostaria de que o usuario só conseguisse ver ou buscar os dados se ele está autorizado, ou seja & "FROM distribuidores " & "WHERE ciudad LIKE" ----- uma linha de codigo dizendo que só busca as informacoes se tiver o numero dele no banco de dados abaixo meu codigo..... muito obrigado pela atencao <% If strSearch <> "" Then strDBPath = Server.MapPath("distribuidores.mdb") Const adUseClient = 3 Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" cnnSearch.CursorLocation = adUseClient strSQL = "SELECT numero, distribuidor, direccion, colonia, codigo, ciudad, estado, telefonos, fax, gerente, dueno, rfc, correo, sitio " _ & "FROM distribuidores " _ & "WHERE ciudad LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "OR numero LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "ORDER BY ciudad;" Set rstSearch = cnnSearch.Execute(strSQL) intContador = rstSearch.RecordCount %>

muito obrigado pela ajuda, funcionou agora perfeitamente abraço

Oi pessoal, uma pequena duvida meu codigo abaixo funciona perfeitamente com sinal de - (menos) + (mais) * (multiplicacao) mais quanto coloco / (divisao) ele não funciona porque? alguém saberia me dizer obrigado <% Function divi(n1,n2) divi = n1 / n2 End Function %> <form method="POST"> <center><input type="text" name="campo1" size="5"> - <input type="text" name="campo2" size="5"></center><br> <center><input type="submit" value="Calcular" name="calc"><br> <input type="text" name="campo3" size="5" value="<%=divi(request("campo1"), request("campo2"))%>"> <br> </center> </form>

Ola pessoal preciso de uma ajudona de voces. por favor me ajuden preciso inserir esses dois campos em uma tabela MS ACCESS, ou seja a pessoa digita no campo e click em enviar, e os dafos ficam gravados na tabela em ACCESS. abaixo esta o codigo, creio que está faltando alguma coisa muito simples nele. a pagina não da nenhum erro quando click, mas eu não sei porque não grava os dados na tabela. porfavor me ajudem <p>&nbsp;</p> <form name="form1" method="get" enctype="multipart/form-data" action="?act=enviar"> <p class="style2" style="word-spacing: 0; margin: 0">Nome</p> <label> <input type="text" name="nombre" id="nombre" /> </label> <p> <input type="text" name="ciudad" id="ciudad" /> </p> <p><span class="style2" style="word-spacing: 0; margin: 0"> <input type="submit" name="Submit" value="Enviar"/> </span></p> </form> <p>&nbsp; </p> <? if ($act == "enviar"){ $pathDb=realpath("tabela.mdb"); $cx = new COM("ADODB.Connection"); $cx->open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=$pathDb"); $rs = new COM("ADODB.RecordSet"); $rs = "insert into ventas (nombre, ciudad) values ('$nombre','$ciudad')"; $rs->close; $cx->close; $rs = null; $cx = null; } ?>