ju-rezende
-
Total de itens
79 -
Registro em
-
Última visita
Tudo que ju-rezende postou
-
No banco o campo telefone é numero telfax é numero vencimento é data abreviada e valor é moeda......
-
O pior é tosos esses campos existem.
-
Desculpe mesmo, valeu pelo toque, mas agora deu outro erro Microsoft JET Database Engine (0x80040E10) Nenhum valor foi fornecido para um ou mais parâmetros necessários. /tulio/Adicionar.asp, line 59 codigo insere = "insert into clientes(empresa,Endereco,Bairro,Cidade,Telefone, TelFax, Proprietario, Plano, Vencimento, EmDia, Categoria, Valor, Site) Values ('" & vempresa & "','" & vendereco & "','" & vbairro & "','" & vcidade & "', " & vtelefone & "," & vtelfax & ", '" & vproprietario & "', '" & vplano & "'," & vvencimento & ",'" & vemdia & "','" & vcategoria & "'," & vvalor & ",'" & vsite & "')" call AbreConexao() Linha 59 set recset = con.execute(insere) response.write "Dados Cadastrados com Sucesso!!!" Call FechaConexao()%>
-
Valeu mesmo erre nas concatenizaçoes, só q agora da outo erro Erro de tempo de execução do Microsoft VBScript (0x800A01A8) Objeto necessário: '' /tulio/Adicionar.asp, line 52 meu codigo vempresa=trim(request.form ("Empresa")) vendereco=trim(request.form("Endereco")) vbairro=trim(request.form("Bairro")) vcidade=trim(request.form("Cidade")) vtelefone=trim(replace(request.form("Telefone"),"'", "")) vtelfax=replace(request.form("Telfax"),"'","") vproprietario=trim(request.form("Prorietario")) vplano=trim(request.form("Plano")) vvencimento=isdate(request.form("vencimento")) vemdia=trim(request.form("EmDia")) vcategoria=trim(request.form("Categoria")) LINHA 52 vvalor=isnumeric(reques.form("Valor")) vsite=trim(request.form("Site")) insere = "insert into clientes(empresa,Endereco,Bairro,Cidade,Telefone, TelFax, Proprietario, Plano, Vencimento, EmDia, Categoria, Valor, Site) Values ('" & vempresa & "','" & vendereco & "','" & vbairro & "','" & vcidade & "', " & vtelefone & "," & vtelfax & ", '" & vproprietario & "', '" & vplano & "'," & vvencimento & ",'" & vemdia & "','" & vcategoria & "'," & vvalor & ",'" & vsite & "')"
-
Olá pessoal estou tentado usoa o insert mas ta dando o seguinte erro Erro de compilação do Microsoft VBScript (0x800A0401) Fim da instrução esperado /tulio/Adicionar.asp, line 56, column 118 insere = "insert into clientes(empresa) Values ('" & vempresa & "','" & vendereco & "','" & vbairro & "','" & vcidade "', " & vtelefone & "," & vtelfax & ", '" & vproprietario & "', '" & vplano "'," & vvencimento & ",'" & vemdia & "','" & vcategoria & "'," & vvalor & ",'" & vsite"')" ---------------------------------------------------------------------------------------------------------------------^ Meu codigo dim con dim rs dim vempresa dim vendereco dim vbairro dim vcidade dim vtelefone dim vtelfax dim vproprietario dim vplano dim vencimento dim vemdia dim vcategoria dim valor dim vsite dim vdelet dim sql dim insere dim recset vempresa=trim(request.form ("Empresa")) vendereco=trim(request.form("Endereco")) vbairro=trim(request.form("Bairro")) vcidade=trim(request.form("Cidade")) vtelefone=trim(replace(request.form("Telefone"),"'", "")) vtelfax=replace(request.form("Telfax"),"'","") vproprietario=trim(request.form("Prorietario")) vplano=trim(request.form("Plano")) vvencimento=isdate(request.form("vencimento")) vemdia=trim(request.form("EmDia")) vcategoria=trim(request.form("Categoria")) vvalor=isnumeric(reques.form("Valor")) vsite=trim(request.form("Site")) insere = "insert into clientes(empresa) Values ('" & vempresa & "','" & vendereco & "','" & vbairro & "','" & vcidade "', " & vtelefone & "," & vtelfax & ", '" & vproprietario & "', '" & vplano "'," & vvencimento & ",'" & vemdia & "','" & vcategoria & "'," & vvalor & ",'" & vsite"')" call AbreConexao() set recset = con.execute(insere) response.write "Dados Cadastrados com Sucesso!!!" Call FechaConexao()%> Alguém poderia me ajudar?
-
Como assim, desculpe não entendi direito,minha pagina inicial é pagina.asp codigo <html> <head> <title>Login</title> </head> <body> <table align=center> <tr> </tr> <tr> </tr> <tr> <Td> <form method="POST" action="login.asp"> <p>Login: <input type="text" name="login" size="20"></p> <p><input type="password" name="senha" size="8" maxlength="*"></p> <p><nput type="submit" value="Login" name="B1"></p> </form> </Td> </tr> </table> </body> </html> Coloquei a segurança nela também, mas se eu digitar na url listados.asp q também possui a mesma segurança, ela entra normalmente, seria possivel não esta funcionando direito o session abandon?
-
Só que deu um probleminha , fiz o session.abandon com redirect para pagina de login, mas se eu digitar na url a pagina que tem esta segurança continua sendo aberta, o que pode ter acontecido? Olhe como eu fiz <% session.abandon response.redirect("pagina.asp") %>
-
Vou tentar fazer...valeu mesmo........
-
valeu agora deu certo, me corrija se eu estiver errada, tenho que cria um botão para sai da session, fazer um session remove all, ou session abando... Qua a diferença entre eles? Quando estou estou usando session, essa informaçoes ficam no servido, e se o usuario usar um browser que não de suporte a session corro algum risco?
-
Fiz uma pequena segurança na pagina de login, para o usuario, não conseguir passar para as outra paginas sem se logar Veja o codigo da pagina Login <%Option Explicit%> <%dim db dim con DIM nome, senha, strSQL, rsSQL db = server.MapPath ("tulio\treino.mdb") set con = server.CreateObject("adodb.connection") con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\tulio\treino.mdb") &";Persist Security Info=False" 'so mostra a pagina após ser totalmente carregada response.buffer="true" 'declara as variaveis 'pega os valores e salva em variáveis nome = Replace(Request.Form("login"), "'", "''") senha = Replace(Request.Form("senha"), "'", "''") 'faz a busca no bd strSQL = "SELECT * FROM login WHERE login ='" & nome & "' and senha ='" & senha & "' " Set rsSQL=con.Execute(strSQL) 'salva o nome do usuário em uma session Session("usuario") = nome 'verifica se esta liberado o acesso IF not rsSQL.EOF THEN session("logado")="sim" Response.Redirect "listados.asp" else Response.Redirect "permissao.asp" end if %> Quando o usuario se logar certinho entra na pagina listados.asp corretamente. mas para ele não conseguir entra na pagina listados.asp sem passar antes pelo login, inseri no começo da pagina listados o seguinte codigo <%if session("logado")="" then 'segurança response.redirect("pagina.asp") end if%> Mas ele não ta funcionado direito, porque quando tento entrar direto na url ele entra na pagina listados.asp normalmente.. Poderia me ajudar... com isso....
-
Vixi to com mais uma duvida, Fiz uma pequena segurança na pagina de login, para o usuario, não conseguir passar para as outra paginas sem se logar Veja o codigo da pagina Login <%Option Explicit%> <%dim db dim con DIM nome, senha, strSQL, rsSQL db = server.MapPath ("tulio\treino.mdb") set con = server.CreateObject("adodb.connection") con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\tulio\treino.mdb") &";Persist Security Info=False" 'so mostra a pagina após ser totalmente carregada response.buffer="true" 'declara as variaveis 'pega os valores e salva em variáveis nome = Replace(Request.Form("login"), "'", "''") senha = Replace(Request.Form("senha"), "'", "''") 'faz a busca no bd strSQL = "SELECT * FROM login WHERE login ='" & nome & "' and senha ='" & senha & "' " Set rsSQL=con.Execute(strSQL) 'salva o nome do usuário em uma session Session("usuario") = nome 'verifica se esta liberado o acesso IF not rsSQL.EOF THEN session("logado")="sim" Response.Redirect "listados.asp" else Response.Redirect "permissao.asp" end if %> Quando o usuario se logar certinho entra na pagina listados.asp corretamente. mas para ele não conseguir entra na pagina listados.asp sem passar antes pelo login, inseri no começo da pagina listados o seguinte codigo if session("logado")="" then 'segurança response.redirect("pagina.asp") end if Mas ele não ta funcionado direito, porque quando tento entrar direto na url ele entra na pagina listados.asp normalmente.. Poderia me ajudar... com isso....
-
Como fazer isso?
-
Como chamar um sub sem usar o call?
-
Valeu mesmo, você sabe porque quando uso o call ele da aquele erro?
-
Ah vou tentar para ver se da certo, mas poderia me dizer o que siguinifica o set do update?
-
Sera que no update posso usar um where?
-
Olha o codigo com o call <% dim vnome dim sql vnome=request.form("Nome") sql= "Update clientes set empresa='" & vnome &"'" Call AbreConexao() con.execute(sql) call FechaConexao%> <h2>Dados Alterados com sucesso!!!</h2> Nome: <%=vnome%><br> <a href="Listados.asp"><font color="#2165A5">Voltar</font></a><font color="#2165A5"> </font> O que siguinifica o set do update?
-
Tirei o call e coloquei direto a conexao, deu certo, só que ele alterou todos os campos da tabela e era para alterar somente um campo..... O q pode ter acontecido?
-
Se eu colocar o con.execute(sql) Da o seguinte erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis: 'AbreConexao' /tulio/ConfAlteracao.asp, line 11 A linha 11 é onde esta o Call AbreConexao()
-
Vixi deu outro erro no udate erro; Erro de compilação do Microsoft VBScript (0x800A03F3) '=' esperado /tulio/ConfAlteracao.asp, line 12, column 20 set con.execute(sql) '" meu codigo vnome=request.form("Nome") sql= "Update clientes set empresa='" & vnome &"'" Call AbreConexao() set con.execute(sql) call FechaConexao%> <h2>Dados Alterados com sucesso!!!</h2> Nome: <%=vnome%> <a href="Listados.asp">Voltar</a> porque?
-
Valeu mesmo deu certinho, mas se não fosse encomodar Porque você usou request.querystring cod, não entendi muito.
-
O campo é autonumeraçao, Olhe de onde ele pega o codigo <% if session("logado")="" then 'segurança response.redirect "pagina.asp" end if %> <%dim rs dim sql sql="select * from Clientes" db = server.MapPath ("tulio\treino.mdb") set con = server.CreateObject("adodb.connection") set rs = server.CreateObject ("adodb.recordset") con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\tulio\treino.mdb") &";Persist Security Info=False" rs.Open sql,con,3,3 %> <table align=center border=1> <tr> <td > Código</td> <td > Alterar</td> </tr> <tr> <%do while not rs.eof%> <td > <%=rs("Codigo")%> </td> <td ><a href="Altera.asp?cod=<%=rs("Codigo")%>Alterartd</a></td> </tr> <%rs.movenext loop%> </table>
-
Estou com um probleminha ao usar o select da o seguinte erro: Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'codigo='. /tulio/Altera.asp, line 16 me codigo vcod=request.querystring("Codigo") sql="select * FROM clientes where codigo=" & vcod set rs= server.CreateObject("ADODB.Recordset") db = server.MapPath ("tulio\treino.mdb") set con = server.CreateObject("adodb.connection") con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\tulio\treino.mdb") &";Persist Security Info=False" Linha 16 rs.Open sql,con,3,3 Alguém sabe porque?
-
O pior q já fiz isso mas continua dando erro Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'codigo='. /tulio/Altera.asp, line 16 me codigo vcod=request.querystring("Codigo") sql="select * FROM clientes where codigo=" & vcod set rs= server.CreateObject("ADODB.Recordset") db = server.MapPath ("tulio\treino.mdb") set con = server.CreateObject("adodb.connection") con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\tulio\treino.mdb") &";Persist Security Info=False" Linha 16 rs.Open sql,con,3,3
-
Valeu mesmo !!! Desculpe a falta deatenao!!!!