pagina de login

qual o numero do erro ?

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)

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

como está esta linha no seu codigo?

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

%>

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',)

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.

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

%>

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

%>

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.

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

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)

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

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

aqui

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

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

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

poste como esta sua string SQL

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 %>

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

Qual o erro atual e a linha de que está acusando o mesmo?

Bom dia!

Cara posta como estão as suas tabelas, tipo :

Nome Varchar (200)

Good Luck

Pelo jeito isso foi resolvido. A ultima resposta foi no dia 22/01/2013 é até agora não houve mais respotas.

Pelo jeito os moderadores pode fechar esse topico ai.

Amigo,

Acho que você esqueceu de fechar o comando if "if whichDB = "Access" then", experimente colocar o End if depois de(na linha seguinte) "add.update", ou onde terminar o bloco de instrução equivalente.

[]'s