Marcos-rj

Isso você pode fazer comJavaScript, dá uma procurada lá no forum por Validação de Formulário. um exemplo: <script language="JavaScript"> function ValidaForm(form){ if ((document.busca.nome.value=='')) alert('Preencha o campo Nome.'); form.nome.focus(); return false; } if ((document.busca.uf_busca.selectedIndex ==0)){ alert('Selecione um estado.'); form.uf_busca.focus(); return false; } } </script> no form c coloca: onsubmit="return ValidaForm(this);"

Pode sim, faz assim: conexao.asp pasta_dados="e:\home\brd\dados\db\cadastro.mdb" Set conexao = CreateObject("ADODB.CONNECTION") conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&pasta_dados&";" ConexaoAberta = FALSE Sub AbreConexao() if not ConexaoAberta then Conexao.Open ConStr ConexaoAberta = True end if end sub Sub FechaConexao() if ConexaoAberta then Conexao.close Conexao = False end if end sub %> Nas páginas onde você for usar o bancode dados você coloca no topo da pagina Abreconexao 'Para Abrir a conexao e no final da página Fechaconexao 'Para fechar a conexao

a permissão para gravar está liberada?

Priscila, depois de tantas mensagens resolvi pegar os codigos postados e montar aqui as páginas, fiz algumas mudas mas está funcionando. pode conferir no link. https://www.pscifrao.com.br/login1 usuário: marcos senha: 123456 segue os códigos: conecta.asp <% Set bco = CreateObject("ADODB.CONNECTION") conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb") ConexaoAberta = FALSE Sub AbreConn() if not ConexaoAberta then bco.Open ConStr ConexaoAberta = True end if end sub Sub FechaConn() if ConexaoAberta then bco.close bco = False end if end sub %> valida.asp <%Response.Buffer = true%> <!--#include file="conecta.asp"--> <% Abreconn vuser = Replace(Trim(request.form("nome")), "'", "/") vpass = Replace(Trim(request.form("senha")), "'", "/") sql = "select * from usuarios where nome='"&vuser&"' and senha='"&vpass&"' " Set rs = bco.execute(sql) If not rs.eof Then Session("login") = True Session("nome") = vuser response.write("<script>location = 'index.asp';alert('VOCÊ FOI LIGADO COM SUCESSO!.')</script>") Else rs.close Set rs = Nothing Response.Redirect "index.asp?erro=1" End if fechaconn %> qualquer coisa posta ai.

Testei aqui e funcionou, coloca assim a conexao: set Conexao=server.createobject("ADODB.connection") dados = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&pasta_dados&";" Conexao.open dados

você alterou no codigo de conexão?

Aff, você conseguiu resolver o ´problema da permissão p/ gravar? você alterou a conexao com o banco de dados? Posta como está.

Posta o código de onde esta dando o erro, e diz qual é a linha 17.

Muitas pessoas que iniciam ou até as mais experientes realizam suas conexões com o banco de dados de um modo funcional, mas não visam um detalhe extremamente importante que é a velocidade do acesso aos dados. Pois nesta dica você vai aprender a fazer suas futuras conexões com o banco de dados de forma eficiente e rápido utilizando provider. Ao se programar em asp, uma das prioridades para trabalhar com banco de dados é fazer uma conexão com o banco de dados e manipular seus dados contidos de forma rápida e eficiente. Veja abaixo um exemplo convencional e um utilizando provider: Exemplo de conexão convencional: Dim Conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\db\bancodedados.mdb") Exemplo de conexão usando provider: Dim Conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("\db\bancodedados.mdb") Entendendo a conexão com o banco de dados utilizando provider: Dim Conexao Set Conexao = Server.CreateObject("ADODB.Connection") Primeiramente é instanciado uma conexão com o objeto ADO ( ActiveX Data Object ) para a manipulação dos dados no banco de dados, conforme o exemplo acima. Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("\db\bancodedados.mdb") Após isso, é feita a abertura do banco de dados utilizando um provider ( vinculação de dados ), que utiliza recursos interno do servidor web, onde se torna mais rápido o acesso aos dados no banco de dados, veja acima o exemplo. Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Provider, é a variável aonde é declarado qual tipo de vinculação de dados será realizado na sua conexão, onde no exemplo exibido acima, é aplicado para banco de dados no formato Microsoft Access 95/97/2000. Data Source =" & Server.MapPath("\db\bancodedados.mdb") O parâmetro Data Source é aonde será especificado o caminho lógico do seu banco de dados, aonde utilizamos a função Server.MapPath onde permite que seja definido um caminho lógico, onde se encontra o seu banco de dados, onde db seria a pasta onde esta armazenado e bancodedados.mdb o nome do banco de dados a ser aberto.

eu tenho ele o 1 e 2, mas prefiro fazer a mão.

O que você fez com o bco? ele não está encontrando

está na pagina 1 do post: CONECTA.ASP <% Sub AbreConn Dim bco, sql, rs Set bco = Server.CreateObject("ADODB.Connection") bco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb") End Sub '----------------------------- Sub FechaConn bco.close Set bd = Nothing End sub %>

Resolvido, você está usando palavra reservada na consulta sql. END é só trocar que funciona! Acessa este link que tem uma lista com palavras reservadas: http://sqlserver2000.databases.aspfaq.com/...r-keywords.html

af, você tirou o recordset? agora que eu vi, postei com ele denovo! <% Option Explicit Response.Expires = 0 Dim razao_local, nome_local, contato_local,cargo_local, cnpj_local, nome, tel_local, ie_local, email_local, end_local, bairro_local, cidade_local, estado_local, conexao, sqlstmt, rsquery, tbl razao_local = request.form("rz") nome_local = request.form("nf") contato_local = request.form("contato") cargo_local = request.form("cargo") cnpj_local = request.form("cnpj") ie_local = request.form("ie") tel_local = request.form("tel") email_local = request.form("email") end_local = request.form("end") bairro_local = request.form("bairro") cidade_local = request.form("cidade") estado_local = request.form("estado") set Conexao=server.createobject("adodb.connection") Conexao.provider="microsoft.jet.oledb.4.0" Conexao.connectionstring=server.mappath("db/cadastro.mdb") Conexao.open sqlstmt = "INSERT INTO cadastro (razaosoc, nomefanta, contato, cargo, cnpj, ie, fone, email, end, bairro,cidade, estado) values ('" & razao_local & "','" & nome_local & "','" & contato_local & "','" & cargo_local & "','" & cnpj_local & "','" & ie_local & "','" & tel_local & "','" & email_local & "','" & end_local & "','" & bairro_local & "','" & cidade_local & "','" & estado_local & "')" set rsquery = conexao.execute(sqlstmt) response.redirect("inserido_com_sucesso.htm") %>

tenta assim: <% If Session ("login") = False Then response.write("<script>location = 'index.asp';alert('MENSAGEM DE ERRO.')</script>") End If Response.Expires = -1000 %>

Priscila faz o seguinte, tira o include <!--#include file="session.asp"--> da página de validação! por isso está dando erro! você está redirecionando a pesso antes dela se logar!

Pois é, repetiu o tópico e não viu a resposta no outro!

não sei o tem nele, mas acredito que neste teste que passei seja necessario.

está complica, faz o seguinte, monta uma pagina de teste simples e usando o mesmo código de conexão faz um select e manda exibir os dados, vê se dá algum erro. montei aqui rápido uma pagina para você testar, tenta aí e diz se dá algum erro. Fiz em cima dos dados que você passou. <html> <!--#include file="conecta.asp"--> <head> <meta http-equiv="Content-Language" content="pt-br"> <% Abreconn Set rs = bco.execute("select nome, senha from usuarios order by nome") %> <title>Página de teste</title> </head> <body> <table border="1" width="444" id="table1"> <tr> <td width="220" align="center" bgcolor="#E5E5E5"><b> <font face="Verdana">NOME</font></b></td> <td width="220" align="center" bgcolor="#E5E5E5"><b> <font face="Verdana">SENHA</font></b></td> </tr> <% If rs.EOF or rs.BOF Then Response.Write "<font face=Verdana size=2>Não foi encontrado nenhum registro.</font>" Else Do While not rs.EOF%> <tr> <td width="220">&nbsp;<b><font face="Verdana" size="2"><%=rs("nome")%></font></b></td> <td width="220">&nbsp;<b><font face="Verdana" size="2" color="#FF0000"><%=rs("senha")%></font></b></td> </tr> <% rs.MoveNext Loop End If%> </table> </body> </html>

Está dando alguma mensagem de erro??? neste caso, não preciso do RecordSet como você colocou: set tbl = server.createObject("adodb.recordset") tbl.Open "cadastro", conexao coloca assim: <% Option Explicit Response.Expires = 0 Dim razao_local, nome_local, contato_local,cargo_local, cnpj_local, nome, tel_local, ie_local, email_local, end_local, bairro_local, cidade_local, estado_local, conexao, sqlstmt, rsquery, tbl razao_local = request.form("rz") nome_local = request.form("nf") contato_local = request.form("contato") cargo_local = request.form("cargo") cnpj_local = request.form("cnpj") ie_local = request.form("ie") tel_local = request.form("tel") email_local = request.form("email") end_local = request.form("end") bairro_local = request.form("bairro") cidade_local = request.form("cidade") estado_local = request.form("estado") set Conexao=server.createobject("adodb.connection") Conexao.provider="microsoft.jet.oledb.4.0" Conexao.connectionstring=server.mappath("db/cadastro.mdb") Conexao.open set tbl = server.createObject("adodb.recordset") tbl.Open "cadastro", conexao sqlstmt = "INSERT INTO cadastro (razaosoc, nomefanta, contato, cargo, cnpj, ie, fone, email, end, bairro,cidade, estado) values ('" & razao_local & "','" & nome_local & "','" & contato_local & "','" & cargo_local & "','" & cnpj_local & "','" & ie_local & "','" & tel_local & "','" & email_local & "','" & end_local & "','" & bairro_local & "','" & cidade_local & "','" & estado_local & "')" set rsquery = conexao.execute(sqlstmt) response.redirect("inserido_com_sucesso.htm") %>

Certo, se o nome da tabala é usuario , você esta chamando errado no select Set rs = bco.execute("select nome, senha from usuarios where nome='"&vuser&"' and senha='"&vpass&"'") viu, no select esta USUARIOS e não USUARIO.

você consegue fazer um Select básico neste banco p/ exibir os dados? tem realmente algum dado neste banco?

No link abaixo to colocando um exemplo de mural de recados simples, com envio de smiles. da uma estudada nele, pode melhora-lo. http://www.pscifrao.com.br/muralrecados.zip

Dei uma olhada rápida e não vi nada de estranho, só dei uma alterada na ordem, na duvita testa p/ ver. <%response.buffer = true%> <% vuser = Replace(Trim(request.form("nome")), "'", "/") vpass = Replace(Trim(request.form("senha")), "'", "/") Abreconn Set RS = bco.execute("select * from usuarios where nome='"&vuser&"' and senha='"&vpass&"' ") If not rs.eof Then Session("login") = True Session("nome") = rs("nome") rs.Close Set rs = Nothing fechaconn Else Response.Redirect "PRINCIPALXYZ000.htm" rs.close Set rs = Nothing fechaconn Response.Redirect "index.asp?erro=1" End if %> tem algum dado nesta tabela?

como está chamando o banco de dados?