[Resolvido] Erro EOF

[marciolvs 1]

Pessoal estou listando do sistema os ultimos arquivos enviados, conforme request..

Bom acontece que no 2° "IF NOT " ele me informa o erro

 

"

Erro de tempo de execução do Microsoft VBScript erro '800a01b6'

 

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

 

/demonstracao/UltimosEnviados.asp, line 71

 

"

Aluém pode dar aquela mão ?

Segue abaixo codigo...

 

<td style="padding-left:5px;">
		  <%
		  SQLDe ="SELECT login FROM administrador Where id="&RS2("De")
		  set RsDe = conexaodb.execute(SQLDe)
		  'Response.Write(SQLDe)		  
		  %>
		  <img src="imagens/user.gif" hspace="1" vspace="1" border="0">
		  <%
		  IF Not RsDe.EOF Then
			While Not RsDe.EOF
		  %>
          	<font color="red">Removido</font>
          <%
		    RsDe.Movenext
			Wend
			RsDe.close
			Set RsDe = Nothing
			ELSE
	 	  %>	  
		  	<%=RsDe("Login")%>
          <%
		  'RsDe.close
		  'Set RsDe = Nothing
		  END IF		  
		  %>
          </td> 
          <td height="20" style="padding-left:5px;">
		  <%
		  SQLPara ="SELECT login FROM administrador Where id="&RS2("para")
		  RsPara = conexaodb.execute(SQLPara)
		  'Response.Write(SQLPara)
		  'Response.End()
		  %>
		  <img src="imagens/user.gif" hspace="1" vspace="1" border="0">
		  <%
		    IF Not RsPara.EOF Then
			While Not RsPara.EOF
		  %>
          	<font color="red">Removido</font>
          <%
		    RsPara.Movenext
			Wend
			RsPara.close
			Set RsPara = Nothing
			ELSE
		  %>	  
		  	<%=RsPara("Login")%>
          <%END IF%>
          </td>

[hargon 64]

Faltou usar SET.

 

SET RsPara = conexaodb.execute(SQLPara)

[marciolvs 1]

Faltou usar SET.

 

SET RsPara = conexaodb.execute(SQLPara)

 

Opa.. valews.. é depois de horas de trabalho a gente nem consegue encherga as coisas simples..

Valews mesmo..

[hargon 64]

Acontece. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif