Problema Com Acesso Ao Login E Senha

[ADL]

:) Bom dia pessoal estou com um problema quando eu digito o login e senha incorreto aparece a mensagem login ou senha inválida ok essa parte está perfeita, mas quando eu digito o login e senha correto da a mesma mensagem não consigo nudar isso alguém pode me ajudar por favor!!! segue o código:

<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Buffer = True
%>
<!--#Include file="conexao/dbConexao.inc"-->
<%
Dim conexaoDataBase,ConnString,estilo
Dim  rsTabela,vlogin,vsenha
vlogin=trim(request.form("login"))
vsenha=trim(request.form("senha"))
Call abreConexao
set rsTabela=conexaoDataBase.execute("select * from tabela1 where login = '"&vlogin&"'  and  senha = '"&vsenha&"'")
estilo ="Perfil"
%>
 essa é outra parte

<%
if rsTabela.eof  then
response.write("Senha ou Login inválido! Volte e tente novamente.")
%>
<a href="restrito.asp">voltar</a>
</td></tr>
<%
else
session("logado")="sim"
response.redirect"total.asp"
end if
%>

Editado Fevereiro 13, 2007 por andreia_sp

[.Andreia.]

O jeito é debugar, imprima a SQL e joga no banco para confirmar que está retornando resultado.

Olhando o codigo não vi nada errado

[bareta]

ou bota seu codigo inteiro ai com o form também

[Marcos-rj]

A conexão com o banco está certa? já tive esse problema, não conseguia fazer o Select e voltava p/ página de login.