Problemas con rs.Close

[trasgukabi]

Código:

if trim(request.QueryString("confEmail")) = "s" and trim(request.QueryString("IdUsuario")) <> "" then 
	IdUsuario = trim(request.QueryString("IdUsuario"))
	SQLValidaIdUsuario = "SELECT * FROM usuarios WHERE IdUsuario="&IdUsuario&""
	rs.Open SQLValidaIdUsuario, adoCon	
	if not rs.eof  then 
             esta="SI" 'no es EOF y podemos cerrar antes el rs
         end if
          rs.close
          if esta="SI" then
		Response.Cookies("usuario")("IdUsuario") = IdUsuario
		Response.Cookies("usuario")("Tipo") = rs("Tipo")
		IdUsuarioCookies = Request.Cookies("usuario")("IdUsuario")
		TipoCookies = Request.Cookies("usuario")("Tipo")		
		SQLModifiUsuario = " UPDATE Usuarios "
		SQLModifiUsuario = SQLModifiUsuario + " SET Activo = 's'"
		SQLModifiUsuario = SQLModifiUsuario + " WHERE IdUsuario="&IdUsuario&""		
		adocon.execute(SQLModifiUsuario )
		RsIdUsuarioSearch = IdUsuario	
          end if