O objeto não dá suporte para a propriedade ou método

[lucas.fregonezi 0]

Olá amigos sou iniciante em asp e to tentando fazer um sistema de login pra por numa area administrativa

e esta me voutando um erro

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01B6)

O objeto não dá suporte para a propriedade ou método: 'eof'

admin/index.asp, line 72

<%

 response.buffer = true

dim acao
dim rs
dim sql
acao = request.QueryString("action")
select case acao
	case "login"
		usuario = request.form("txt_user")
		senha = request.form("txt_senha")
		
		sql = "Select * From loginsistema where usuario='"&usuario&"' and senha='"&senha&"'" 
		rs = conexao.execute(sql)
		if (rs.eof) Then ' linha 72
			Response.Write "ERRO - Login ou Senha incorretos"
		Else
			session("adminsistema") = senha
			response.redirect "admin_default.asp"
		end if
		
	end select
 %>

aguardo a ajuda obrigado

[xanburzum 169]

o eof (end of file) é para o objeto recordset

End Of File. Devolve o valor True quando o cursor tiver chegado depois do último registro.

 

exemplo

 

<% 'declaro as var.
     dim conexao, constring, rs, SQL, 
  'crio a conexao
constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/quaddra.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring
            
  'crio o rs
  set rs=Server.CreateObject("ADODB.Recordset")
  'crio o SQL
  SQL="SELECT LAST (login) as log FROM login ORDER BY login"
  rs.open SQL,conexao,1,3
while not rs.eof%
<TR> <TD WIDTH="16%"> <DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("log")%></B></FONT></DIV></TD><TD WIDTH="15%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("senha")%></B></FONT></DIV></TD><TD WIDTH="25%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("email")%></B></FONT></DIV></TD><TD WIDTH="20%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><A HREF="atualizar_form_treina.asp?codigo=<%=rs("codigo")%>">Atualizar</A></B></FONT></DIV></TD><TD WIDTH="24%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><A HREF="excluir_form_treina.asp?codigo=<%=rs("codigo")%>">Excluir</A></B></FONT></DIV></TD></TR> 
<% rs.movenext
      wend
    set rs=nothing
   call fechaconexao
%>

[augustoclaro 2]

xanburzum, mesmo desse jeito não deveria funcionar o EOF? porque se ele usasse rs("campo") funcionaria.