O Q Est[á Acontecendo?

[vivigrieco]

eu de novo...

eu tenho o seguinte código:

<%
 Set RSAgencias= Server.CreateObject("ADODB.Connection") 
 RSAgencias.open(MM_Movimentacao_STRING) 
 SQL = "select cu_cadastro_usuarios.cuorgaousu,ag_agencias.agdescricao "&_ 
         " FROM cu_cadastro_usuarios INNER JOIN ag_agencias " &_ 
         " ON cu_cadastro_usuarios.cuorgaousu = ag_agencias.agcodigo "&_ 
         " WHERE cu_cadastro_usuarios.cumatusu='" & UsLogin & "'" 
 Set Tabtemp = RSAgencias.execute(sql) 
  
  Set RSAgencias = Server.CreateObject("ADODB.Connection") 
 RSAgencias.open(MM_Movimentacao_STRING) 
 SQL = "select * from ag_agencias" 
 Set RSListaAgencias = RSAgencias.execute(sql) 
 %> 
 <input name="agencia" type="text" id="agencia" value="<%=tabTemp("agdescricao")%>" size="40"> 
 <select name="AgDescricao"> 
   <option>Selecione</option> 
<%  
 While (not RSListaAgencias.EOF) 
%> 
   <option value="<%=RSListaAgencias("AgCodigo")%>"><%=RSListaAgencias("agDescricao")%></option> 
<% 
RSListaAgencias.MoveNext() 
Wend 
 %> 
 </select> 

ele faz o seguinte... mostra a agencia de um determinado usuário no textfield e mostra todas as agencias existentes no list menu...

o problema é q ele não faz nada disso.. na verdade, quando eu rodo a aplicação, ele mostra o textfield, só q não mostra o valor dele, não mostra o list menu, e da um erro:

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

? 

alguém sabe o porque??? como resolver??? help!!!!!!!!!!

[pgmador]

Ao q parece não existe registro na sua tabela.

[Reginaldo ASP]

Como o pgmador falou, esse erro indica fim de arquivo, ou seja, a consulta passou por toda a sua tabela e não encontrou o que você pediu

[ursolouco]

Só complementando aos nossos amigos...

Não esqueça, sempre, que for trabalhar com RecordSet veja se o mesmo não retornou vazio de sua consulta SQL:

<% If Rs.Eof Then
 Response.Write("Não há nada dentro do banco de dados.")
 Else
 'Chame a rotina ou processo desejado
 End If

Um BJurso

[urso]