Treib Postado Agosto 21, 2006 Denunciar Share Postado Agosto 21, 2006 HTTP 500.100 - Servidor interno Erro - erro do ASPInternet Information Services--------------------------------------------------------------------------------Informações técnicas (para a equipe de suporte)Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável./ramais/validalogin.asp, line 17=====================================================================<!--#include file="conecta.asp"--><% AbreConexao if Request.Form("enviando") = "sim" then 'tentativa de logar Dim Sql 'String SQL Dim RS 'Resultado do select Dim DatLog Sql = "Select * FROM Usuarios WHERE nomeusuario = '" & Request.Form("login") & "' " Sql = sql & "AND senha='" & Request.Form("senha") & "' " set Rs = conexao.execute(Sql) DatLog=Now if not rs.eof then 'encontrou o registro procurado Session("Usuario")=RS("nomeusuario") Session("Status")="Logado" set rs=nothing Sql = "INSERT INTO Sessoes(nomeusuario, login) " Sql = Sql & "VALUES('" & Session("Usuario") & "','" & DatLog & "')" conexao.execute(sql) <===ONDE OCORRE O ERRO set Rs=Nothing Sql = "SELECT contador FROM Sessoes ORDER BY contador DESC" 'WHERE login LIKE '#" & DatLog & "#'" set Rs = conexao.execute(Sql) Session("ContLog")=Rs("contador") Response.Redirect("defaulton.asp") else Session("Status")="Invalido" Sql = "INSERT INTO Sessoes(nomeusuario, login) " Sql = Sql & "VALUES('" & "User: " & Request.Form("login") & " Senha: " & Request.Form("senha") & "','" & DatLog &"')" conexao.execute(sql) set Rs=Nothing Sql = "SELECT contador FROM Sessoes ORDER BY contador DESC" set Rs = conexao.execute(Sql) Session("ContLog")=Rs("contador") Response.Redirect("default.asp") end if end if FechaConexao %>=====================================================================qual seria a configuração correta para o ODBC?????????? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Marcos-rj Postado Agosto 21, 2006 Denunciar Share Postado Agosto 21, 2006 a permissão para gravar está liberada? deve ser por isso! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 .Andreia. Postado Agosto 21, 2006 Denunciar Share Postado Agosto 21, 2006 http://scriptbrasil.com.br/forum/index.php?showtopic=28873pessoal, vamos usar mais a ferramenta de busca. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Treib
HTTP 500.100 - Servidor interno Erro - erro do ASP
Internet Information Services
--------------------------------------------------------------------------------
Informações técnicas (para a equipe de suporte)
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.
/ramais/validalogin.asp, line 17
=====================================================================
<!--#include file="conecta.asp"-->
<% AbreConexao
if Request.Form("enviando") = "sim" then 'tentativa de logar
Dim Sql 'String SQL
Dim RS 'Resultado do select
Dim DatLog
Sql = "Select * FROM Usuarios WHERE nomeusuario = '" & Request.Form("login") & "' "
Sql = sql & "AND senha='" & Request.Form("senha") & "' "
set Rs = conexao.execute(Sql)
DatLog=Now
if not rs.eof then 'encontrou o registro procurado
Session("Usuario")=RS("nomeusuario")
Session("Status")="Logado"
set rs=nothing
Sql = "INSERT INTO Sessoes(nomeusuario, login) "
Sql = Sql & "VALUES('" & Session("Usuario") & "','" & DatLog & "')"
conexao.execute(sql) <===ONDE OCORRE O ERRO
set Rs=Nothing
Sql = "SELECT contador FROM Sessoes ORDER BY contador DESC" 'WHERE login LIKE '#" & DatLog & "#'"
set Rs = conexao.execute(Sql)
Session("ContLog")=Rs("contador")
Response.Redirect("defaulton.asp")
else
Session("Status")="Invalido"
Sql = "INSERT INTO Sessoes(nomeusuario, login) "
Sql = Sql & "VALUES('" & "User: " & Request.Form("login") & " Senha: " & Request.Form("senha") & "','" & DatLog &"')"
conexao.execute(sql)
set Rs=Nothing
Sql = "SELECT contador FROM Sessoes ORDER BY contador DESC"
set Rs = conexao.execute(Sql)
Session("ContLog")=Rs("contador")
Response.Redirect("default.asp")
end if
end if
FechaConexao
%>
=====================================================================
qual seria a configuração correta para o ODBC??????????
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.