Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia Galera, bom eu achei um post de Vinícius Luiz que achei bem bacana, porém acredito que ele não estaja completo, pois só tenho a parte 1 e 2 mas parece que tb tem a parte 3 e 4.
Independente disso estou tentando ajustar e está dando o seguinte erro:
"Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/mdb_admin/logar.asp, line 26"
Segue o código e no final está a linha 26:
response.write "<script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
<% Option Explicit %>
<!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario
'Abriremos a conexão criada do include _conexao.asp
call abrir_conexao
'Criaremos um Recordset para selecionar os usuários cadastrados
set usuario=Server.CreateObject("ADODB.Recordset")
'Selecionar de acordo com o Login digitado no campo
usuario.Open "SELECT * from usuario where usuario='"& request.form("usuario") &"'", bd
'Se o usuário não for encontrado, iremos fechar a conexão, dar um alert e voltar
if usuario.EOF then
call fechar_conexao
response.write "<script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
else
'Caso tenha achado o usuário, o sistema irá verificar a senha
if usuario("senha")=request.form("senha") then
'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
response.cookies("access")("usuario")=usuario("cod")
'Irá fazer um UPDATE para indicar o último acesso
bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""
'Fecharemos a conexão
call fechar_conexao
'Redirecionaremos para a página principal
response.redirect("default.asp")Help-me !!
PS: Se alguém souber como faço pra entrar em contato com o vinícius eu agradeço tb.
Carregando comentários...