pagina de login

[reinaldo polato 1]

está dando erro na pagina autenticar_usuario.asp

 

erro 'End' esperado

 

não estou conseguindo fazer funcionar o insert o banco de dados é sql server 2000

 

login.asp

 

 

<% if Request.QueryString("erro") = "negado" then %>

 

<% end if %>

 

<form action = "autenticar_usuario.asp" method = "post">

<center>

<h4> Digite o seu login e a senha pra utilizar o sistema</h4>

<div align="center">

<table width="50%" border="1" height="100">

<td bgcolor="green"><font color="white">Login</a>

<td bgcolor="white"> <p><input type= "text" name = "txtlogin"></p>

<p>

<input type="Submit" value="Logar no Sistema" id=submit1 name=submit2><td align="left"> <p> </p>

</p>

<p> <br>

<td bgcolor="green"><font color="white">Senha</a>

<td bgcolor="white"> <p><input type = "text" name = "txtsenha"></p>

<p> <input type="Submit" value="Sair do Sistema" id=submit1 name=submit1><br>

<td align="rigth"> <p> 

</table>

 

<p> </p>

 

autentica_usuario.asp

 

<%

 

set conn = new Connection

if whichDB = "Access" then

conn.open = "Select From Login"

conn.execute "Delete From Login"

Response.Write "Starded access Dynamic SQL Loop"

 

else

conn.open "Provider=SQLOLEDB;Database=Db_Login;Server=maquina01;Uid=sa;Pwd=123456789"

 

 

'Selecionamos o usuario da tabela usuarios.

'Usamos o Replace para garantir a segurança e que o usuário um pouco

'mais experiente não modifique a sintaxe SQL

 

rs.open "select * from usuarios where " & _

"login='" & Replace(request.form("txtlogin"), "'", "''") & _

"' and senha='" & Replace(request.form("txtsenha"), "'", "''") & "'",db

 

sql = "Insert Into Login"

Sql = SQL & "(Login,Senha)"

Sql = SQL & "Values ('" & Login & "','" & Senha & "')"

 

conn.execute SQL

 

 

add.update

 

 

if not rs.eof then 'Encontrou o usuário

'Armazenamos em uma variável Session o status do Usuário

session("status") = "ok"

'Redirecionamos para a Página Inicial

response.redirect("admin.asp")

else 'Usuário não encontrado

'Redirecionamos para a Página de Login e informamos o erro

response.redirect("login.asp?erro=negado")

end if

 

set rs = nothing 'Destruímos o Objeto

rs.close

 

%>

[xanburzum 169]

qual o numero do erro ?

[reinaldo polato 1]

essa linha insert into nome da tabela é Usuario e tem os campos Login e Senha

está dando erro na linha insert into Usuario (Login,Senha)

 

Fim da instrução esperado

 

/re/autenticar_usuario.asp, linha 23

 

INSERT INTO Usuario(login,Senha)

------------^

[Mário Monteiro 179]

como está esta linha no seu codigo?

[reinaldo polato 1]

INSERT INTO Usuario(login,Senha)

VALUES ('reinaldo','102030',)

conn.execute SQL

 

essa é a linha do meu codigo que está dando erro

 

 

autenticar_usuario.asp

 

 

<%

 

set conn = new Connection

if whichDB = "SQLServer" then

conn.open = "Select From Login"

conn.execute "Delete From Login"

Response.Write "Starded access Dynamic SQL Loop"

 

else

conn.open "Provider=SQLOLEDB;Database=Db_Login;Server=maquina01;Uid=sa;Pwd=123456789"

 

 

 

 

'Selecionamos o usuario da tabela usuarios.

'Usamos o Replace para garantir a segurança e que o usuário um pouco

'mais experiente não modifique a sintaxe SQL

 

rs.open "select * from Usuario where " & _

"login='" & Replace(request.form("txtlogin"), "'", "''") & _

"' and senha='" & Replace(request.form("txtsenha"), "'", "''") & "'",db

 

INSERT INTO Usuario(login,Senha)

VALUES ('reinaldo','102030',)

conn.execute SQL

 

if not rs.eof then 'Encontrou o usuário

'Armazenamos em uma variável Session o status do Usuário

session("status") = "ok"

'Redirecionamos para a Página Inicial

response.redirect("admin.asp")

else 'Usuário não encontrado

'Redirecionamos para a Página de Login e informamos o erro

response.redirect("login.asp?erro=negado")

end if

 

set rs = nothing 'Destruímos o Objeto

rs.close

 

%>

[xanburzum 169]

do jeito que esta sua string SQL,você esta passando ambos os valores com numérico e deixou uma virgula, indicando que teria mais dados.

 

INSERT INTO Usuario(login,Senha)
VALUES ('reinaldo','102030',)

[Gilberto Jr 26]

Boa noite. Veja o que o Xan disse, no final do seu comando tem uma virgula[,].

 

Tira ela que provavelmente esse deve ser o erro.

[reinaldo polato 1]

na pagina login.asp eu digito o nome de usuario e a senha ai passa pra essa pagina autenticar_usuario.asp

 

ai ele não faz o insert into o nome não fica gravado ai eu tenho que digitar o nome tudo de novo entendeu

 

 

autenticar_usuario.asp

<%

 

 

if whichDB = "SQLServer" then

conn.open = "Select From Usuario"

conn.execute "Delete From Usuario"

Response.Write "Starded access Dynamic SQL Loop"

 

 

set conexao = server.createObject("ADODB.Connection")

 

Conexao.ConnectionString = "Provider=SQLOLEDB;Database=nomedatabase;Server=nome;Uid=sa;Pwd=senha"

Conexao.Open()

Login= REQUEST("Login")

Senha= REQUEST("Senha")

 

rs.open "Select * from Usuario where " & _

"login='" & Replace(request.form("login"), "'", "''") & _

"' and senha='" & Replace(request.form("senha"), "'", "''") & "'",db

 

sql = "insert into Usuario (Login, Senha) values ('" & Reinaldo & "', '" & 102030 & "')"

 

conexao.execute sql

 

 

 

'Selecionamos o usuario da tabela usuarios.

'Usamos o Replace para garantir a segurança e que o usuário um pouco

'mais experiente não modifique a sintaxe SQL

 

 

 

 

if not rs.eof then 'Encontrou o usuário

'Armazenamos em uma variável Session o status do Usuário

session("status") = "ok"

'Redirecionamos para a Página Inicial

response.redirect("admin.asp")

else 'Usuário não encontrado

'Redirecionamos para a Página de Login e informamos o erro

response.redirect("login.asp?erro=negado")

end if

 

set rs = nothing 'Destruímos o Objeto

rs.close

end if

%>

[reinaldo polato 1]

e ai galera beleza o insert into SQL = "Insert Into Login (Login,Senha)"

 

SQL = "VALUES (" & reinaldo & "," & 102030 &")"

esse codigo não da erro mais o insert into ele não grava ai na pagina de login toda vez que eu entro eu tenho que digitar tudo de novo o login e a senha como eu faço pra gravar o login e a senha pra não ter que digitar de novo

 

 

<%

 

set db = server.createobject("adodb.connection") 'Banco de Dados

set rs = server.createobject("adodb.recordset") 'Tabela de Registros

 

'Path (Caminho) do Banco

db.open "Provider=SQLOLEDB;Database=;Server=;Uid=sa;Pwd="

 

'Selecionamos o usuario da tabela usuarios.

'Usamos o Replace para garantir a segurança e que o usuário um pouco

'mais experiente não modifique a sintaxe SQL

 

rs.open "select * from Usuario where " & _

"login='" & Replace(request.form("txtlogin"), "'", "''") & _

"' and senha='" & Replace(request.form("txtsenha"), "'", "''") & "'",db

 

SQL = "Insert Into Login (Login,Senha)"

 

SQL = "VALUES (" & reinaldo & "," & 102030 &")"

 

 

if not rs.eof then 'Encontrou o usuário

'Armazenamos em uma variável Session o status do Usuário

session("status") = "ok"

'Redirecionamos para a Página Inicial

response.redirect("admin.asp")

else 'Usuário não encontrado

'Redirecionamos para a Página de Login e informamos o erro

response.redirect("login.asp?erro=negado")

end if

 

set rs = nothing 'Destruímos o Objeto

rs.close

 

%>

[xanburzum 169]

verifique se os campos estão com os tipos de dados corretos. e dê um response.write na sua string SQL para ver o que esta sendo passado.

[reinaldo polato 1]

e ai galera beleza

 

na pagina login.asp quando eu entro nessa pagina ai o usuario e senha não fica gravado ai eu tenho que digitar o nome de usuario e senha

 

como eu faço pra quando entrar na pagina de login não precisar digitar o usuario e senha pra entrar no sistema

[xanburzum 169]

terá que trabalhar com cookie, guardando o user e senha no cookie e lembrando que o internauta deve aceitar os cookies (ter ele habilitado no browser)

[reinaldo polato 1]

e ai galera beleza

 

tipo eu quero fazer uma pagina de cadastro de clientes ai tipo eu crio um botão salvar pra salvar todos os dados digitados na tabela ai eu crio os campos ai quando eu for preencher os dados nos campos CodCliente, Nome,Razao Social

 

como que eu faço pra gravar quando eu for preencher esses campos pra não ter que cadastrar tudo de novo

[xanburzum 169]

dá uma olhada neste artigo, veja como é feito o login.

aqui

[reinaldo polato 1]

Incluir_action_treina.asp

 

está dando nessa linha 31 a linha 31 é

 

rsselect.open SQLselect,conexao,1,3 essa

 

ADODB.Recordset

erro '800a0bb9'

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/re/Incluir_action_treina.asp, linha 31

[xanburzum 169]

é por causa de seu banco de dados, pois aqui roda corretamente

[reinaldo polato 1]

eu criei um banco de dados no access 2003

 

eu criei a tabela login

 

eu criei os campos

 

login

senha

email

codigo

 

ai da esse erro

 

o que eu tenho que fazer

[xanburzum 169]

poste como esta sua string SQL

[reinaldo polato 1]

Incluir_action_treina.asp

 

 

<%

Option explicit
 
dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert, SQLinsert
 
varlogin=trim(request.form("login"))
varsenha=trim(request.form("senha"))
varemail=trim(request.form("email"))
%>
<!–#include file="conexao1.asp"–>
<%

set rsselect=server.createobject("ADODB.Recordset")
 
SQLselect="SELECT login FROM login WHERE login=’"&varlogin&"‘"
rsselect.open SQLselect,conexao,1,3
if not rsselect.eof then
response.redirect("incluir_form_treina.asp?msgeof=1?")
set rsselect=nothing
else

set rsinsert=server.createobject("ADODB.Recordset")

SQLinsert="INSERT INTO login(login,senha,email) values(‘”&varlogin&”‘,’”&varsenha&”‘,’”&varemail&”‘)"

rsinsert.open SQLinsert,conexao,1,3
response.redirect("administracao_treina.asp?msg=1?")
set rsinsert=nothing
end if
call fechaconexao %>

[xanburzum 169]

a SQL esta correta, verifique os tipos dos campos também.