Este é meu código: <% Session.LCID = 1046 dim conexao, sql, rs, login, senha, validade set conexao = server.createObject("adodb.connection") banco = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("login.mdb") conexao.Open banco login = Request.Form("login") senha = Request.Form("senha") sql = "select * from associado where login = '"& login &"' and senha = '"& senha &"'" set rs = conexao.execute(sql) varvalidade = rs("validade") varlogin = rs("login") varsenha = rs("senha") atual = now() if rs.eof then %> <script> alert (Login ou Senha Inválidas.') </script> <% Response.Redirect "index.asp" elseif datediff("yyyy",atual,validade) < 0 then %> <script> alert ('Validade excedida. Peça a renovação no Link Cadastro de Sócio.') </script> <% Response.Redirect "index.asp" elseif datediff("yyyy",atual,validade) = 0 and datediff("m",atual,validade) < 0 then %> <script> alert ('Validade excedida. Peça a renovação no Link Cadastro de Sócio.') </script> <% Response.Redirect "index.asp" else Session("login") = login Response.Redirect "logado.asp" end if conexao.close set conexao = nothing %> E dá o seguinte erro: HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services Tipo de erro: ADODB.Field (0x800A0BCD) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /futuro/login.asp, line 12